Модули(Работа с файлом .txt), Замена окончания слова -ина на -ин.. Опции

[Investor]

Ну могу никак разобраться ...Мне не нужна полность программа, а нужны лиш алгоритмы поиска окончаний -ина и замены их на -ин...Можно и по частям

[volvo]

Investor,
бьешь строки на слова (с использованием вот этой функции, например: Разбиение строки на слова), тогда все, что тебе нужно - сделать следующее:

const
  max_word = 255;
var
  words: array[1 .. max_word] of wrd_info;
  s: string;
  i, n: integer;

begin
    readln(s);
    n := get_words(s, words);
    for i := 1 to n do
      if copy(s, words[i].start + words[i].len - 3, 3) = 'ина'
      then delete(s, words[i].start+words[i].len - 1, 1);
      {
         или (чтобы не было проблем со сдвигом строки):
         s[ words[i].start + words[i].len - 1 ] := ' ';
      }

    writeln(s);
end.

Сообщение отредактировано: volvo - 6.11.2006 19:17