Задача на строки Опции

[Juhn]

Помогите плз написать прогу по паскалю
Условие такое: в ведённой строке заменить все фрагменты "pavasaris" на "vasara"

Надеюсь кому то будет не сложно, а то блин завтра в к.р будет такая задача....

[Client]

Что именно не получается? Найти подстроку в строке, удалить ее и вставить новую?

[Juhn]

Да, не знаю как правильно код написать

[Client]

uses crt;
var
   s,s1,s2:string;
   i:byte;
begin
     clrscr;
     s1:='pavasaris';
     s2:='pasara';
     readln(s);
     while pos(s1,s)>0 do begin
           i:=pos(s1,s);
           delete(s,i,9); // 9-это длина строки s1 в данном случае
           insert(s2,s,i)
     end;
     writeln(s);
     readkey
end.

Сообщение отредактировано: Client - 13.05.2008 2:22

[Juhn]

Спасибо, всё работает