Đề Kiểm tra Học Kì II Môn Tin Học 2009-2010

Ngày soạn: 26/4/2010
Ngày K.Tra:
Tiết 70:
KIỂM TRA HỌC KỲ II NĂM 2009 – 2010
MÔN: TIN HỌC - LỚP 8
Thời gian: 90 phút (không kể thời gian giao đề)


ĐỀ BÀI:
A. PHẦN LÝ THUYẾT (3 điểm)
(Thời gian làm 30 phút)
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: Vòng lặp While <Điều kiện> do ; 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: 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 4: 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 5: Chọn khai báo hợp lệ:
A. Var a,b: array[1 .. n] of real; C. Var a,b: array[1 : n] of Integer;
B. Var a,b: array[1 .. 100] of real; D. Var a,b: array[1 … 100] of real;
Câu 6: Trong câu lệnh lặp for i:=1 to 12 do Write(‘A’); thì lệnh Write(‘A’) được thực hiện bao nhiêu lần (nói cách khác, bao nhiêu vòng lặp được thực hiện?)
A. Không lần nào B. 1 lần C. 12 lần D. 2 lần

B. PHẦN THỰC HÀNH
(Thời gian làm 60 phút)
Câu 7/ Gõ chương trình sau vào máy tính, dịch và sửa lỗi chương trình: (2,5 đ)

Program Tim So Lon Nhat;
Var n, i: integer;
SO : array [1..100] of integer ;
Begin
Clrscr;
Writeln(‘Ban muon nhap bao nhieu phan tu’);

for i:=1 to n do
begin
Writeln(‘Hay nhap phan tu thu’, i);
readln (SO[i]);
end;
for i:=2 to n do
if max >SO[i] then max := SO[i]
Write(‘so lon nhat la:’, max );
Readln;
End
Câu 8. Viết chương trình giải bài toán: (4,5 điểm)
Viết chương trình tính tổng:


Trong đó n là số nguyên nhập từ bàn phím.
--------------- ((((( ---------------


ĐÁP ÁN VÀ BIỂU ĐIỂM
A. PHẦN LÝ THUYẾT (3 điểm)
Khoanh tròn chữ cái đứng trước phương án đúng:
Đúng mỗi câu được o,5 điểm

Câu 1
Câu 2
Câu 3
Câu 4
Câu 5
Câu 6

B
A
C
A
B
C


B. PHẦN THỰC HÀNH (7 điểm).
Câu 7. Dịch và sửa lỗi chương trình (2,5 điểm)
Program Tim So Lon Nhat;

Var n, i: integer;
SO : array [1..100] of integer ;
Begin
Clrscr;
Writeln(‘Ban muon nhap bao nhieu phan tu’);

for i:=1 to n do
begin
Writeln(‘Hay nhap phan tu thu’, i);
Readln (SO[i]);
end;

for i:=2 to n do
if max >SO[i] then max := SO[i]
Write(‘so lon nhat la:’, max );
Readln;
End

Program Tim_So_Lon_Nhat; (0,5đ)
Uses crt; (0,5đ)
………………………………………………
………………………………………………
………………………………………………
………………………………………………
………………………………………………
………………………………………………