{Главная программа}

begin

Repeat

ClrScr;

Writeln(' Вариант 28');

Writeln('Дана последовательность, содержащая от 2 до 50 слов, в каждом ');

Writeln('из которых от 2 до 8 строчных латинских букв; между словами не');

Writeln('менее одного пробела, за последним словом - точка. Напечатать');

Writeln('те слова последовательности, которые отличны от ПОСЛЕДНЕГО слова');

Writeln(' и их буквы упорядочены ПО АЛФАВИТУ.');

Writeln(' Эта последовательность образует предложение длиной НЕ более');

Writeln(' одной строки (255 символов) текстового файла.Если предложение');

Writeln('НЕ заканчивается точкой, то оно игнорируется. Если на одной строке');

Writeln('находится несколько таких предложений, то к рассмотрению принимается');

Writeln(' первое, остальные игнорируются. Таких строк в текстовом файле может');

Writeln(' быть достаточно много - это зависит от размера предоставляемой дисковой');

Writeln(' памяти. Все строки анализируются в соответствии с поставленной задачей');

Writeln(' и результат анализа выводится тоже в текстовый файл.');

Writeln;

Evaluate(F1,F2);

Writeln('Опять? (y/n)');

ch:=ReadKey;

Until (ch='n') or (ch='N');

end.

Тестовые примеры пример № 1

Исходный файл f:

fghfg hgjh hgkggkj gkkgkgk kgjkkj jkkjkjjk.

iooyoi hukuu gkukjgkgj kukkj.

uigugu hjkh 6877070 7070790 79079079 79079790 790790 uiguiuti.

abc def abc abc ABC.

xyz abc defgh defgh abc.

fghfg d h k hgjh hgkggkj abc k t gkkgkgk kgjkkj jkkjkjjk k l n.

Результат - выходной файл FF:

............... Анализируем файл f............

--------------- Исходное предложение # 1---------------

fghfg hgjh hgkggkj gkkgkgk kgjkkj jkkjkjjk.

============= Итого выделены слова =============

fghfg hgjh hgkggkj gkkgkgk kgjkkj jkkjkjjk

Всего слов 6

Слова, отличные от jkkjkjjk, и буквы их упорядочены по алфавиту:

Всего таких слов 0

--------------- Исходное предложение # 2---------------

iooyoi hukuu gkukjgkgj kukkj.

Слово gkukjgkgj содержит 9 символов!!!! Оно игнорируется....

============= Итого выделены слова =============

iooyoi hukuu kukkj

Всего слов 3

Слова, отличные от kukkj, и буквы их упорядочены по алфавиту:

Всего таких слов 0

--------------- Исходное предложение # 3---------------

uigugu hjkh 6877070 7070790 79079079 79079790 790790 uiguiuti.

============= Итого выделены слова =============

uigugu hjkh uiguiuti

Всего слов 3

Слова, отличные от uiguiuti, и буквы их упорядочены по алфавиту:

Всего таких слов 0

--------------- Исходное предложение # 4---------------

abc def abc abc ABC.

============= Итого выделены слова =============

abc def abc abc

Всего слов 4

Слова, отличные от abc, и буквы их упорядочены по алфавиту:

def

Всего таких слов 1

--------------- Исходное предложение # 5---------------

xyz abc defgh defgh abc.

============= Итого выделены слова =============

xyz abc defgh defgh abc

Всего слов 5

Слова, отличные от abc, и буквы их упорядочены по алфавиту:

xyz defgh defgh

Всего таких слов 3

--------------- Исходное предложение # 6---------------

fghfg d h k hgjh hgkggkj abc k t gkkgkgk kgjkkj jkkjkjjk k l n.

Слово d содержит 1 символов!!!! Оно игнорируется....

Слово h содержит 1 символов!!!! Оно игнорируется....

Слово k содержит 1 символов!!!! Оно игнорируется....

Слово k содержит 1 символов!!!! Оно игнорируется....

Слово t содержит 1 символов!!!! Оно игнорируется....

Слово k содержит 1 символов!!!! Оно игнорируется....

Слово l содержит 1 символов!!!! Оно игнорируется....

============= Итого выделены слова =============

fghfg hgjh hgkggkj abc gkkgkgk kgjkkj jkkjkjjk

Всего слов 7

Слова, отличные от jkkjkjjk, и буквы их упорядочены по алфавиту:

abc

Всего таких слов 1