Severina

Vladimir_S
Буду крайне признательна.

Vladimir_S

Добавил в #10.

Severina

Vladimir_S
Большое спасибо!
Буду вникать в суть.

Vladimir_S

Между прочим, суть почти точно соответствует Вашему алгоритму (#1).
Различия:
1. Чем разделены слова - точками, пробелами, многоточиями, знаками вопроса и т.п. - несущественно: "обрываем" слово, когда следующий символ - НЕ буква. Дальше продолжаем перебор, пока символ не станет буквой или файл не кончится.
2. Если слово соответствует условию, счетчик увеличиваем на 1, в противном случае не делаем ничего, т.е. прибавка 0 не предусмотрена.

Severina

Действительно, так получается проще, если не брать во внимание, чем разделены слова.
Потихоньку разбираю, вот только что делается здесь:
Until NOT (Ch in Lit);
If fl1 and fl2 then Inc(N);
fl1:=false;
UNTIL EoF(f);

Vladimir_S

Это когда мы "въехали" в очередное слово, перебираем символы до тех пор, пока не встретим такого, который НЕ является буквой, то есть НЕ входит в множество Lit.
Если fl1 и fl2 оба истинны, то увеличиваем значение N на 1. Поскольку я не понял, что именно вызвало затруднение, поясню всё.
1. Если b - булева переменная, то условие "if b then" полностью эквивалентно "if b=true then". Просто сокращенная запись.
2. Inc(N) полностью эквивалентно N:=N+1.
Это исходное значение флажка при переходе к обработке комбинации (символы между словами)+(следующее слово). В принципе, эту строчку можно убрать, но тогда строку
If Ch in Vow then fl1:=true;
нужно заменить на
If Ch in Vow then fl1:=true else fl1:=false;
Что же тут непонятного? Глобальный цикл перебора символов будет продолжаться, пока не возникнет атрибут конца файла, т.е. булев параметр (элемент Паскаля) EoF ("End of File", конец файла) не примет значение TRUE.

Severina

Вот теперь все понятно, просто я не знала, про сокращенную запись. Спасибо за объяснение.
И еще вопрос:
Чтобы вывести результат в отдельный файл, надо добавить assign(res,'F:\pask\bin\pr5.res'); rewrite(res) ?

Vladimir_S

А что надо выводить? Количество слов? Или сами слова? В принципе да, открытие файла на запись делается так. Только по окончании вывода надо не забыть команду Close(res);
А вот если надо выводить сами слова, начинающиеся и оканчивающиеся гласными, то программа существенно усложняется. Хотя и это решаемо.

Severina

Нет, сами слова выводить не надо, просто результат выводить в файл. Когда вставила, программа оставила файл результата пустым

Vladimir_S

А Вы ничего не забыли? В частности, заменить строку
Writeln('The number of words beginning and ending with vowels is ',N);
строкой
Writeln(res,'The number of words beginning and ending with vowels is ',N);
и только после этого вставить Close(res); ?
Между прочим, если вывод - файловый, то останов Readln перед финальным END следует убрать - он не нужен.