ĐT tin 8

Chưa biết trước số lần lặp C.

Phòng GD - ĐT Thới Bình KIỂM TRA HỌC KỲ II - NĂM HỌC 2009 - 2010 Trường THCS Tân Lợi Môn: Tin học - Khối 8

Thời gian làm bài: 45 phút

Họ và tên :

Lớp:.8A

ĐỀ:

I TRẮC NGHIỆM (5 điểm)

Hãy khoanh tròn vào đầu chữ cái của câu trả lời đúng nhất, trong các phương án a, b, c, d

Câu 1: (0,5 điểm) Lệnh lặp nào sau đây là đúng?

A For <biến đếm> = <giá trị đầu> to <giá trị cuối> do <câu lệnh>;

B For <biến đếm>:= <giá trị đầu> to <giá trị cuối> do <câu lệnh>;

C For <biến đếm>:= <giá trị cuối> to <giá trị đầu> do <câu lệnh>;

D For <biến đếm>: = <giá trị đầu> to <câu lệnh> do <giá trị cuối>;

Câu 2: (0,5 điểm) Vịng lặp While <Điều kiện> do <Câu lệnh>; là vịng lặp:

A Chưa biết trước số lần lặp

C Biết trước số lần lặp nhưng giới hạn là <=100

D Biết trước số lần lặp nhưng giới hạn là >=100

Câu 3: (0,5 điểm) Trong ngơn ngữ lập trình Pascal câu lệnh nào sau đây là đúng:

Câu 4: (0,5 điểm) Sau khi thực hiện đoạn chương trình sau, giá trị của biến S bằng bao nhiêu:

s:=0;

for i:=1 to 5 do s := s+i;

Câu 5: (0,5 điểm) Với ngơn ngữ lập trình Passcal câu lệnh lặp for i:=1 to 10 do x:=x+1; thì biến

đếm i phải được khai báo là kiểu dữ liệu gì?

Câu 6: (0,5 điểm) Chọn khai báo hợp lệ:

A Var a,b: array[1 n] of real; B Var a,b: array[1 : n] of Integer;

Câu 7: Điền X vào các ô sao cho phù hợp? ( 2 điểm)

II TỰ LUẬN: (5 điểm)

Câu 1: Gạch chân dưới những câu lệnh em cho là sai rồi viết lại câu lệnh đĩ cho đúng: (2 điểm)

Program Tinh tong;

Uses wincrt;

Var N; i: Integer;

S: Real;

BEGIN

Write(‘Nhap vao so N =’ ); Readln(N);

S:=0

For i =1 to N do S:=S+i;

Writeln(‘Tong cua’,N,’so dau tien s = ‘, s);

END Câu 2: Viết chương trình giải quyết bài toán: (3 điểm) Viết chương trình tính tổng: 1 1 1 1 1

2 3 4 S n = + + + + + Trong đó n là số nguyên nhập từ bàn phím

Câu Đúng Sai a) if a>b then max:=a; else max:=b; b) if a>b then min:=b else min:=a; c) for i:=1 to 50 do x:=x+1; d) for i:=1.5 to 10 do m:=m + 1;

HƯỚNG DẪN CHẤM VÀ BIỂU ĐIỂM MÔN TIN 8 HỌC KÌ II – NĂM HỌC 2008 -2009 I TRẮC NGHIỆM: (5 điểm) Từ câu 1 – 6 mỗi câu đúng được 0,5 điểm Câu 1 Câu 2 Câu 3 Câu 4 Câu 5 Câu 6 B A D C A C Câu 7: mỗi ý đúng được 0,5 điểm II Tự luận (5 điểm) Câu 1: (2 điểm) Program Tinh tong;

………

…

Uses crt; ………

…

Var N; i: Integer;

………

…

BEGIN Write(‘Nhap vao so N =’ ); Readln(N); S:=0 For i =1 to N do S:=S+i ; ………

……

Writeln(‘Tong cua’,N,’so dau tien s = ‘, s); ………

……

END

Program Tinh_tong; (0,5 điểm)

Var N, i: Integer; (0,5 điểm)

For i: =1 to N do S:=S+i ; (0,5 điểm)

………

……

END (0,25 điểm)

Caâu 2: (3 điểm)

Program Tong_Nghich_Dao;

Uses crt;

Var S: real;

n, i: integer;

Begin

Clrscr;

Write(‘Nhap so n = ‘); Readln(n); S:= 0;

For i:= 1 to n do S: = S + 1/i;

Writeln(‘Tong can tim la: ‘, S:6:2); Readln

End