PHÒNG GD & ĐT TÁNH LINH KIỂM TRA 1 TIÊT THỰC HÀNH TRƯỜNG THCS ĐỨC PHÚ TIN HỌC 8 – NĂM HỌC: 2010-2011 Thời gian : 45’ 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). B/. §¸p ¸n vµ biÓu ®iÓm: C©u 1: ViÕt ®óng ch¬ng tr×nh cho 5® Program cau_2; var S,n: integer; 1 đ begin S:=0; n:=1; 1 đ while S<=550 do begin n:=n+1; S:=S+n end; 2 đ writeln('So n nho nhat de tong > 550 la ',n); writeln('Tong dau tien > 550 la ',S); 1 đ Readln; end. C©u 2: ViÕt ®óng ch¬ng tr×nh cho 5® program Tinh_tich; var N,i:integer; P:longint; 1 đ begin write(‘Nhap so N = ‘); readln(N); 0.5 đ P:= 1; 1 đ for i:= 1 to N do 1 đ P:= P*i; 1 đ writeln(‘Tich cua N so tu nhien dau tien P = ‘, P); 0.5 đ readln; end. . & ĐT TÁNH LINH KIỂM TRA 1 TIÊT TH C HÀNH TRƯỜNG THCS ĐỨC PHÚ TIN HỌC 8 – NĂM HỌC: 2 010 -2 011 Th i gian : 45’ I. ĐỀ BÀI: Câu 1 (3 đ)::Viết chương trình tính tổng sau: S =1+ 2 + 3 + + n sao. 5® program Tinh_tich; var N,i:integer; P:longint; 1 đ begin write(‘Nhap so N = ‘); readln(N); 0.5 đ P:= 1; 1 đ for i:= 1 to N do 1 đ P:= P*i; 1 đ writeln(‘Tich cua N so tu nhien dau tien P = ‘,. tính P= 1* 2*3* *n (với n là số nguyên được nhập vào từ bàn phím). B/. §¸p ¸n vµ biÓu ®iÓm: C©u 1: ViÕt ®óng ch¬ng tr×nh cho 5® Program cau_2; var S,n: integer; 1 đ begin S:=0; n: =1; 1 đ while