KTRA_TH8_KHII

KIỂM TRA 1 TIÊT TH TIN HỌC 8
I. ĐỀ BÀI:
Câu 1 (3 đ)::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 2 (4 đ): 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 3 (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: Viết đúng chương trình cho 3đ
Program cau_2;
var S,n: integer; 1 đ
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 4đ
program Tinh_tich;
var N,i:integer;
P:longint; 1 đ
begin
write(‘Nhap so N = ‘);
readln(N); 0.5 đ
P:= 1; 0.5 đ
for i:= 1 to N do 0.5 đ
P:= P*i; 0.5 đ
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 đ