Kiểm tra 1 tiết tin học 8

ĐỀ KIỂM TRA 1 TIẾT
Môn: Tin học 8
Thời gian: 45 phút
Ngày ……tháng …… năm 2012
Trường THCS Tân Trung
Lớp:……………………………….
Họ tên :……………………………
ĐIỂM
LỜI PHÊ CỦA THẦY (CÔ)





TRẮC NGHIỆM (3 đ)
Khoanh tròn vào cái đứng trước câu trả lời đúng nhất (0.5đ x 6 câu = 3đ)
Câu 1. Với câu lệnh For i:= 0 to 4 do a:=a*a; . Hãy cho biết lệnh được lặp mấy lần?
A. 1 lần B. 3 lần
C. 5 lần D. 7 lần
Câu 2. x:=0; sau câu For i:= 0 to 1 do ; x:=x+5; x bao nhiêu?
A. 5 B. 10
C. 15 D. 20
Câu 3. Để thực hiện câu lệnh For i:=1 to 10 do tong:=tong+i; người ta đã khai báo trước đó những câu lệnh nào sau đây?
A. Var i, tong:integer; B. Var i: real; tong:integer;
C. Var i, tong:real; D. Tất cả đều đúng
Câu 4. Biết m:=4; n:=2.
Hỏi trong các câu lệnh sau câu lệnh nào được thực hiện?
while m div n = 0 do write(‘A’);
while m div n = 1 do write(‘A’);
while m mod n <> 0 do write(‘A’);
while m mod n = 0 do write(‘A’);
Câu 5. Trong câu lệnh sau: For i:=1 to 5 do; tich:=tich*i; Hãy cho biết câu lệnh này sai ở điểm nào?
Hãy chọn đúng nhất.
Dư dấu chấm phẩy (;).
Dư dấu chấm phẩy (;) và thiếu dấu hai chấm (:).
Thiếu dấu chấm phẩy (;).
Thiếu dấu chấm (;) và dư dấu hai chấm (:).
Câu 6. Hãy cho biết số lần lặp của đoạn lệnh sau:
a:=2;
while a <= 8 do begin write (‘I’); a:=a+1; end;
A. 2 B. 4
C. 6 D. 7
TỰ LUẬN (7đ)
Câu 1. Các câu lệnh Pascal sau có hợp lệ không, vì sao? (1đ)
For i = 1 to 10 do
Write(‘Tim’);


Var z: real;
Begin
For z:=1 to 10 do
Write(‘Loi’);
End.


Câu 2. Sau khi thực hiện đoạn chương trình sau, giá trị của biến tich bằng bao nhiêu? (2đ)
tich:=1;
for i:=1 to 4 do
tich:=tich*i;










Câu 3. Hãy chỉ ra lỗi của đoạn chương trình sau: (3đ)
Uses Crt;


Var i, n:integer


 tong:longint;


Begin


 Clrscr;


 i=0; tong:=0;


 While i:=10 do


 Begin


 if i mod 4 = 0 then


 tong:=tong+i;


 i=i+1;


 End.


 Writeln(‘Tong so chia het cho 4: ‘,tong);


 Readln


End;


Câu 4. Cho đoạn lệnh sau: (1đ)
Tong:=0;
While i<5 do
Begin
Tong:=Tong+i;
End;
Hãy nêu ra lỗi mà đoạn chương trình trên mắc phải? Em hãy khắc lỗi trên.