Написать функцию подсчёта гласных Pascal

Рейтинг: 0Ответов: 1Опубликовано: 19.02.2015

Здравствуйте!

Нужно написать функцию на паскале, которая считает количество гласных в тексте. Функция получает var t:text;.

С алгоритмом проблем нет. Какой синтаксис считывания символов (не строк) в паскале?

Использовать можно только packed array, это стандартный паскаль, не турбо и прочие.

Спасибо.

Вариант считывание в цикле вначале строку, а потом символов не работает для типа text.

pascal
Источник: Stack Overflow на русском

Ответы

▲ 1
vat t:text;c:char;cnt:integer;
.....
cnt:=0;
assign(t,FileName);
reset(t);
while not eof(t) do
begin
 read(t,c);
 if pos(c,'уеыаоэяиюё')<>0 then cnt := cnt+1;
end;
close(t);

Могу ошибаться с функциями, которые поддерживает стандартный паскаль