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 đ