Замена подстроки в строке

@Schtrich · Регистрация: 13.08.2010

Author24 — интернет-сервис помощи студентам

строке имеются названия тригонометрических функций (sin, cos,tg,ctg). Нужно составить программу, которая заменяет эти названия на русский язык)

Pascal

function ReplaceStr(const S, Srch, Replace: string): string;
{замена подстроки в строке}
var
 I:Integer;
 Source:string;
begin
 Source:= S;
 Result:= '';
 repeat
  I:=Pos(Srch, Source);
  if I > 0 then begin
   Result:=Result+Copy(Source,1,I-1)+Replace;
   Source:=Copy(Source,I+Length(Srch),MaxInt);
  end else Result:=Result+Source;
 until I<=0;
end;
 
var x:integer;
s1,s2,s3:string;
begin
readln(s1);
s2:=ReplaceStr(s1,'cos','косинус');
s2:=ReplaceStr(s1,'sin','синус');
s2:=ReplaceStr(s1,'tg','тангенс');
s2:=ReplaceStr(s1,'ctg','катангенс');
writeln(s2);
readln
end.

вот то, что у меня уже есть, только оно заменяет только 1-у из подстрок, а надо чтобы все заменяло

@Sedlex · 22.01.2014, 18:57

http://pas1.ru/posstring
Прекрасно описано как и что делать надо.

@volvo · 22.01.2014, 20:31

Очень вовремя, всего 3 года прошло, да еще и такой бред... Все проще делается, у строки есть метод Replace, который заменяет все вхождения...

@Sedlex · 23.01.2014, 14:20

Сообщение от UI

у строки есть метод Replace

В курсе его, но о нем нечасто рассказывают.

Сообщение от UI

да еще и такой бред

На то что я сослался выше, та реализация которую рассказывают, обычно.

@Sedlex 6 / 6 / 7 Регистрация: 13.01.2013 Сообщений: 122
	22.01.2014, 18:57	2
	http://pas1.ru/posstring Прекрасно описано как и что делать надо. 0

@volvo Супер-модератор 32830 / 21168 / 8147 Регистрация: 22.10.2011 Сообщений: 36,429 Записей в блоге: 8
	22.01.2014, 20:31	3
	Сообщение было отмечено Памирыч как решение Решение Очень вовремя, всего 3 года прошло, да еще и такой бред... Все проще делается, у строки есть метод Replace, который заменяет все вхождения... 0

@Sedlex 6 / 6 / 7 Регистрация: 13.01.2013 Сообщений: 122
	23.01.2014, 14:20	4
	Сообщение от UI у строки есть метод Replace В курсе его, но о нем нечасто рассказывают. Сообщение от UI да еще и такой бред На то что я сослался выше, та реализация которую рассказывают, обычно. 0

Опции темы

Замена подстроки в строке

Решение