KIEM TRA TIET 54

KIỂM TRA 1 TIÊT TIN HỌC 8
I. ĐỀ BÀI:
Câu 1 (2 đ): Hãy nêu cú pháp câu lệnh lặp với số lần lặp xác định trước và câu lệnh lặp với số lần lặp chưa xác định.
Câu 2 (2.5 đ)::Viết chương trình tính tổng sau: S=1+ 2 + 3 +...+ n sao cho tổng S nhỏ nhất >550 (với n là số nguyên được nhập vào từ bàn phím).
Câu 3 (2.5 đ): Viết chương trình tính P= 1*2*3*...*n (với n là số nguyên được nhập vào từ bàn phím).
Câu 4. (3 đ): a)Viết chương trình nhập vào từ bàn phím hai số nguyên a, b.
b) so sánh và in ra màn hình giá trị số lớn hơn.
B/. Đáp án và biểu điểm:

Câu 1: (2đ) : Nêu đúng cú pháp, giải thích các thành phần trong cú pháp cho 2đ
Cú pháp câu lệnh lặp với số lần lặp biết trước:
FOR := TO DO ; 0.5đ
Trong đó: - FOR, TO, DO là các từ khoá
- Biến đếm là giá trị có kiểu số nguyên.
- Giá trị đầu, giá trị cuối có cùng kiểu dữ liệu với biến đếm ( kiểu số nguyên).
- Câu lệnh là lệnh đơn hoặc lệnh ghép. 0.5đ
Câu lệnh lặp với số lần lặp chưa biết trước:
WHILE <điều kiện> DO ;
Trong đ ó: - WHILE, DO là các từ khoá.
- Điều kiện thường là phép so sánh.
- Câu lệnh là lệnh đơn hoặc lệnh ghép.
Câu 2: Viết đúng chương trình cho 2.5đ
Program cau_2;
var S,n: integer; 0.5 đ
begin
S:=0; n:=1; 0.5 đ
while S<=550 do
begin n:=n+1; S:=S+n end; 0.5 đ
writeln(`So n nho nhat de tong > 550 la `,n);
writeln(`Tong dau tien > 550 la `,S); 0.5 đ
Readln;
end. 0.5 đ
Câu 3: Viết đúng chương trình cho 2.5đ
program Tinh_tich;
var N,i:integer;
P:longint; 0.5 đ
begin
write(‘Nhap so N = ‘);
readln(N); 0.5 đ
P:= 1; 0.5 đ
for i:= 1 to N do
P:= P*i;
writeln(‘Tich cua N so tu nhien dau tien P = ‘, P); 0.5 đ
readln;
end. 0.5 đ
Câu 4: Viết đúng chương trình cho 3đ
Pr ogram Cau_4;
uses crt;
var a, b: integer; 0.5 đ
Begin
Write(‘ nhap so nguyen a:’); Readln(a) ; 0.5 đ
Write(‘ nhap so nguyen b:’); Readln(b) ; 0.5 đ
if a>b then write(‘a’)
else write(‘b’) 0.5 đ
else write(‘ khong co gia tri nao lon hon’); 0.5 đ
readln;
End. 0.5 đ