De thi tin hkII

BÀI KIỂM TRA HỌC KÌ II năm học 2010-2011
Môn: Tin 8
Ngày thi ...........................
Họ và tên:………………………………………… Lớp 8
Điểm
Lời phê của giáo viên

 (Từ câu 1 đến câu 4) (2 điểm) Khoanh tròn chữ cái đứng trước phương án em cho là đúng:
Câu 1: Lệnh lặp nào sau đây là đúng?
For = to do ;
For := to do ;
For := to do ;
For : to do ;
Câu 2: Để nhập giá trị cho các phần tử của mảng a câu lệnh nào sau đây đúng
A) readln[a(i)]; B) readln(a(i)); C) readln(a[i]); B) readln[a[i]];
Câu 3: 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:=1;
for i:=1 to 5 do s := s*i;
A.120 B. 24 C. 25 D. một kết quả khác
Câu 4: Chọn khai báo hợp lệ:
A. Var mang: array[1 .. n] of real; C. Var songuyen: array[1 : 10] of Integer;
B. Var b: array[1 .. 100] of string; D. Var sothuc: array[1.5 .. 10.2] of real;
Câu 5: (2 điểm) Để tính tổng S=2 + 4 + 6 … + n; đoạn lệnh nào Đ (đúng), S (sai) :
A. For i:=1 to n do
if ( i mod 2)=0 then S:=S + i;
B. i:= 0; while iBegin S:= S + i ; i:= i + 2; end;

C. For i:=1 to n do
if ( i mod 2)=1 then S:=S + i;
D. i:= 0; while i<=n do
Begin i:= i + 2; S:= S + i ; end;

Câu 6: (2 điểm) Điền Đ (đúng) S (sai) các ô KQ, nếu câu nào sai thì giải thích vì sao?
Câu
Kết quả
Giải thích

a) for i=1 to 10 do writeln(`A`);



b) var x: Array[5…10] Of Char;



c) x:=10; while x=10 do y := y +5;



d) if x>5 then a:=b; else b := a;



Câu 7: (2 điểm) Viết chương trình tính tổng các số chia hết cho 3 trong các số từ 1 đến n. Trong đó n là số tự nhiên được nhập từ bàn phím.
Câu 8 (2 điểm)Gạch chân dưới những câu lệnh em cho là sai rồi viết lại chương trình đó cho đúng:
Program Tinhtong;
Uses crt
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+1/i;
Writeln(‘Tong cua’,N,’so dau tien s = ‘, s)
Readln
END.

































BÀI KIỂM TRA HỌC KÌ II năm học 2010-2011
Môn: Tin 8
Ngày thi ...........................
Họ và tên:………………………………………… Lớp 8

Điểm
Lời phê của giáo viên

 (Từ câu 1 đến câu 4) (2 điểm) Khoanh tròn chữ cái đứng trước phương án em cho là đúng:
Câu 1: Lệnh lặp nào sau đây là đúng?
For = to do ;
For := to do ;
For := to