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?
End. phải dùng End; mới đúng
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.