Исходник подсчета количества латинских гласных в строке

Исходник подсчета количества латинских гласных в строке

Недавно мы прошли строковый тип данных в Паскаль. Сегодня предлагаю исходник паскаль, который подсчитывает сколько гласных латинских букв в строке. Данная задача довольно часто встречается при изучении языка программирования 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
Автор: Zed от 2013-03-10 19:24:22   Просмотров: 2991

Теги: Паскаль Pascal FOR case string процедуры исходник исходники