Паскаль - Урок 15: Условный оператор Case of

Паскаль - Урок 15: Условный оператор Case of


Обычно любой программист стремиться сделать код программы наиболее простым и коротким, именно для этого и придуманы различные процедуры, функции и операторы. Причём процедуры, функции и операторы могут, как вручную описываться, так и быть предусмотренные языком программирования, на котором пишется программа.

Итак, продолжаем наши уроки по паскалю. Сегодня рассмотрим условный оператор множественного выбора С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
Автор: Lexa от 2012-11-20 18:52:39   Просмотров: 17191

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