Câu 1: Xác định input,output,nêu thuật toán,viết chương trình nhập vào một số nguyên từ bàn phím, kiểm tra xem số đó chẵn hay lẻ?
Câu 2: Xác định input, output,nêu thuật toán, viết chương trình nhập vào chiều dài, chiều rộng hình chữ nhật , tính chu vi, diện tích và in kết quả ra màn hình?
Câu 3: Xác định input,output, nêu thuật toán, viết chương trình nhập vào một số nguyên từ bàn phím, kiểm tra xem số đó âm hay dương?
Câu 1:
In: Số nguyên n.
Out: Số nguyên n là số chẵn hay lẻ.
MTTT:
B1: Nếu n mod 2 = 0 thì thông báo ‘n la so chan’ ngược lại thông báo ‘n la so le’
B2: KTTT
VCT:
program ctpt;
uses crt;
var n: integer;
begin
clrscr;
write(‘Nhap so nguyen n = ‘); readln(n);
if n mod 2 = 0 then write(n, ‘ la so chan’) else write(n, ‘ la so le’);
readln
end.
Câu 2:
In: Chiều dài (a), chiều rộng (b)
Out: Chu vi (C), diện tích (S)
MTTT:
B1: C←(a+b)*2
B2: S←a*b
B3: Thông báo C, S và KTTT
VCT
program ctpt;
uses crt;
var a, b, C, S: real;
begin
clrscr;
write(‘Nhap chieu dai a = ‘); readln(a);
write(‘Nhap chieu rong b = ‘); readln(b);
C:=(a+b)*2;
S:=a*b;
writeln(‘Chu vi hinh chu nhat la: ‘, C:2:1);
writeln(‘Dien tich hinh chu nhat la: ‘, S:2:1);
readln
end.
Câu 3:
In: Số nguyên a.
Out: Số nguyên a là số dương hay âm.
MTTT:
B1: Nếu a>0 thì thông báo ‘a la so duong’ ngược lại nếu a<0 thì thông báo ‘a la so am’ ngược lại thì thông báo ‘a khong la so duong hay am’
B2: KTTT.
VCT:
progra ctpt;
uses crt;
var: a: integer;
begin
clrscr;
write(‘Nhap so nguyen a = ‘); readln(a);
if a>0 then write(a, ‘ la so duong’) else
if a<0 then write(a, ‘ la so am’) else
write(a, ‘ khong la so duong hay am’);
readln
end.
Câu 1:
Input: Số n
Output: Số n chẵn hay lẽ
Thuật toán:
Bước 1: Nhập n
Bước 2:
2.1: Nếu n mod 2 = 0 thì thông báo chẵn và thực hiện bước 3
2.2: Nếu n mod 2 <> 0 thì thông báo lẻ và thực hiện bước 3
Bước 3: Kết thúc chương trình
Chương trình:
Program NN;
Uses crt;
Var n: longint;
Begin
Clrscr;
Write(‘Nhap n: ‘); Readln(n);
If n mod 2 = 0 then Write(‘Chan’)
Else Write(‘Le’);
Readln
End.
Câu 2:
Input: Chiều dài, chiều rộng của HCN
Output: Chu vi và diện tích HCN
Thuật toán:
Bước 1: Nhập cd, cr
Bước 2:
2.1: s<-cd*cr;
2.2: p<-(cd+cr)*2;
Bước 3: Xuất cd và cr ra màn hình
Chương trình:
Program NN;
Uses crt;
Var cr,cd,s,p: real;
Begin
Clrscr;
Write(‘Nhap chieu dai va chieu rong: ‘); Readln(cd,cr);
s:=cd*cr;
p:=(cd+cr)*2;
Writeln(‘S = ‘,s:0:2);
Write(‘P = ‘,p:0:2);
Readln
End.
Câu 3:
Input: Số n
Output: Số n âm hay dương
Thuật toán:
Bước 1: Nhập n
Bước 2:
2.1: Nếu n > 0 thì thông báo dương và thực hiện bước 3
2.2: Nếu n < 0 thì thông báo âm và thực hiện bước 3
3.3: Nếu n = 0 thì thông báo không âm không dương và thực hiện bước 3
Bước 3: Kết thúc chương trình
Chương trình:
Program NN;
Uses crt;
Var n: longint;
Begin
Clrscr;
Write(‘Nhap n: ‘); Readln(n);
If n > 0 then Write(‘Duong’)
Else If n < 0 then Write(‘Am’);
Else Write(‘Khong am khong duong’);
Readln
End.