TRƯỜNG THCS EABUNG
Họ và tên:
Lớp: 8
KIỂM TRA HỌC KÌ II – NĂM HỌC 09-10
Môn : TIN HỌC 8
Thời gian: 45 phút
A. Trắc nghiệm: ( 4 điểm) Khoanh tròn chữ cái đứng trước phương án em
cho là đúng: (mỗi cấu đúng được 0,5 điểm)
Câu 1: Lệnh lặp nào sau đây là đúng?
A. For <biến đếm>= <giá trị đầu> to <giá trị cuôí> do <câu lệnh>;
B. For <biến đếm>:= <giá trị đầu> to <giá trị cuôí> do <câu lệnh>;
C. For <biến đếm>:= <giá trị cuôí> 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: 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
B. 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: Trong ngôn ngữ lập trình Pascal câu lệnh nào sau đây là đúng:
A. If a=5 then a:=a+1; else a:=a+2; B. If a=5 then a:=a+1else a:=a+2
C. If a=5 then a=a+1; else a=a+2; D. If a=5 then a:=a+1else a:=a+2;
Câu 4: 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;
A.45 B. 55 C. 15 D. 51
Câu 5: 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ì?
A. Interger; B. real; C. string D. Tất cả các kiểu trên đều được
Câu 6: Khi thực hiện câu lệnh for i:= 1 to 3.5 do writeln(i); sẽ viết ra màn hình?
A. Giá trị biến đếm.
B. Viết số 1 rồi viết số 3.5

S:=0
For i =1 to N do S:=S+i ;
………………………………………………………………………………
……………
Writeln(‘Tong cua’,N, ‘so dau
tien s =’, s);
Readln
………………………………………………………………………………
……………
END.

Câu 3. 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.

………………………………………………
…………………………………………
Var N; i: Integer;
………………………………………………
…………………………………………
S: Longint;
BEGIN
Clrscr;
………………………………………………
…………………………………………
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);
Readln
………………………………………………
……………………………………………
END.
Program Tinh_tong; 0,5

Var N, i: Integer; 0,5

S:=0; 0,75
For i: =1 to N do S:=S+i ; 0,75
………………………………………………