Итак, продолжаем наши уроки по паскалю. Сегодня рассмотрим условный оператор множественного выбора Сase of который предусмотрен языком программирования Паскаль.
Оператор Case of был придуман тогда, когда одному программисту стало лень писать множество операторов If. Т.е. данный оператор позволяет сделать выбор из множества представленных значений переменной.
Пример описания оператора Case в паскале:
***
Case k of
значение1: действие1;
значение2: действие2;
значение3: действие3;
...
значениеN: действиеN;
else действие;
end;
***
Пример решения простейшей задачи с помощью изученного оператора: Подсчитайте количество прописных гласных латинских букв в строке.
Исходный код программы на паскаль:
var
a:string; //Переменная типа string, который будет пройден в след. уроке
k,i:integer;
begin
readln(a);
i:=1;
k:=0;
for i:=1 to length(a) do //length(a) - возвращение длины строки
case a[i] of
'A': begin k:=k+1; end;
'E': begin k:=k+1; end;
'I': begin k:=k+1; end;
'O': begin k:=k+1; end;
'Q': begin k:=k+1; end;
'U': begin k:=k+1; end;
'Y': begin k:=k+1; end;
end;
writeln(k);
end.
В данном примере на паскаль был использован тип STRING (строка, состоящая из символов), который будет подробно объяснен в одном из следующих уроков по программированию на паскаль.
Скачать исходник на паскаль: case-of.pas