Dethi8hk2

Họ và tên:………………………............
Lớp: 8A
Trường THCS Hàm Minh
Kiểm Tra Học Kì II (2010 – 2011)
Môn: Tin học 8
Thời gian: 45 phút
(không kể thời gian phát đề)
Tiết/Tuần:
Ms: 09
Lời phê:

Điểm:




Đề 1:
Câu 1: Khoanh tròn vào chữ cái của câu trả lời đúng nhất (2 điểm)
1. Dữ liệu kiểu mảng chỉ số đầu và chỉ số cuối là:
A. Kiểu số nguyên. B. Kiểu số thực C. Kiểu kí tự. D. Tất cả đều sai
2. Đoạn lệnh sau đây sẽ cho kết quả gì?
s:=0;
for i:=1 to 10 do
ff (i mod 2) <>0 then s:=s+i;
writeln (s);
A. 16 B. 25 C. 30 D. 55
3. Các lệnh nào sau đây lặp với số lần biết trước:
A. Ăn cho đến lúc no thì thôi B. Lúc nào khát nước thì uống nước
C. Gà trống gáy mỗi buổi sang D. May đồ cho đến lúc hết giờ làm việc thì nghỉ
4. Lợi ích khi sử dụng biến mảng là:
A. Đơn giản nhưng dễ nhầm lẫn. B. Thuận tiện.
C. Đơn giản, tránh nhầm lẫn. D. Cả B và C đều đúng
Câu 2: Kiểm tra lỗi chương trình sau và sửa lỗi: (2 điểm)
program tinh_trung_binh
ues crt;
var i, N: integer;
a:array[1..100] of real
begin
clrscr;
write (‘Nhap do dai cua day so N = );
readln(N);
writeln ( Nhap tung phan tu cua day so:’);
for i:=1 to do
begin
write (‘a[‘,i,‘]=’); readln(a[i]);
end;
writeln(‘Mang vua nhap la:’);
for i :=1 to n
write(i :6) ;
writeln;
writeln(‘Cac phan tu chia het cho 3 la:’);
for i:= to n do
if a(i) mod 3 = 0 then writeln(a[i]);
readln
end.

Câu 3: Các câu lệnh Pascal sau đúng hay sai? Hãy chỉ ra chỗ sai nếu có. (3 điểm)
1. S:=0; N:=0; while S<=5 do N:=N+1; S:=S+N;
2. X:=5; while X = 5 do X=X+2;
3. Var B: array[1…100] of real;










Câu 4: Viết chương trình nhập vào một mảng gồm N phần tử là các số nguyên được nhập từ bàn phím. Hãy tính tổng các phần tử có trong mảng? (3 điểm)
































ĐÁP ÁN KIỂM TRA TIN HỌC HỌC 8 HỌC KÌ II - ĐỀ 1
MS: 09
Câu 1: (2 điểm - mỗi ý đúng được 0.5 điểm)
1
2
3
4

A
B
C
D

Câu 2: Kiểm tra lỗi chương trình sau và sửa lỗi: (2 điểm - mỗi ý đúng được 0,5 điểm)
program tinh_trung_binh
ues crt;
var i, N: integer;
a:array[1..100] of real
begin
clrscr;
write (‘Nhap do dai cua day so N = );
readln(N);
writeln ( Nhap tung phan tu cua day so:’);
for i:=1 to do
begin
write (‘a[‘,i,‘]=’); readln(a[i]);
end;
writeln(‘Mang vua nhap la:’);
for i :=1 to n
write(i :6) ;
writeln;
writeln(‘Cac phan tu