GIáo án Tin lớp 8 tiết 48: Kiểm tra 1 tiết

Tiết: 48
Ngày dạy: 27/02/2010
KIỂM TRA 1 TIẾT
I. Mục tiêu
1. Kiến thức
Củng cố lại các kiến thức đã học về câu lệnh lặp.
2. Kỹ năng
Rèn kĩ năng giải bài tập cho học sinh
3. Thái độ
Nghiêm túc khi kiểm tra
II. Yêu cầu của đề
Kiểm tra trên máy
III. Ma trận
	Mức độ
Nội dung
Biết
Hiểu
Vận dụng
Bài 1
Câu 1
Bài 2
Câu 2
Bài 3
Câu 3
IV. Đề bài
Viết chương trình tính tổng của N số tự nhiên đầu tiên, với N là số tự nhiên được nhập vào từ bàn phím.
Viết chương trình tính tổng bằng lệnh while  do
Viết chương trình để tìm số lượng gà và chó trong bài toán sau :
Vừa gà vừa chó
Bó lại cho tròn
Ba mươi sáu con
Một trăm chân chẵn
V. Đáp án
1. (3 điểm)
Program Tinh_tong ;
var N, i : integer ;
S : longinteger ;
Begin
Write(‘Nhap so N = ‘) ; Readln(N) ;
S :=0
For i :=1 to N do S :=S+i ;
Write(‘Tong cua ‘,N,’ so tu nhien dau tien S = ‘,S) ;
Readln
End.
2. (3 điểm)
Program Tinh_tong_T ;
Var T, i : integer ;
Begin
T :=0 ;
i :=1 ;
while i<=100 do begin T :=T+1/i ; i :=i+1 end ;
write(‘Tong T là : ‘,T) ;
Readln
End. 
3. (3 điểm)
Program ga_cho;
Var ga, cho: byte;
Begin
For cho:=1 to 24 do
Begin
	ga:= 36 - cho;
	If (2*ga + 4*cho = 100) then
Writeln(‘Ga: ‘, ga, ‘, Cho: ‘,cho);
	end;
Readln
End.
* 1 điểm trình bày.