Thi học kì ii

và tên học sinh:……………………… ngày….. tháng…… năm
lớp:…… thời gian 45’
trường:

TRA HỌC KỲ 2 TIN HỌC 8
NĂM HỌC 2010 - 2011


Điểm
Lời phê của thầy, cô giáo



I/ Trắc nghiệm khách quan: Khoanh tròn chữ cái đứng trước kết quả đúng .
Câu 1: Lệnh lặp nào sau đây là đúng?
For = to do ;
For := to do ;
For := to do ;
D. For : to do ;
Câu 2: Vòng lặp while ..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: Câu lệnh lặp while…do có dạng đúng là:
A) While <điều kiện> do; ; B) While <điều kiện> do;
C) While do <điều kiện>; D) While <điều kiện> do ;
Câu 4: Cho S và i là biến nguyên. Khi chạy đoạn chương trình :
s:=0;
for i:=1 to 5 do s := s+i;
writeln(s);
Kết quả in lên màn hình là của s là :
A.12 B. 55 C. 15 D.25
Câu 5: Lần lượt thực hiện đoạn lệnh: a[1]:=2; a[2]:=3; t:=a[1]+a[2]+1; Giá trị của t là
A) t =1 B) t =2 C) t =3 D) t =6
Câu 6: Câu lệnh pascal nào sau đây là hợp lệ?
For i:= 1 to 10 do writeln(‘A’); B) For i:=1.5 to 10.5 do writeln(‘A’);
C) For i = 1 to 10 do writeln(‘A’); D) For i:=100 to 1 do writeln(‘A’);

II/ Tự luận:
Viết chương trình Pascal sử dụng biến mảng để nhập từ bàn phím các phần tử của một dãy số. Độ dài của dãy cũng được nhập từ bàn phím. Tìm giá trị nhỏ nhất của dãy số.

Var A:array[1..100] of real;
Min,i,n:integer;
Begin
Write(‘nhap so phan tu cua day ‘);
Readln(n);writeln;
Write(‘nhap gia tri cho phan tu’);
writeln;
for i:=1 to n do begin
writeln(‘A’,i,’=’);
readln(A[i]);
end;
min:=A[1];
for i:=2 to n do
if min>A[i] then min:=A[i];
write(‘gia tri nho nhat :,min);
readln
end.