Ktra 20p - tin 8

Trường THCS BÌNH THẠNH KIỂM TRA - Môn: TIN HỌC
Họ và tên: Thời gian: 20 phút
Lớp 8A
ĐỀ CHẴN

Câu 1. Sau mỗi câu lệnh dưới đây giá trị của Y bằng bao nhiêu?
Y:= 12;
If Y >10 then Y:= Y+1;
A. 12 B. 10 C. 13 D. 14
Câu 2. Sau khi thực hiện đoạn chương trình sau, vòng lặp được thực hiện bao nhiêu lần?
P:= 1;
For i:= 1 to 6 do P:= P* i;
A.8 B. 7 C. 1 D.6
Câu 3. Câu lệnh Pascal nào sau đây hợp lệ?
A. if<điều kiện> then else ;
B. if<điều kiện> then else ;
C. if<điều kiện> else ;
D. if<điều kiện> then ; else ;
Câu 4. Câu lệnh Pascal nào sau đây hợp lệ?
A. for = to do ;
B. for := to do < giá trị cuối>;
C. for := to do ;
D. for := to do ;
Câu 5. Sau mỗi câu lệnh dưới đây, giá trị của X bằng bao nhiêu?
X:= 10;
If (45 mod 3) = 0 then X:= X+2;
A. 12 B. 11 C. 10 D. 15
Câu 6. Câu lệnh pascal nào sau đây là hợp lệ?
For i:=10 to 1 do writeln(‘A’); B. For i:= 2.5 to 10.5 do writeln(‘A’);
C. For i= 1 to 10 do writeln(‘A’); D. For i:= 1 to 10 do writeln(‘A’);
Câu 7. Sau khi thực hiện đoạn chương trình sau, giá trị của k bằng bao nhiêu?
k:= 1;
for i:= 0 to 4 do k:= k +2;
A. 5 B. 11 C. 7 D. 9
Câu 8. 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;
Kết quả in lên màn hình là của s là :
A.101 B. 11 C. 55 D.15
Câu 9. Các câu lệnh trong Pascal sau đây được viết đúng hay sai? (1đ)

Câu lệnh
Đúng
Sai

a/ if x > 7 then a:=b ; else m:=n



b/ if x < > 15 then x:= - c/b;



c/ if x > 7 then m:=n ;



d/ if x:=7 then a = b ;







Câu 10. Sau mỗi câu lệnh Pascal sau đây, X sẽ có giá trị là bao nhiêu? Nếu giá trị ban đầu bằng 6 (2đ)

Câu lệnh
Giá trị của X

a/ if (X div 2) =3 then X:=0 ;


b/ if (X >=5) then X:= 2*X;


c/ if (X mod 3) = 0 then X:= X +1;


d/ if X mod 5 = 1 then begin X:=X*X ; X:=X -10;



Câu 11. Các câu lệnh Pascal sau đây có hơp lệ không? Nếu không thì sửa lại cho hợp lệ. (3đ)
var a: char; begin for a:= 1 to 5 do writeln (‘Y’); end.

For i:= 3 to 4.5 do writeln (‘A’);

For i:= 1 to 5 do writeln (‘Y’);

For a: 0 to 7 do a:= a+1; writlen (‘a’);

For b:= 15 to 5 do writeln (‘B’);

For i: = 1 to 10 do; writeln ( ‘A’);