Замена слов

[goto ∞]

более менее можно так сделать ..

words: array[1..9] of string = (
    ' один ', ' два ', ' три ', ' четыре ', ' пять ', ' шесть ', ' семь ', ' восемь ', ' девять ');

Т.е. пробелы между словами.. Но при случае "один," тоже не прокатить...

[Serge_Bliznykov]

более менее можно так сделать ..

нет, это не решение. это даже не полумера...
потому как не сработает даже для того примера, что я привёл ранее:
потри - пробельчик есть?
ну и как Вы правильно заметили, знаки препинания не учитываются.
А ещё к строке прийдётся добавлять пробел, чтобы последнее слово отработало..
короче, предложенный вариант не катит! так делать весьма нежелательно.

Тут простой разбор на слова (на форуме был десятки раз. Stilet даже патентовать свой способ хотел - настолько часто ему приходилось его цитировать... :D ) просто и эффективно решает данную проблему.

[Лесная Эльфийка]

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

ладно. вот примерно так:

program tt2;
const words: array[1..9] of string = (
    'один', 'два', 'три', 'четыре', 'пять', 'шесть', 'семь', 'восемь', 'девять');
var s: string;
  i, j: integer;
  sOneDigit : string;
begin
  writeln('Введите строку: ');
  readln(s);
  for i := 1 to 9 do begin
    j := pos(words[i], s);
    while j > 0 do begin
      delete(s, j, length(words[i]));
      str(i,sOneDigit);
      insert(sOneDigit, s, j);
      j := pos(words[i], s);
    end;
  end;
  writeln('Результат: ', s);
  readln;
end.

кстати, будьте готовы ещё к таким мелким фичам/багам данного кода:
1) регистр слов проверяемых только маленький (Два Три ЧЕТЫРЕ - это, с точки зрения вышеприведённого кода - не цифры
Решение - надо перед проверкой переводить строку и проверяемое слово в один регистр.

2) если найденное словосочетание является частью слова - то оно всё равно заменяется
попробуйте: потри триод в подвале
поймёте, о чём я
решение-строку надо разбирать (программисты обычно употребяют термин - кальку с английсого - "парсить") на отдельные слова и их уже сравнивать со словами эталонами.

удачи на экзамене.

Благодарю ^_^""

[Son Of Pain]

Да тут можно даже не парсить. Если в I позиция очередного вхождения слова, достаточно проверить
если (((I=1) or (в позиции I-1 не буква)) and ((I+длина_слова-1=длине строки) or (в позиции I+длина_слова не буква))) то менять;
иначе искать очередное вхождение с позиции I+1

[Stilet]

Ну раз уж тут меня упомнули, попробую влести свою непту:
На основании упоминавшегося Сержем кода, предлагаю финт ушами через правый рукав:

var
words: string = (
    'один  два   три   четырепять  шесть семь  восемьдевять');
 s:string; a:array[1..100] of string;
  i,k,count:integer;
begin   {$o-}
 s:=' hello один  my два friend';
 count:=1;
 i:=1; while (i<=length(s)) do begin
   if s[i]=' ' then begin
    k:=pos(s,words);
    if k<>0 then begin
     s:=copy(words,k mod 6,6);
    end;
    inc(count);inc(i);
   end;
   a[count]:=a[count]+s[i];
   inc(i);
 end;
 for k:=1 to i do write(trim(a[k])+' ');
 readln;
  { TODO -oUser -cConsole Main : Insert code here }
end.

[Лесная Эльфийка]

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

Ну раз уж тут меня упомнули, попробую влести свою непту:
На основании упоминавшегося Сержем кода, предлагаю финт ушами через правый рукав:

var
words: string = (
    'один  два   три   четырепять  шесть семь  восемьдевять');
 s:string; a:array[1..100] of string;
  i,k,count:integer;
begin   {$o-}
 s:=' hello один  my два friend';
 count:=1;
 i:=1; while (i<=length(s)) do begin
   if s[i]=' ' then begin
    k:=pos(s,words);
    if k<>0 then begin
     s:=copy(words,k mod 6,6);
    end;
    inc(count);inc(i);
   end;
   a[count]:=a[count]+s[i];
   inc(i);
 end;
 for k:=1 to i do write(trim(a[k])+' ');
 readln;
  { TODO -oUser -cConsole Main : Insert code here }
end.

О__________О""