Замена слова one на three нужно исправить

[to-ot]

Здраствуйте есть прога которая меняет one на two! А надо чтобы на three меняло как сделать! А то я пробую когда three Он символы в переди себя удаляет!

var
  s: string;
  i, k: integer;

begin
  k := 0;
  writeln('Vvedite text, vklyuchayushij sochetania "One"');
  readln(s);
  for i := length(s) - 2 downto 1 do
    if ((s[i] = 'o') or (s[i] = 'O')) and (s[i + 1] = 'n') and (s[i + 2] = 'e') then k := i;
  if k = 0 then writeln('Sochetania "one" v texte net')
  else begin
    s[k] := 't';
    s[k + 1] := 'w';
    s[k + 2] := 'o';
    writeln(s);
  end;
  readln;
end.

________
Код нужно оформлять по правилам:
тегом [CODE]..[/СODE] (это кнопочка с решёточкой #)
Не забывайте об этом!
Модератор.

[rubius2008]

Сообщение от to-ot

Здраствуйте есть прога которая меняет one на two! А надо чтобы на three меняло как сделать! А то я пробую когда three Он символы в переди себя удаляет!

var
s:string;
i,k:integer;

begin
k:=0;
writeln('Vvedite text, vklyuchayushij sochetania "One"');
readln(s);
for i:=length(s)-2 downto 1 do
if ((s[i]='o') or (s[i]='O')) and (s[i+1]='n') and (s[i+2]='e') then k:=i;
if k=0 then writeln('Sochetania "one" v texte net')
else begin
s[k]:='t';
s[k+1]:='w';
s[k+2]:='o';
writeln(s);
end;
readln;
end.

попробуй так сделать замену

while pos('one',s)<>0 do begin
  p:=pos('one',s);
  delete(s,p,3);
  insert('three',s,p);
end;

[to-ot]

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

попробуй так сделать замену

while pos('one',s)<>0 do begin
  p:=pos('one',s);
  delete(s,p,3);
  insert('three',s,p);
end;

блин в том и дело сказали что бы без функции pos! что бы не delte ne instert ненбыло! через lenght надо!((

[rubius2008]

Сообщение от to-ot

блин в том и дело сказали что бы без функции pos! что бы не delte ne instert ненбыло! через lenght надо!((

а если самому написать подобные функции? пойдет так?
само собой без использования pos del ins

[vovk]

var
s:string;
i,k,y:integer;

begin
k:=0;
writeln('Vvedite text, vklyuchayushij sochetania "One"');
readln(s);
for i:=length(s)-2 downto 1 do
if ((s[i]='o') or (s[i]='O')) and (s[i+1]='n') and (s[i+2]='e') then k:=i;
if k=0 then writeln('Sochetania "one" v texte net')
else begin
setlength(s, length(s)+2);
for y:=length(s) downto k+3 do
s[y]:=s[y-2];
s[k]:='t';
s[k+1]:='h';
s[k+2]:='r';
s[k+3]:='e';
s[k+3]:='e';
writeln(s);
end;
readln;
end.

так?

[Serge_Bliznykov]

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

setlength(s, length(s)+2);

а точно речь идёт о Delphi (ну или об Object Pascal) ?!
дело в том, что в TurboPascal такого излишества не было..

to-ot, решение задачи устраивает?.. Если нет - тогда озвучьте почему (и какой у Вас Pascal)...
и ещё, Pos() использовать нельзя, так? А процедуры Delete и Insert - можно?

[vovk]

вообщето у меня Free Pascal, но да точно в турбо не будет работать, в общем если турбо то вот это

setlength(s, length(s)+2);

можно заменить на

s:=s+'  ';