Недавно мы прошли строковый тип данных в Паскаль. Сегодня предлагаю исходник паскаль, который подсчитывает сколько гласных латинских букв в строке. Данная задача довольно часто встречается при изучении языка программирования Pascal, а также Delphi. Данная программа использует цикл с параметром For, т.к. известна длина строки (её можно узнать с помощью функции length) .Также используется условный оператор выбора Case of. Можно использовать и условный оператор IF, но Case использовать рациональнее.
Исходный код программы Pascal:
var S1:string;
k,i:integer;
begin
readln(S1);
i:=1;
k:=0;
for i:=1 to length(S1) do begin
S1[i]:=UpCase (S1[i]);
case S1[i] of
'A': k:=k+1;
'E': k:=k+1;
'I': k:=k+1;
'O': k:=k+1;
'U': k:=k+1;
'Y': k:=k+1;
end;
end;
writeln(k);
end.К сожалению, пояснительных комментариев нет, но код программы довольно простой, поэтому разобраться не сложно.
Скачать исходник: kolglas.pas