задача на строки, В заданом тексте заменить слово А1 на слово А2 Опции

[I am ...]

Помогите плиз!
В заданом тексте заменить слово А1 на слово А2.

[Айра]

А зачем тебе s3? Или ты таким способом хочешь пройтись по всей строке?
Тогда лучше так:

var s,s1,s2: string;
    p: integer;
begin
  writeln('введите строку:');
  readln(s);
  write('s1 = ');
  readln(s1);
  write('s2 = ');
  readln(s2);
  while pos(s1,s)<>0 do  //пока в строке еще обнаруживается подстрока s1, то выполняем
    begin
      p:=pos(s1,s);   
      delete(s,p,length(s1)); //удалили s1
      insert(s2,s,p);  //вставили на его место s2
    end;
  writeln(s);
end.

p.s. с тэгами ведь лучше

Сообщение отредактировано: Айра - 18.03.2008 23:29