De thi HKII - 2013

Trường THCS Châu Văn Liêm
 Bài kiểm tra học kỳ II - Tin lớp 8

Họ và tên:
 Thời gian 45 phút

Lớp :
 Ngày kiểm tra:

Điểm
Nhận xét
Chữ ký giám khảo
Chữ ký giám thị





TRẮC NGHIỆM (3 điểm):
Câu 1(0.5đ): Trong các câu lệnh pascal sau đây đúng hay sai ?
a) For i:=1 to n do x:=x+1;
b) For i=1 to 10.5 do x=x+2;
c) For i:=10 to 1 do; x:=x+2;
d) For i:= 1 to 20.5 do x:=x+1;
Câu 2 (0.5đ): Khi khai báo biến mảng: var a: array[..] of ;
ngôn ngữ pascal quy định.
chỉ số đầu bằng chỉ số cuối
chỉ số đầu lớn hơn chỉ số cuối
chỉ số đầu ≤ chỉ số cuối
chỉ số đầu ≥ chỉ số cuối
Câu 3 (0.5đ): Trong ngôn ngữ pascal, khai báo nào sau đây là đúng?
a) var x: array[1…100] : integer;
b) var x: array[1..100] of integer;
c) var x: array[1,5..9,5] of integer;
d) var x: array [50..1] of real;
Câu 4(0.5đ): Trong ngôn ngữ lập trình pascal, ta có câu lệnh
For i:=1 to 100 do write(i:4);
Nếu muốn sử dụng vòng lặp while…do để thực hiện công việc như vậy ta phải
viết câu lệnh while…do như thế nào?
while i<=100 do write(i:4);
while i>=100 do write(i:4);
while i:= i to 100 do write(i:4);
while i=100 do write(i:4);
Câu 5 (1đ): Điền các từ thích hợp sau : tập hợp, thứ tự, khai báo, dữ liệu, thực hiện, biến mảng, chỉ số vào dấu ……
Dữ liệu kiểu mảng là một ……… hữu hạn các phần tử có …….., mọi phần tử đều có cùng môt kiểu …....., gọi là kiểu của phần tử. Việc sắp thứ tự được thực hiện bằng cách gán cho mỗi phần tử một ……...
TỰ LUẬN (7 điểm):
Câu 6 (2đ) : Cho đọan chương trình , hãy miêu tả quá trình thực hiện các câu lệnh sau , sau có bao nhiêu vòng lặp, sau khi thực hiện hết vòng lặp, giá trị của x bằng bao nhiêu?.
x:=1;
For i:= 1 to 5 do
x:=x+i;






Câu 7 (2đ) : Cho đọan chương trình , hãy miêu tả quá trình thực hiện các câu lệnh sau , sau có bao nhiêu vòng lặp, sau khi thực hiện hết vòng lặp, giá trị của x bằng bao nhiêu?.
x:=0; s:=2;
While s<=8 do
Begin
writeln(s);
s:=s+2;
End;
x:=s;






Câu 8(3đ): chương trình sau là nhập n số nguyên từ bàn phím và in ra màn hình số nhỏ nhất. hãy hoàn thành chương trình sau:
Program timmin;
uses crt;
var i,………: integer;
a: ….. [1..50] of integer;
Begin
Clrscr;
write(‘nhap so phan tu cua day so n=’);
readln(…..);
write(‘nhap gia tri cho cac phan tu cua day so:’);
for i:=…. to …. do
begin
write(‘a[‘,i,’]=’);
readln(……);
end;
min:=a[1];
for i:= …… to n do
if a[i]……min then min:= a[i];
write(‘so nho nhat cua day so la:’,…..);
writeln
end.