NGAN HANG CAU HOI TRAC NGHIEM PASCAL HKII

I. Trắc nghiệm : Khoanh tròn chữ cái đứng trước kết quả đúng
Câu 1: Phát biểu nào sau đây là đúng ?
Cấu trúc lặp được sử dụng để chỉ thị cho máy tính thực hiện lặp lại một vài hoạt động nào đó cho đến khi một điều kiện nào đó được thoả mãn.
Chỉ ngôn ngữ lập trình Pascal mới có các câu lệnh lặp để thể hiện cấu trúc lặp.
Ngôn ngữ Pascal thể hiện cấu trúc lặp với số lần lặp cho trước bằng câu lệnh while…do
Ngôn ngữ Pascal thể hiện cấu trúc lặp với số lần lặp chưa biết trước bằng câu lệnh For…do
Câu 2: Lệnh lặp nào sau đây là đúng?
For = to do ;
For := to do ;
For := to do ;
For : to do ;
Câu 3: Câu lệnh pascal nào sau đây là hợp lệ?
For i:=100 to 1 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:= 1 to 10 do writeln(‘A’);
Câu 4: Vòng lặp while ..do là vòng lặp:
A) Biết trước số lần lặp B) Chưa 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 5: 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 6: 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.11 B. 55 C. 101 D.15
Câu 7: Trong chương trình pascal sau đây:
Var x : integer ;
Begin
X:= 3 ;
If (45 mod 3) =0 then x:= x +2;
If x > 10 then x := x +10 ;
End.
X có giá trị là mấy
a) 3 b) 5 c) 15 d)10
Câu 8: Trong chương trình pascal sau đây:
program hcn;
var a, b :integer;
s,cv :real ;
begin
a:= 10;
b:= 5;
s:= a*b ;
cv:= (a +b ) * 2 ;
writeln(‘dien tich hcn la:’ , s );
writeln( ‘chu vi hcn la : ‘ , cv ) ;
readln;
end.
Biến s và cv có giá trị là mấy:
a/ s = 10 ; cv = 5 ; b/ s= 30 ; cv = 50 ;
c/ s = 50 ; cv = 40 ; d/ s = 50 ; cv = 30 ;
Câu 9: Sau mỗi câu lệnh trong pascal sau đây x sẽ có giá trị là bao nhiêu , nếu trước đó giá trị của x bằng 5: sau thực hiện các lệnh x có các giá tri ( 0; -10 ; 5 ; 6 12 )
Câu lệnh
 Giá trị của x

a/ if x mod 3 = 2 then x:= x +1;


b/ if (x mod 3 =0) or (x>=5) then x:= 2*x;


c/ if (x mod 2 =1 ) and (x>10 ) then x:=0 ;


d/ if x mod 5 = 0 then begin x:=x*x ; x:=x -10;


Câu 10: cho chương trình sau:
Var a,b : integer ;
Begin
A:=16 ; b:=8 ;
If a< b then a:= a + b else
Begin a:= a- b; b:= b + a end;
Writeln( ‘ a= ‘, a , ‘ b = ‘, b);
End.
Biến a và b có giá trị là mấy