Ngân hàng câu hỏi trắc nghiệm môn Lập trình Pascal

End.
Kết quả hiện ra màn hình những gì?
65
56
11
1
Câu hỏi: 00150 Khi chạy chương trình:
	Var x,y: Integer;
Procedure TT(a,b:Integer);
Var x,y: Integer;
Begin
	x:=3; y:=4;
End;
Begin
	x:=5; y:=6;
	TT(x,y);
	Write(x,y);
End.
Kết quả in ra màn hình là:
56
36
34
54
Câu hỏi: 00151 Cho khai báo biến:
	Var A: Array[3..5] of Integer;
	Câu lệnh nào sau đây đúng:
A[3]:=3;
A[1]:=1;
A[2]:=2;
Không có lệnh nào đúng.
Câu hỏi: 00152 Cho khai báo sau:
	Var x,y: Integer;
	Lệnh nào sau đây sai:
Readln(x+y);
Write(x);
Writeln(x+y);
Readln(x);
Câu hỏi: 00153 Khi thực hiện đoạn chương trình sau:
	Type ToaDo=Record
	x,y: Integer;
	End;
	Var a[1..10] of ToaDo;
	i:integer;
	Begin
	For i:=1 To 3 Do
	With A[i] Do x:=i; y:=i; End;
	For i:=1 To 3 Do Write(A[i].x, A[i].y);
	End.
	Sẽ in ra màn hình những gì?
Chương trình báo lỗi
112233
33
A[i].x, A[i].y
Câu hỏi: 00154 Khi chạy chương trình:
	Procedure TinhS;
	Var i,S:Integer;
	Begin
	S:=1; For i:=1 To 4 Do S:=S*i;
	Write(S);
	End;
Begin
End.
Chương trình không in gì cả
S*i
24
TinhS
Câu hỏi: 00155 Chạy đoạn chương trình sau:
	Program GiaiThua;
	Var i,s: Integer;
	Begin
	S:=1; For i:=1 To 5 Do S:=S*i;
	Writeln(S);
	End.
	Kết quả in ra là:
120
0
5
60
Câu hỏi: 00156 Chạy đoạn chương trình sau:
	Var i,j,S:Integer;
	Begin
	S:=0;
	For i:=1 To 5 Do
	For j:=1 To 5 Do
	S:=S+1;
	Write(S);
	End.
	Kết quả của S là:
25
5
15
35
Câu hỏi: 00157 Khi chạy chương trình:
	Var a:Boolean;
	Begin
	a:=2*2<3;
	Writeln(a);
	End.
	Kết quả hiện ra:
False
True
0 
Chương trình báo lỗi
Câu hỏi: 00158 Khi chạy chương trình:
	Var x:Integer;
	Procedure TT;
	Begin
	x:=4; x:=x+5;
	End;
	Begin
	x:=0;
	TT;
	Writeln(x);
	End.
	Kết quả của x là:
9
0
4
5
Câu hỏi: 00159 Khi chạy chương trình:
	Var St: String;
	i,L:Integer;
	Begin
	St:='Chuc anh chi thi tot'; L:=Length(St);
	For i:=1 To L Do
	if (St[i]>='a') and (St[i]<='z') Then
	St[i]:=Upcase(St[i]);
	Write(St);
	End.
	Chương trình in ra:
CHUC ANH CHI THI TOT
Chuc Anh Chi Thi Tot
Chuc anh chi thi tot
chuc anh chi thi tot
Câu hỏi: 00160 Khi chạy đoạn chương trình sau:
	Var i,s:Integer;
	Begin
	s:=0; i:=1;
	While i<=6 do
	Begin
	s:=s+i; i:=i+2;
	End;
	Write(s);
	End.
	Chương trình sẽ in ra kết quả:
9
6
2
7
Câu hỏi: 00161 Biểu thức: s:= 21 Div 5+6/5*4; có giá trị là: 
8.8
8
8.2
9
Câu hỏi: 00162 Biểu thức: s:= 21 Div 4*4+9/4; có giá trị là: 
22.25
21
21.5
22
Câu hỏi: 00163 Khi chạy chương trình sau:
	Program Tong;
	Var i,s:Integer;
	Begin
	s:=0;
	For i:=1 To 9 Do s:=s+i;
	Writeln(s);
	End.
	Chương trình sẽ in kết quả là:
45
10
1
Chương trình báo lỗi
Câu hỏi: 00164 Khi chạy chương trình:
	Program GPTB1;
	Var a,b:Integer; x:Real;
	Begin
	a:=0; b:=0;
	if a=0 Then
	if b=0 Then Writeln('PTVSN') Else Writeln('PTVN') Else x:=0;
	Writeln('x=',x:0:2);
	End.
Kết quả in ra:
x=0.00
PTVSN
PTVN
Chương trình báo lỗi
Câu hỏi: 00166 Khi chạy đoạn chương trình sau:
	Var i,s:Integer;
	Begin
	s:=0; i:=1;
	While i<=6 do;
	Begin
	s:=s+i; i:=i+2;
	End;
	Write(s);
	End.
	Chương trình sẽ in ra kết quả:
0
9
4
Không có trường hợp nào đúng
Câu hỏi: 00165 Trong Pascal để đánh dấu một khối bằng bàn phím. Dùng tổ hợp phím nào dưới đây:
Ctrl + kb và Ctrl + kk
Alt + kb và Alt + kk
Ctrl + b và Ctrl +k
Alt + b và Alt + k
Câu hỏi: 00167 Trong Pascal để sao chép một khối đã được đánh dấu, dùng tổ hợp phím nào:
Ctrl + kc
Ctrl + c
Alt + kc
Alt + c
Câu hỏi: 00168 Trong Pascal dùng phím chức năng nào để mở một chương trình Pascal:
F3
Ctrl + F3
F2
Ctrl + F2
Câu hỏi: 00169 Trong Pascal dùng phím chức năng nào để lưu một chương trình Pascal
F2
Ctrl + F2
F3
Ctrl + F3
Câu hỏi: 00170 Trong Pascal dùng tổ hợp phím nào để thoát khỏi chương trình Pascal
Alt + x
Ctrl + x
Shift + x
Alt + Ctrl + x
Câu hỏi: 00171 Khi chạy chương trình
	Var a,b:String;
	Begin
	a:='Nguyen Van A';	b:='Nguyen Van B';
	Write(a<b);
	End.
	Kết quả hiện ra màn hình những gì:
True
False
0
Chương trình báo lỗi
Câu hỏi: 00172 Chạy đoạn chương trình sau:
	Program GiaiThua;
	Var i,s:Integer;
	Begin
	s:=0;
	For i:=1 to 5 do s:=s*i;
	Writeln(s);
	End.
	Kết quả in ra những gì::
0
120
5
Chương trình báo lỗi
Câu hỏi: 00173 Đoạn chương trình sau:
	Var i,j,S: Integer;
	Begin
	S:=0;
	For i:=1 To 5 Do
	For j:=1 To 3 Do
	S:=S+1;
	Write(S);
	End.
	Chương trình sẽ in ra những gì?
15
3
5
Chương trình báo lỗi
Câu hỏi: 00174 Đoạn chương trình sau:
	Var i:Integer;
	Begin
	i:=9; If i<0 Then Writeln('So am') Else
	Case i mod 2 of
	1:Writeln('Chan');
	0:Writeln('Le);
	End;
	End.
	Chương trình sẽ in ra những gì?
Chan
Le
So am
Tất cả các trường hợp đều sai
Câu hỏi: 00175 Khi chạy đoạn chương trình:
Var i,s:Integer;
	Begin
	s:=0; i:=1;
	While i<=7 do
	Begin
	s:=s+i; i:=i+2;
	End;
	Write(s);
	End.
	Kết quả của s sẽ là:
16
15
21
36
Câu hỏi: 00177 Đoạn chương trình sau:
	Var i:Integer;
	Begin
	i:=10; If i<0 Then Writeln('So am') Else
	Case i mod 2 of
	1:Writeln('Chan');
	0:Writeln('Le);
	End;
	End.
	Chương trình sẽ in ra những gì?
Le
Chan
So am
Tất cả các trường hợp đều sai.
Câu hỏi: 00178 Khi chạy đoạn chương trình:
Var i,s:Integer;
	Begin
	s:=1; i:=1;
	While i<=3 do
	Begin
	s:=s*i; i:=i+2;
	End;
	Write(s);
	End.
	Kết quả của s sẽ là:
3
5
7
4
Câu hỏi: 00179 Khi chạy chương trình:
	Var a:Boolean;
	Begin
	a:=2*2*2>3*2;
	Writeln(a);
	End.
	Kết quả hiện ra:
True
False
0
Chương trình báo lỗi
Câu hỏi: 00180 Đoạn chương trình sau:
	Var i,j,S: Integer;
	Begin
	S:=0;
	For i:=1 To 4 Do
	For j:=1 To 3 Do
	S:=S+1;
	Write(S);
	End.
	Chương trình sẽ in ra những gì?
12
15
16
13
Câu hỏi: 00181 Khi chạy chương trình:
	Var x,y: Real;
	Function F(x,y:Real):Real;
	Begin
	F:=x;
	if x<y Then F:=x Else F:=y;
	End;
	Begin
	x:=10; y:=15;
	Write(F(x,y):0:0);
	End.
	Kết quả in ra là:
10
15
0
F(x,y)
Câu hỏi: 00182 Khi chạy chương trình:
	Var a,b: Integer;
Begin
	a:=12; b:=3; a:=a+b; b:=a-b; a:=a-b;
Write(a,b);
End.
Kết quả hiện ra màn hình những gì?
312
123
132
213
Câu hỏi: 00183 Cho i là biến nguyên. Khi chạy đoạn chương trình:
	i:=5;
	Repeat
	i:=i+2;
	Until i>5;
	Giá trị sau cùng của i là?
7
6
5
8
Câu hỏi: 00184 Cho i,j,s là biến nguyên. Khi chạy đoạn chương trình:
var i,j,s:Integer;
Begin
	i:=5; j:=5;
	Repeat
	s:=i+j;
	Until s>5;
	Write(s);
end.
	Giá trị sau cùng của s là?
10
15
5
0
Câu hỏi: 00185 Cho khai báo hàm:
	Function F(x:Integer):Integer;
	Begin
	F:=x+x;
	End;
	Giá trị của F(3) là:
6
9
3
0
Câu hỏi: 00176 Cho khai báo hàm:
	Var x,y:integer;
	Procedure T;
	Begin
	x:=4; y:=6;
	x:=x+y;
	End;
	Begin
	x:=0; T; Writeln(x);
	End.
	Giá trị sau cùng xủa x là:
10
4
6
0
Câu hỏi: 00186 Trong Pascal dấu (;) (chấm phẩy) dùng để kết thúc câu lệnh. Chỉ ra câu lệnh sai khi dùng dấu chấm phẩy:
Case a<b; do
if (a>b) then Max:=a;
if (a>b) then Max:=a else Max:=b;
Không có câu lệnh nào sai
Câu hỏi: 00188 Khi chạy chương trình:
	Var St: String;
	i,L:Integer;
	Begin
	St:='Chuc anh chi thi tot'; L:=Length(St);
	For i:=1 To L Do
	if (St[i]>='a') and (St[i]<='z') Then
	St[i]:=(St[i]);
	Write(St);
	End.
	Chương trình in ra:
Chuc anh chi thi tot
CHUC ANH CHI THI TOT
Chuc Anh Chi Thi Tot
Không in gì cả
Câu hỏi: 00189 Biểu thức: s:= 21 Div 5+6; có giá trị là: 
10
2
1
11
Câu hỏi: 00190 Khi chạy chương trình:
	Var S,i:Integer;
	Begin
	i:=4; S:=40;
	if (i>5) then S:=S*3+(5-i)*2 else
	if (i>3) then S:=S*i;
	End.
	Giá trị sau cùng của S là?
160
44
40
36
Câu hỏi: 00191 Khi chạy chương trình:
	Var S,i:Integer;
	Begin
	i:=4; S:=40;
	if (i>5) then S:=S*3+(5-i)*2 else
	if (i>3) then S:=S+i;
	End.
	Giá trị sau cùng của S là?
44
160
40
36
Câu hỏi: 00192 Khi chạy chương trình:
	Var S,i:Integer;
	Begin
	i:=4; S:=40;
	if (i>3) then S:=S*3+(5-i)*2 else
	if (i>5) then S:=S+i;
	End.
	Giá trị sau cùng của S là?
122
160
44
128
Câu hỏi: 00193 Khi chạy chương trình:
	Var S,i:Integer;
	Begin
	i:=4; S:=40;
	if (S<30) then S:=S*3+(5-i)*2 else
	if (S>30) then S:=S+i;
	End.
	Giá trị sau cùng của S là?
44
160
40
36
Câu hỏi: 00194 Cho i là biến nguyên. Sau khi thực hiện các lệnh:
	i:=4;
	Case i Of
	1: i:=i+1;
	2: i:=i+2;
	3: i:=i+3;
	Else i:=0;
	End;
Kết quả in ra màn hình là:
0
2
4
5
Câu hỏi: 00195 Cho m, n, i là các biến nguyên. Khi chạy chương trình:
m:=4; n:=5; i:=5;
Repeat
	i:=i+1;
Until (i mod m=0) and (i mod n=0);
Giá trị sau cùng của i là?
20
5
4
0
Câu hỏi: 00187 Khi chạy chương trình:
	Var S,i,j:integer;
	Begin
	S:=0;
	For i:=1 to 3 do
	For j:=1 to 4 do S:=S+1;
	End.
	Giá trị sau cùng của S là:
12
0
3
4
Câu hỏi: 00196 Khi chạy chương trình:
	Var St:String;
	i.L:Integer;
	Begin
	St:='Hom nay thuc tap'; L:=Length(St);
	For i:=1 to L do
	if (St[i]>='a') and (St[i]<='z') Then St[i]:=Upcase(St[i]);
	Write(St);
	End.
	Chương trình in ra:
HOM NAY THUC TAP
Hom Nay Thuc Tap
hom nay thuc tap
Hom nay thuc tap
Câu hỏi: 00197 Cho các biến St kiểu chuỗi, k kiểu nguyên. Sau khi gán:
	St:='Sinh vien tin hoc ôc tin hoc';
	k:=Pos('Tin',St);
	Giá trị sau cùng của k là:
k=11
k=13
k=26
k=23
Câu hỏi: 00198 Cho khai báo biến và khai báo tiêu đề của hàm F như sau:
	Var x,S: Real; n:Integer;
	FUNCTION F(y:Real; m:Integer): Real;
	Lời gọi hàm nào dưới đây đúng:
S:=F(x,n);
S:=(n);
S:=F(x);
S:=F(n,x);
Câu hỏi: 00199 Cho khai báo biến và khai báo tiêu đề của thủ tục TT như sau:
	Var x,S: Integer; ch: Char;
	Procedure TT(y:Integer; kytu:Char);
	Lệnh gọi thủ tục nào sau đây đúng:
TT(x,ch);
S:=TT(x,ch);
TT(Ch,x);
TT;
Câu hỏi: 00200 Cho khai báo biến và khai báo tiêu đề của thủ tục TT:
	Var x,y:Integer; St:String;
	Procedure TT(Var a:Inteher; b:String);
	Lệnh gọi thủ tục nào sau đây đúng:
TT(x,St);
TT(x+1,St);
TT(10,St);
y:=TT(St,x);