Помощь - Поиск - Пользователи - Календарь
Полная версия: Задача на строки
Форум «Всё о Паскале» > Pascal, Object Pascal > Задачи
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.
Juhn
Спасибо, всё работает smile.gif
Это текстовая версия — только основной контент. Для просмотра полной версии этой страницы, пожалуйста, нажмите сюда.