Các đại ca xem hộ em BT nè với nha!
Nhập từ bàn phím 1 xâu. Thay thế tất cả các cụm kí tự 'anh' bằng cụm kí tự 'em'.

-ko delete rui insert trên xâu vừa nhập mà lần lượt xét từng vị trí của xâu vừa nhập nếu tại vị trí thứ i mà ko xhien 'anh' thì copy xau S1 vào xâu mới S2,S2:=S2( ban đầu S2:=' ' __Xâu rỗng) + S1; còn nếu tại vị trí thứ i là xâu 'anh' thì
i:= i + 3;{ **** đếm bỏ qua 3 kí tự của 'anh' }
S2:=S1[i] + em;{S1[i] là xâu ban đầu đã bỏ đi 'anh' )

VD: Ngày gặp anh em ko nói j`
--> Ngày gặp em em ko nói j`

Các đại ca xem dùm em nha!

anh chịu rồi.pascal anh học cách đây 3năm rồi chả nhớ gì ráo.bạn nào biết vào chỉ giáo dùm kìa

Trời em vùa mới học năm ngoái còn chẳng pit mình học cái j nè mấy cái đó em ko thick học hihihihi

heeeeeeeee em chẳng bít j` về pascal vì hồi xưa ngồi cạnh thằng giỏi pascal => dốt

bạn thử xem nhé :
While pos('anh',s)>0 do
Begin
Insert(s,'em',pos('anh',s));
Delete(s,pos('anh',s),3);
End;

chú ý : sau end là chấm phẩy( trừ cái end cuối cùng thì dùng dấu chấm) và sau begin k có gì
Nếu cách của mình k nhanh thì bạn có thể hỏi người khác mình chỉ biết có vậy ! Pascal lắm

Anh Windy ơi! Cách nè em chẳng đã bảo là ko dùng rùi mà!Máy làm việc có phần chậm hơn ấy!
Trời!Có ai làm dùm em với!

hỏi thẳng thầy giáo dạy có phải hơn ko?
đảm bảo thầy giáo sẽ chỉ cho. làm gì phải vất vả thế này/

Giống dở!Bài nè có trong tập đề KT 45' của thầy tuần tới sao mà hỏi đc!Thông tin chậm wa đấy!Phuơng nè!Có giỏi thỳ giải xem

cách khác à anh chịu pascal học vớ vẩn lắm ! c++ thì biết chút nhưng cũng nhiều hơn pascal
nói chung chẳng biết cái gì ngoài mày mò phá phách ^^

nè. đừng có thách ăn thóc nhé.

Nếu em yêu thích pascal thì tại sao k đi học thêm Tin học Lập trình ở các trung tâm ^^ khoảng 30k/1 buổi thui

hix bây giờ mới thấy cái pic này.
Chắc giờ cm thì muộn rồi không giúp gì được cho bạn. Tớ cứ viết thử đoạn code này cậu xem thử nhá coi như thảo luận.

Code:

begin
write('Nhap chuoi s'); read(s);
s1:='';
i:=1;
while (i<=length(s)) do
if (s[i]='a' and s[i+1]='n' and s[i+2]='h')
  then begin s1:=s1+'em'; i:=i+3; end
else begin s1:=s1+s[i]; i:=i+1; end;
end;

[b]Pascal thì cái hồi xưa học còn biết chút ít về cơ bản,bây giờ thì còn cái gì bó nốt