11_KieuXau

Chọn câu đúng cú pháp:

• Var s : string [30];

• Var s = string[30];

• Var s : string(30);

• Var s := string;

Với s là biến kiểu chuỗi và s có giá trị: S:= ‘nguyen khuyen’;

Sau câu lệnh Delete(s,3,4); chuỗi s chứa các ký tự:

• ‘ng khuyen’

• ‘ngu khuyen’

• ‘ngukhuyen’

• ‘ngkhuyen’

Khi chạy chương trình:

Var s1, s2 : string;

Begin

s1:=’123’;

s2:=’456’;

write (s1+s2);

end.

Kết quả in ra là:

• ‘123456’

• 579

• 123456

• Cả 3 câu đều sai

Cho khai báo:

Var ho, ten : string[15];

Lệnh nào sai:

• write(‘Ho ten la:’ + ho + ten);

• write(‘Ho ten la:’; ho ; ten);

• write(‘Ho ten la:’, ho, ten);

• write(‘Ho ten la:’, ho + ten);

Cho s là biến chuỗi, sau khi thực hiện 2 lệnh:

s := copy(‘PASCAL VERSION 5.5’,8,7);

write(s);

Kết quả in trên màn hình output là:

• VERSION 5.5

• 5.5

• VERSION

• PASCAL

Cho s là biến chuỗi, sau khi thực hiện bốn lệnh: s:=’ABCDEF’;

delete(s,3,2);

insert(‘XYZ’,s,2);

write(s);

Kết quả in lên màn hình là:

• AXYZBCDEF

• AXYZBEF

• ABXYZEF

• AXYZ

Khi chạy chương trình:

Var s : string;i, l : integer;

begin

s := ‘Hom nay thuc tap’;

x:= length(S);

for i:=1 to xdo

if (s[i]>=‘a’) and (s[i]<=‘z’) then s[i] := upcase(s[i]);

write (s);

end.

Chương trình in ra:

• HOM NAY THUC TAP

• Hom nay thuc tap

• hom nay thuc tap

• Hom Nay Thuc Tap

Cho các biến s kiểu chuỗi, k kiểu số nguyên. Sau khi gán:

s:= ‘Sinh vien Tin hoc hoc Tin hoc’;

k:= pos(‘Tin’,s);

Giá trị của k là:

• 13

• 23

• 11

• 26

Khi chạy chương trình:

Var s : string; i, l : integer;

begin

s :=’ABCD’;

x:= length(s);

for i:= x downto 1do write (s[i]);

end.

Kết quả in ra màn hình output là:

• DCBA

• DCAB

• ABCD

• 4321

Cho s là biến kiểu chuỗi và s:=’AAABAAB’ Sau khi thực hiện hai lệnh:

While s[1] = ‘A’ do delete(s,1,1);

Write(s);

Kết quả in ra màn hình output là:

• AABAAB

• AAA

• BAAB

• BB