TRƯỜNG THCS QUẾ THUẬN
Họ và tên:
Lớp 8/…
BÀI KIỂM TRA CUỐI KỲ THỰC HÀNH
Thời gian: 45 phút
Câu 1:Viết chương trình in ra các số chẵn nhỏ hơn hoặc bằng n ( Với n được nhập).
(Sử dụng for…..do)
Hướng dẫn:
- Cho biến i chạy từ 1 đến n.
- Nếu i chẵn ( i chia 2 dư 0) thì in ra số chẵn.
Câu 2: Viết chương trình tính Tổng S=1+2+3+...........
+n với n nhập từ bàn phím.
(Sử dụng cú pháp while..do).
ĐÁP ÁN
Câu 1:
Program baiin;
Uses crt;
Var n,i:integer;
Begin
Writeln(‘nhap n: ’);readln(n);
For i:=1 to n do
If i mod 2 = 0 then
Writeln(i);
Readln;
End.
Câu 2:
Program tinhtong;
Uses crt;
Var n,i:integer;
S:real;
Begin
Writeln(‘nhap n: ’);readln(n);
S:=0; i:=1;
While i<=n do
begin
S:=S+i;
i:=i+1;
end;
Writeln(‘tong day: ’,S);
Readln;
End.