Задача с function - число согласных букв в тексте (строки со словами) - Turbo Pascal

Узнай цену своей работы

Формулировка задачи:

Всем привет! Очень нужна ваша помощь. Нужно сделать программ с "

function

" в Pascal'e, который подсчитывает

число согласных букв в тексте

(строки со словами). Нужен не сложный программ, как можно проще. И как можно скорее, если можно. Буду рад за помощь. З.Ы. Не забудьте использовать

function

(обязательно)

Решение задачи: «Задача с function - число согласных букв в тексте (строки со словами)»

textual
Листинг программы
var
  c:char;
  l:integer;
begin
  writeln('Enter text (Ctrl-Z to finish):');
  while not eof do begin
    read(c);
    if upcase(c) in (['A'..'Z']-['A','E','I','O','U','Y']) then l:=l+1;
  end;
  writeln('Answer:',l);
end.

Объяснение кода листинга программы

  1. В начале объявляются две переменные: c и l, обе типа char.
  2. Выводится сообщение для ввода текста.
  3. Запускается цикл while, который будет выполняться до тех пор, пока не будет достигнут конец файла (EOF).
  4. Внутри цикла считывается символ из ввода, используя функцию read.
  5. Символ преобразуется в верхний регистр с помощью функции upcase.
  6. Проверяется, принадлежит ли символ диапазону от 'A' до 'Z', исключая 'A', 'E', 'I', 'O', 'U', 'Y'. Если да, то увеличивается значение переменной l на единицу.
  7. После завершения цикла выводится ответ: количество согласных букв в тексте.

Оцени полезность:

6   голосов , оценка 3.5 из 5
Похожие ответы