Версия для печати темы

Нажмите сюда для просмотра этой темы в обычном формате

Форум «Всё о Паскале» _ Задачи _ Задача на строки

Автор: Juhn 13.05.2008 1:55

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

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

Автор: Client 13.05.2008 2:05

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

Автор: Juhn 13.05.2008 2:09

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

Автор: Client 13.05.2008 2:19

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.

Автор: Juhn 13.05.2008 2:29

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