Cho khai báo:
Var Chuoi: string[10];
x: real;
Lệnh nào sau đây là đúng?
A -
Chuoi:= Str(x:5:2);
B -
Str(x:5:2, Chuoi);
C -
Chuoi:= x;
D -
x:= Chuoi;
2-
Cho St là biến chuỗi, sau khi thực hiện hai lệnh:
St:= Copy( 'PASCAL VERSION 5.5' , 8, 7);
Write(St);
Kết quả in lên màn hình là?
A -
VERSION 5.5
B -
VERSION
C -
PASCAL
D -
5.5
3-
Cho St là biến chuỗi, sau khi thực hiện bốn lệnh:
St:=’ABCDEF’;
Delete(St, 3, 2);
Insert("XYZ’, St, 2);
Write(St);
Kết quả in lên màn hình là?
A -
ABXYZEF
B -
AXYZBCDEF
C -
AXYZ
D -
AXYZBEF
4-
Cho i và x là hai biến kiểu nguyên. Khi thực hiện lệnh:
VAL('1234', x, i);
Giá trị của x và i là bao nhiêu?
A -
x = 0 , i = 1234
B -
x = 1234 , i = 4
C -
x = 1234 , i = 0
D -
x = 0 , i = 0
5-
Cho các biến St chuỗi và k nguyên. Sau khi gán:
St:='Sinh vien Tin hoc hoc Tin hoc';
k := Pos('Tin', ST);
Giá trị của k là?
A -
k=11
B -
k=13
C -
k=26
D -
k=23
6-
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?
A -
Hom Nay Thuc Tap
B -
hom nay thuc tap
C -
Hom nay thuc tap
D -
HOM NAY THUC TAP
7-
Khi chạy chương trình:
Var St: String;
i,L: integer;
Begin
St:='ABCD'; L:= Length(St);
For i:= L Downto 1 do write (St[i]);
End.
Chương trình in ra?
A -
DCAB
B -
ABCD
C -
4321
D -
DCBA
8-
Cho St là biến chuỗi và St:= "AAABAAB’
Sau khi thực hiện hai lệnh:
While St[1]=’A’ do Delete(St,1,1);
Write(St);
Kết quả in ra là?
