(Рядковий),строчечный тип данных.

[V1rus.25]

Тролль?
Написали же:
Код:

var
s:string;
begin
ReadLn (s);
while pos ('CHILD', s) <> 0 do
Insert ('REN', s, pos('CHILD', s) + Length('CHILD'));
end.
Этот фрагмент меняет только одно слово из ряда, а нужно все встречающееся.
Например: hello child compile child
Результат: hello children compile children

[Николай ПН]

Сообщение от V1rus.25

Тролль?
Написали же:
Код:

var
s:string;
begin
ReadLn (s);
while pos ('CHILD', s) <> 0 do
Insert ('REN', s, pos('CHILD', s) + Length('CHILD'));
end.
Этот фрагмент меняет только одно слово из ряда, а нужно все встречающееся.
Например: hello child compile child
Результат: hello children compile children

эм, а что мешает подправить мой код?
заменить ввод слов для замены на CHILD и CHILDREN?

[V1rus.25]

Код:

ReadLn (str);
if pos ('CHILD', str) <> 0 then
begin
Insert ('REN', str, pos('CHILD', str) + Length('CHILD'));
end;
Этот фрагмент меняет только одно слово в ряду, а их может быть 2-5.
Должно получится Например: hello child compile child
Результат: hello children compile children.
И обязательно иметь (Рядковий),строчечный тип данных.

[Serge_Bliznykov]

решений данной задачи может быть много разных.
вот, например, один из вариантов:

function UpperCase(s : string) : string;
var i : integer;
  ss : string;
begin
  ss := s;
  for i:=1 to Length(ss) do
    ss[i] := UpCase(ss[i]);
  UpperCase := ss
end;

const
  sWhat : string = 'child';
  sRepl : string = 'children';
var 
  sInp : string; 
  p : integer;
begin
  WriteLn; Write('Input string: '); 
  Readln(sInp);
  { sInp := 'hello child compile child'; }
  
  sInp := sInp + ' ';

  if sWhat[ Length(sWhat) ] <> ' ' 
    then sWhat := sWhat + ' ';

  sWhat := UpperCase( sWhat );

  p := Pos( sWhat, UpperCase( sInp ));
  while  p>0 do begin
    Delete(sInp, p, Length(sWhat)-1 );
    Insert(sRepl, sInp, p);
    p := Pos( sWhat, UpperCase( sInp ));
  end;

  WriteLn('Result: ', sInp);
  Readln
  
end.

[Hacker19_90]

Этот фрагмент меняет только одно слово в ряду, а их может быть 2-5.

Задания надо чётче давать!
Читаем

Дан ряд слов, который имеет слово CHILD, нужно в этом ряде заменить его на CHILDREN, а другие слова оставить без изменения.

Ряд имеет словО, и ЕГО надо заменить, а другие оставить!
Ну и что вы хотите?

[V1rus.25]

Имелось ввиду что слова "CHILD" все должны изменятся на "CHILDREN" а другие осраватся без изменений.

[Serge_Bliznykov]

V1rus.25, а вы за спорами мой пост #14 не проглядели?