Cho chương trình sau:

Program Baitap;

Var S1, S2 : string;

Procedure Xu_li_xau(a:string; var St:string);

Var i: byte;

Begin

i := pos (a, St);

while i < > 0 do

begin

delete(St, i, 4);

i := pos(a, St);

end;

End;

Begin

S1 := ‘sen trang, sen hong;

S2 := ‘sen’;

Xu_li_xau(S2,S1);

End.

a/ Hãy chạy tay cho ra kết quả theo bảng mẫu dưới đây:

b/ Hãy chỉ ra: biến toàn cục, biến cục bộ, tham số hình thức, tham số thực sự, tham số biến,tham số giá trị trong chương trình trên.

Cho s = ‘Tien hoc le, hau hoc van’, hàm length(s) cho giá trị bằng