Giáo án Tin học Lớp 8 - Tiết 69+70: Kiểm tra học kì II - Năm học 2009-2010

Giáo án Tin học Lớp 8 - Tiết 69+70: Kiểm tra học kì II - Năm học 2009-2010

ĐỀ 1:

CÂU 1(5Đ): Em hãy khởi động Pascal và lưu bài theo đường dẫn: D\lop\T1_tên, viết chương trình sau, dịch và chạy chương trình

Program UOC_SO;

uses crt;

var i,n: integer;

begin

clrscr;

write('nhap n='); readln(n);

for i:= 1 to n do

if n mod i = 0 then write(i:5);

readln

end.

CÂU 2 (5Đ):Mở một trang mới và lưu bài theo đường dẫn: D\lop\T2_tên, viết chương trình Pascal cho bài: Tính tổng của n số tự nhiên đầu tiên, với n là số tự nhiên nhập vào từ bàn phím.

 

doc 2 trang Người đăng tuvy2007 Lượt xem 552Lượt tải 0 Download
Bạn đang xem tài liệu "Giáo án Tin học Lớp 8 - Tiết 69+70: Kiểm tra học kì II - Năm học 2009-2010", để tải tài liệu gốc về máy bạn click vào nút DOWNLOAD ở trên
KIỂM TRA HỌC KỲ 2
TuÇn 35
TiÕt 69,70
Ngµy so¹n: /04/2010
Ngµy d¹y: /04/2010
I. môc tiªu
1. KiÕn thøc
 - Kiểm tra kiến thức của HS trong suốt quá trình của năm học 
2. Kü n¨ng
- Kiểm tra kỹ năng viết chương trình trên máy cho HS 
3. Th¸i ®é
- Nghiªm tóc lµm bµi 
II. CHUẨN BỊ
1. Giáo viên
a. Phương pháp: Trùc quan 
b. Phương tiện: Giáo án, ®Ò kiÓm tra 
2. HS: Sách, vở đọc trước bài ở nhà.
III. TIẾN TRÌNH DẠY - HỌC
1.Ổn định lớp
- Ổn định trật tự
- Kiểm tra sĩ số
2. Kiểm tra bài cũ 
3. KiÓm tra 
GV: Phát đề cho HS 
HS: Nhận đề và làm trên máy 
ĐỀ 1: 
CÂU 1(5Đ): Em hãy khởi động Pascal và lưu bài theo đường dẫn: D\lop\T1_tên, viết chương trình sau, dịch và chạy chương trình
Program UOC_SO;
uses crt;
var i,n: integer;
begin
clrscr;
write('nhap n='); readln(n);
for i:= 1 to n do
if n mod i = 0 then write(i:5);
readln
end.
CÂU 2 (5Đ):Mở một trang mới và lưu bài theo đường dẫn: D\lop\T2_tên, viết chương trình Pascal cho bài: Tính tổng của n số tự nhiên đầu tiên, với n là số tự nhiên nhập vào từ bàn phím.
Đáp án và biểu điểm 
ĐÁP ÁN 
BIỂU ĐIỂM
CÂU1: (5Đ)
Program UOC_SO;
uses crt;
var i,n: integer;
begin
clrscr;
write('nhap n='); readln(n);
for i:= 1 to n do
if n mod i = 0 then write(i:5);
readln
end.
Lưu được chương trình được 1đ. 
0.25
0.25
0.5
0.25
0.25
0.5
0.5
0.5
0.25
0.25
- Dịch và chạy được chương trình được 0.5đ
CÂU2: (5Đ)
program Tinh_tong;
uses crt;
Var n,i:integer;
 S: longint;
begin
clrscr;
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 la:',S:6);
readln
end.
Lưu đượ c chương trình được 1đ
0.25
0.25
0.25
0.25
0.25
0.25
0.5
0.25
0.5
0.25
0.25
0.25
- Dịch và chạy chương trình được 0.5đ
4. Cñng cè 
 5. Dặn Dò
 - Häc sinh vÒ nhµ ôn bài, tiết sau chúng ta «n tËp ®Ó thi HK2
IV. RÚT KINH NGHIỆM

Tài liệu đính kèm:

  • doctuan35_69.doc