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

[V1rus.25]

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

[BDA]

procedure replace(var s: string; in1, out1: string);
var
  s1: string;
  i, j: word;
begin
  if pos(in1, s) <> 0 then
  begin
    s1 := '';
    i := 1;
    j := pos(in1, s) - 1;
    repeat
      s1 := s1 + copy(s, i, j - i + 1) + out1;
      i := pos(in1, s);
      delete(s, pos(in1, s), length(in1));
      j := pos(in1, s) - 1;
    until pos(in1, s) = 0;
    s1 := s1 + copy(s, i, length(s) - i + 1);
    s := s1;
  end;
end;

Процедура замены, которую я писал для Дельфи.
Но, по идее, если выходная строка будет короче 255 символов, то все будет нормально.
Вызывать: replace(s,'CHILD','CHILDREN');

[Hacker19_90]

а что то типа

ReadLn (str);
if pos ('CHILD', str) <> 0 then
begin
   Insert ('REN', str, pos('CHILD', str) + Length('CHILD'));
end;

не пробовали?

[V1rus.25]

А можно как-то по подробней???:co nfused:

[Николай ПН]

Вот весь листинг:

program replace;

uses Crt;

var

name, new_name: string
str: string;

begin
ClrScr;
Write('Напишите строку:  ');
ReadLn(str);
Write('Хотите слово: ');
ReadLn(name);
Write('Заменить на: ');
ReadLn(new_name);

repeat
if(pos(name, str)<>0) then
begin
insert(new_name, str, pos(name, str)+length(name));
Delete(str, pos(name, str), length(name));
end;

until pos(name, str)=0;
WriteLn(str);
end.

Только в этом коде одна проблемка: Так как тип string представляет собой строку длиной до 255 символов. То с помощью этой программы можно меня не только слово, но и часть его, либо символы.

к примеру:
Если введешь строку: hello
А когда попросят заменить слово, напишешь: l
И заменишь на слово: 5
То в результате получишь he55o.

[V1rus.25]

Оно должно сразу менять слово без предложения замены на:.....
Например: hello child compile child
Результат: hello children compile children

[BDA]

Предложение оканчивается точкой, ищет только CHILD, написанный большими буквами:

uses
  crt;

var
  s, a: string;
  c: char;

begin
  a := '';
  repeat
    read(c);
    while (c <> '.') and (c <> ' ') do
    begin
      s := s + c;
      read(c);
    end;
    if s <> '' then
      if s = 'CHILD' then
        write(a, 'CHILDREN')
      else
        write(a, s); 
    s := '';
    a := ' ';
  until c = '.'; 
  if s <> '' then
    if s = 'CHILD' then
      write(a, 'CHILDREN')
    else
      write(a, s);
  writeln;
  readln;
end.

[V1rus.25]

Нужно обязательно через (Рядковий),строчечный тип данных.

[temaps]

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

var
s:string;
begin
ReadLn (s);
while pos ('CHILD', s) <> 0 do
   Insert ('REN', s, pos('CHILD', s) + Length('CHILD'));
end.

string это тебе не "строчечный" чтоли? Откуда ты такие термины выкопал "строчечный" "рядковий"?

[BDA]

temaps, насчет того, что написали уже код, согласен.
Насчет "выкапывания" терминов, это просто украинский язык, имхо.