Определить какие латинские гласные буквы встречаются наибольшее число раз - Pascal ABC

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

Посимвольная обработка строк. Дана строка. Определить какие латинские гласные буквы встречаются наибольшее число раз.

Решение задачи: «Определить какие латинские гласные буквы встречаются наибольшее число раз»

Листинг программы

Var s:string; q,a,e,u,i,o,y,min:integer;
Begin
A:=0;
E:=0;
U:=0;
I:=0;
O:=0;
Y:=0;
Readln (s);
For q:=1 to length(s) do
CASE s[i] OF
'A': a:=a+1;
'a': a:=a+1;
'E': e:=e+1;
'e': e:=e+1;
'U': u:=u+1;
'u': u:=u+1;
'I': i:=i+1;
'i': i:=i+1;
'O': o:=o+1;
'o': o:=o+1;
'Y': y:=y+1;
'y': y:=y+1;
End;
Min:=maxint;
If a<min then min:=a;
If y<min then min:=y;
If e<min then min:=e;
If u<min then min:=u;
If i<min then min:=i;
If o<min then min:=o;
Writeln (min);
End.

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

В данном коде происходит подсчет количества вхождений каждой латинской гласной буквы в строке, которую считывает программа с помощью функции Readln. Для этого используется цикл For, который проходит по каждому символу входной строки. Внутри цикла используется конструкция CASE, которая проверяет текущий символ и увеличивает счетчик соответствующей переменной (a, e, u, i, o, y или min), если символ совпадает с одной из гласных букв. После завершения цикла, переменная min устанавливается равной минимальному значению из всех переменных-счетчиков. Затем, если количество вхождений одной из гласных букв меньше минимального значения, то min устанавливается равным этому значению. В конце программы выводится значение переменной min, которое является максимальным количеством вхождений какой-либо гласной буквы во входной строке.