DE THI HK 2 LOP 8 CHUẨN

Trường THCS Thành Cổ 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: Chọn khai báo hợp lệ:
A. Var a,b: array[1 6.5] of real; C. Var a,b: array[1 : 10] of Integer;
B. Var a,b: array[1 100] of real; D. Var a;b: array[1 100] of real;
Câu 2: 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. 11 B. 55 C. 15 D. Một kết quả khác
Câu 3: Để viết giá trị của các phần tử trong mảng a ra màn hình câu lệnh nào sau đây đúng
A) writeln(a[i]); B) writeln(a); C) write[a[i]]; B) write[a(i)];
Câu 4: Hãy tìm hiểu đoạn chương trình sau đây.
j:=3; k:=2; While i<=6 do
Begin j:=j+1; k:=k+j; end;
Write(k);
Sau khi thực hiện đoạn chương trình trên, lệnh Writeln in ra màn hình giá trị của k là:
A. 23 B. 30 C. 27 D. Một kết quả khác
Câu 5: (2 điểm) Để tính tổng S=1/2+1/4 + 1/6 + … +1/ n đoạn lệnh nào Đ (đúng), S (sai) :
A) i:=1 while i<n do
Begin if ( i mod 2)<> 0 then S:=S + 1/i;
i:= i +1; end;
B) i:=0 while i<n do
Begin S:=S + 1/i; i:= i +2; end;
C) For i:=1 to n do
if ( i mod 2)=1 then S:=S + i;
D) i:=2 while i<n do
Begin if S:=S + 1/i; i:= i +2; 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 7: (2 điểm) Viết chương trình tính tổng của các số chia hết cho 2 và tích các số không chia
hết cho 5 trong các số từ 1 đến n. Trong đó n là số nguyên 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 sửa lại chương trình đó cho
đúng:
Program Tinhtich;
Uses crt
Var N. i: real;
Câu Kết
quả
Giải thích
a) if a>b then max:=a; else max:=b;
b) var X: Array[5 10] :Real;
c) x:=10; while x=10 do x := x*1;
d) for i:=1.5 to 10 do m:=m + 1.5;
S: integer;
BEGIN
Clrscr;
Write(‘Nhap vao so N =’ ); Readln(N);
S:=1;
For i:=1 to N do S=S*1/i;
Writeln(‘Tich cua’,N,’so dau tien s = ‘ s)
Readln
END.

Trường THCS Thành Cổ 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: Chọn khai báo hợp lệ:
A. Var a,b: array[1.5 6.5] of real; C. Var a,b: array[1 : 10] of Integer;
B. Var a,b: array[100] of real; D. Var a,b: array[324 745] of real;

Câu 2: 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:=70;
for i:=1 to 5 do s := s-i;
A. 11 B. 55 C. 15 D. Một kết quả khác
Câu 3: Để đọc giá trị các phần tử vào trong mảng a câu lệnh nào sau đây đúng
A) readln(a[i]); B) readln(a); C) read [a[i]]; B) read [a(i)];
Câu 4: Hãy tìm hiểu đoạn chương trình sau đây.
j:=2; k:=3; While i<=6 do
Begin j:=j+1; k:=k+j; end;
Write(k);
Sau khi thực hiện đoạn chương trình trên, lệnh Writeln in ra màn hình giá trị của k là:
A. 23 B. 30 C. 27 D. Một kết quả khác
Câu 5: (2 điểm) Để tính tổng S=1/2+1/4 + 1/6 + … +1/ n đoạn lệnh nào Đ (đúng), S (sai) :
A) i:=1 while i<n do
Begin if ( i mod 2)= 0 then S:=S + 1/i;
i:= i +1; end;
B) i:=1 while i<n do
Begin S:=S + 1/i; i:= i +2; end;
C) For i:=1 to n do
if ( i mod 2)=0 then S:=S + 1/i;
D) i:=0 while i<n do
Begin if i:= i +2; S:=S + 1/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 7: (2 điểm) Viết chương trình tính tổng của các số không chia hết cho 5 và tích các số chia
hết cho 7 trong các số từ 1 đến n. Trong đó n là số nguyên 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 sửa lại chương trình đó cho
đúng:
Program Tinhtong;
Uses crt
Câu Kết

quả
Giải thích
a) if a>b then max:=a; else max:=b;
b) var X: Array[50 10] of Real;
c) x:=20; while x=10 do x := x div2;
d) for i:=5 to 10 do write(i:6:3);
Var N. i: real;
S: integer;
BEGIN
Clrscr;
Write(‘Nhap vao so N =’ ); Readln(‘N’);
S:=1;
For i:=1 to N do S=S*1/i;
Writeln(‘Tong cua’,N,’so dau tien s = ‘, s)
Readln
END.