KT chương 3

Ngày soạn: 17/4/2013
Ngày dạy: 8A1……/……; 8A2……./………; 8A3………/………

Tiết:67
KIỂM TRA 1 TIẾT ( TH)

I. MỤC TIÊU:
- Học sinh thực hiện kiểm tra thực hành trên máy tính.
- Kiếm thức chủ yếu thuộc 3 bài học cuối cùng.
- Hệ thống lại một số kiến thức đã học.
- Biết sử dụng vòng lặp xác định để viết chương trình.
II. CHUẨN BỊ
- GV: Đề bài
- HS: Học bài ở nhà
III. PHƯƠNG PHÁP
- Hoạt động nhóm trên máy.
IV. Hoạt động kiểm tra thực hành
ổn định: 8a1= 8a2= 8a3= 8a4=

Kiểm tra phòng máy, chương trình PAS
3.Tiến hành

ĐỀ BÀI
Ma trận đề
Mức độ
Nội dung
Biết
Vận dụng

Bài 7
Câu 2
Câu 2

Bài 8
Câu 1
Câu 1



Câu 1: Lập trình tính tổng:
A= 1+2+3+..+n
ở đây n là số tự nhiên được nhập từ bàn phím. (viết bằng lệnh while .. do)
Câu 2 : Bạn hãy tính tổng
 
 

(viết bằng lệnh for ... do)
(Lưu ý : Mỗi câu được ghi lại thành 1 File ở Mydocmens có tên là LOP8A1_1.PAS Và LOP8A1_2.PAS).





ĐÁP ÁN + THANG ĐIỂM VÀ HƯỚNG DẪN CHẤM.


Câu 1 :
:
Câu
Nội dung
Điểm


1
Làm đúng cho 5 điểm 
1,5


Program B1 ;
Uses CRT;
Var
i, n: integer;
tong: real;



Begin
Clrscr;
write(`cho so tu nhien n: `); Readln(n);
tong:=0; i:=1;
1,5


while i<= n do
Begin
tong:= tong+ i;
i: = i+1;
End;
1


writeln(` Tong can tim la: `, tong:12:6);
Readln;
End.
1

2
Làm đúng cho 5 điểm
1,5


Program B2;
Var i: byte;
s: real;



Begin
s:=0;
1,5


 For i:=1 to 20 do s:= s+1/i;
1


Writeln(` 1+ 1/2 + 1/3 + .. . + 1/20 = `, s: 14:10);
Readln; End.
1


V. DĂN DÒ
- Tiết sau ôn tập
* Rút kinh nghiệm: