Question

[Học Thái]

Giúp mik với ạ

Câu 1: Hãy sửa lỗi sai trong đoạn chương trình sau:
S1 := ‘anh’ ;
S2 := ‘em’ ;
i := pos(S2, S) ;
While i <> 0 do
Begin
Delete(S, i, 2) ;
Insert(S1, S, i) ;
i := pos(S2, S) ;
End.
Câu 2: Viết chương trình chèn xâu s1 vào xâu s2?

Answer 1

[Nguyễn Hữu Thông]

End. phải dùng End; mới đúng

Answer 2

[Minh Lệ]

Câu 1: Bạn phải cho xâu S như thế nào đã chứ. Nhìn chung đoạn chương trình không mắc lỗi nào về cú pháp.

Câu 2:

Program hotrotinhoc;

var s1,s2: string;

begin

write('Nhap xau s1 :'); readln(s1);

write('Nhap xau s2 :'); readln(s2);

insert(s1,s2,1);

write('Xau s2 sau khi chen la :',s2);

readln

end.