Kiem tra HS2 Tin8T28N20132014

Trường THCS Tam Quan Bắc
Lớp: 8A…
Họ và tên: …………………
KIỂM TRA HỆ SỐ 2
MÔN TIN: LỚP 8
Ngày KT:…../11 /2013
Thời gian: 45 phút
Điểm:


1./ Lý thuyết: (6 điểm)
Em hãy viết chương trình xét lên lớp dựa trên điểm trung bình nhập từ bàn phím và theo các yêu cầu:
ĐTB >= 5 : Được lên lớp
ĐTB < 5 : ở lại lớp
*Gợi ý cho chương trình:
Tên chương trình Xetlenlop ;
Khai báo thư viện CRT ;
Khai báo biến DTB kiểu số thực ;
Bắt đầu
Xóa màn hình ;
Thông báo: ( Nhap diem trung binh) ;
Đọc điểm trung bình vào biến DTB ;
Nếu DTB lớn hơn hoặc bằng 5 thì thông báo: Duoc len lop
Ngoài ra:
Thông báo: O lai lop ;
Dừng chương trình;
Kết thúc.
2./ Thực hành:
a.) (2 điểm) Soạn thảo chương trình trên vào Pascal.
b.) (1 điểm) Dịch, sửa lỗi chương trình.
c.) (1 điểm) Lưu chương trình với tên KiemTra và chạy chương trình.
Bài làm:
Chương trình Pascal:
………………………………………………………………………..
………………………………………………………………………..
………………………………………………………………………..
………………………………………………………………………..
………………………………………………………………………..
………………………………………………………………………..
………………………………………………………………………..
………………………………………………………………………..
………………………………………………………………………..
………………………………………………………………………..
………………………………………………………………………..
………………………………………………………………………..
………………………………………………………………………..
………………………………………………………………………..
………………………………………………………………………..
………………………………………………………………………..
………………………………………………………………………..
………………………………………………………………………..
………………………………………………………………………..
………………………………………………………………………..
………………………………………………………………………..
………………………………………………………………………..
………………………………………………………………………..
………………………………………………………………………..
………………………………………………………………………..
………………………………………………………………………..
………………………………………………………………………..
………………………………………………………………………..
………………………………………………………………………..
………………………………………………………………………..
………………………………………………………………………..
………………………………………………………………………..
………………………………………………………………………..
………………………………………………………………………..
………………………………………………………………………..
………………………………………………………………………..
………………………………………………………………………..
………………………………………………………………………..
………………………………………………………………………..
………………………………………………………………………..
………………………………………………………………………..
………………………………………………………………………..
………………………………………………………………………..
………………………………………………………………………..



IV./ Đáp án và biểu điểm:
1./ Viết chương trình như sau: (6 điểm: mỗi dòng lệnh đúng 0.5 điểm).
Program Xetlenlop ;
Uses CRT;
Var DTB: real;
Begin
Clrscr;
Write(‘Nhap DTB: ’);
Readln(DTB);
If DTB >= 5 then writeln (‘Duoc len lop’)
else
writeln (‘ O lai lop ’) ;
Readln;
End.
2./ a.) Nhập chương trình vào Pascal (2 điểm).
b.) Dịch, sửa lỗi chương trình (1 điểm)
c.) Lưu và chạy chương trình (1 điểm)

V./ Kết quả đạt được:

K.Lop
S.Số
0(2
2(3.5
3.5(5
5(6.5
6.5(8
8(10
TB trở lên
Ghi chú



SL
%
SL
%
SL
%
SL
%
SL
%
SL
%
SL
%


8a5

 
 
 
 
 
 
 
 
 
 
 
 
 
 
 

8a6

 
 
 
 
 
 
 
 
 
 
 
 
 
 
 



 
 
 
 
 
 
 
 
 
 
 
 
 
 
 

VI./ Rút kinh nghiệm bổ sung:
……………………………………………………………………………………………
……………………………………………………………………………………………
…………………………………………………………………………………………...



-------------------------------- ( ---------------------------------