Программа определяет количество гласных букв - Turbo Pascal
Формулировка задачи:
Помогите кодо,пожалуйста. Я новичок
Создать программу для определения количества гласных среди 5-и введенных пользователем символов. Определение количества должно выполняться в подпрограмме (или подпрограммах )
Решение задачи: «Программа определяет количество гласных букв»
textual
Листинг программы
uses Crt;
const n=5;
var sim : char;
i, count : byte;
Function amount(simvol:char) : integer;
var lot : set of char;
j : byte;
begin
j:= 0;
lot:= ['а', 'е', 'ё', 'и', 'о', 'у', 'ы', 'ю', 'я'];
if (simvol in lot) then Inc(j);
amount:= j;
end;
BEGIN
ClrScr;
count:=0;
Writeln('Введите ', n, ' символов.');
for i:=1 to n do
begin
Write('Введите ', i, ' символ: ');
Readln(sim);
count:= count + amount(sim);
end;
if count <> 0 then Writeln('Количество гласных = ', count)
else Writeln('Нет гласных.');
END.
Объяснение кода листинга программы
- В начале кода подключается библиотека Crt, которая содержит функции для работы с памятью и потоками в Turbo Pascal.
- Затем определяется константа n, которая равна 5.
- Далее объявляются переменные sim и i типа char и переменная count типа byte. Переменная j также типа byte и будет использоваться в функции amount.
- Определяется функция amount, которая принимает в качестве параметра символ simvol. Внутри функции создается множество (set) lot, которое содержит гласные буквы. Затем, в цикле while, проверяется, содержится ли символ simvol в множестве lot. Если да, то значение переменной j увеличивается на единицу с помощью функции Inc. После этого, значение переменной amount устанавливается равным значению переменной j.
- В основной части программы сначала сбрасывается экран с помощью функции ClrScr. Затем, переменная count инициализируется значением 0. Выводится сообщение
Введите, n,символов.. - Запускается цикл for, который выполняется n раз. На каждой итерации пользователю предлагается ввести n-1 символов, начиная с 1. Введенный символ sim сохраняется в переменной.
- Внутри цикла вызывается функция amount, которая принимает символ sim и возвращает количество гласных букв в нем. Полученное количество добавляется к переменной count.
- По завершении цикла выводится сообщение
Количество гласных =, count, если count не равно 0, иначе выводится сообщениеНет гласных.. - Программа завершается.