Thi học kì ii

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

KIỂM TRA HỌC KỲ 2 TIN HỌC 8
NĂM HỌC 2012 - 2013


Đ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: 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 2: 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 3: 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 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 vào mặt sau)
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ử nguyên của một dãy số. Độ dài của dãy cũng được nhập từ bàn phím. In dãy giá trị lớn nhất của dãy số và tính tổng của dãy số đó.

Uses crt;
Var A:array[1..100] of integer;
I,n,max,t:integer;
Begin
Clrscr;
Write(‘nhap so phan tu cua day’);
Readln(n);
Writeln;
Write(‘nhap gia tri cho cac phan tu’);
For i:=1 to n do begin
Writeln;
Write(‘A’,i,’=’);
Readln(a[i]);
End;
Write(‘day so’);
Writeln;
For i:=1 to n do write(A[i]:4);
Max:=A[1];
For i:=1 to n do
if maxT:=0;
For i:=1 to n do T:=T+A[1];
Writeln;
Write(‘gia tri lon nhat:’,max);
Writeln;
Write(‘tong=’,T);
Readln
End.