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 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 1:
In: Số nguyên a.
Out: Số nguyên a là số chẵn hay lẻ.
MTTT:
B1: Nếu a mod 2 = 0 thì thông báo ‘a la so chan’ ngược lại thông báo ‘a la so le’
B2: KTTT
VCT:
program ctpt;
uses crt;
var a: integer;
begin
clrscr;
write(‘Nhap so nguyen a = ‘); readln(a);
if a mod 2 = 0 then write(a, ‘ la so chan’) else write(a, ‘ 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.