36576

Оператор выбора CASE OF

Контрольная

Информатика, кибернетика и программирование

Оператор выбора является обобщением оператора ifthenelse на случай выбора одного из нескольких возможных продолжений выполнения программы. Выбор осуществляется по ключу выбора селектору. Синтаксическая структура этого оператора такова: cse ключ выбора of константа выбора 1 : оператор 1 ; .

Русский

2013-09-22

31 KB

3 чел.

Оператор выбора CASE OF.

Оператор выбора является обобщением оператора if-then-else на случай выбора одного из нескольких возможных продолжений выполнения программы. Выбор осуществляется по ключу выбора (селектору). Синтаксическая структура этого оператора такова:

case < ключ выбора > of

 < константа выбора 1> : < оператор 1>;

. . . . . .

 < константа выбора m> : < оператор m>;

[else < оператор>]

end;

где: < константа выбора > - значение того же типа, что и ключ выбора. Ключом выбора может быть выражение любого порядкового типа.

m - число ветвей выбора (не более чем мощность типа ключа выбора).

При выполнении оператора выбора вначале вычисляется значение ключа, а затем последовательным просмотром ветвей выбора отыскивается такая ветвь, для которой константа выбора совпадает со значением ключа. Оператор этой ветви выполняется, после чего оператор выбора завершает работу и передает управление следующему по тексту программы оператору. Ветвь else (если она присутствует) выполняется только в том случае, когда ни одна ветвь оператора case-of не выбрана. Если ветвь else отсутствует, то это эквивалентно ветви else с пустым оператором.

В ветвях выбора вместо констант выбора можно использовать список констант выбора (разделенных запятыми), либо диапазон констант выбора (заданный посредством .. также как для типа-диапазона). В этих случаях выбор ветви производится при равенстве константы из списка или из диапазона констант с ключом выбора.

Операторы выбора являются хорошо структурированным средством выбора из любого числа альтернатив и часто выполняют ту же функцию, что и вложенные операторы if-then-else.

Следующая простая программа демонстрирует создание и использование перечислимого типа и оператора case-of.

program colors;{Выбор цвета из набора, заданного перечислимым типом}

 uses CRT;

 type color = (cWhite,cRed,cBlue,cGreen,cBlack); {перечислимый тип}

 var b:0..4; c:color;

 begin TextBackground(cyan);TextColor(white);ClrScr;window(10,10,50,20);

 write('Введите число (от 0 до 4):');read(b);c:=color(b);

 case c of cWhite: begin TextColor(white);writeln('white') end;

 cRed: begin TextColor(red);writeln('red') end;

 cBlue: begin TextColor(blue);writeln('blue') end;

 cGreen: begin TextColor(green);writeln('green') end;

 cBlack: begin TextColor(black);writeln('black') end;

 end

 end {colors}.

Задача 4.2.6(14)

program Project14;

type mas=array[1..3,1..4] of Integer;

var a,b:mas;

i,j,l1,l2,d1,d2,s:Integer;

procedure p(x:mas; e1,e2:Integer; var n,k:integer);

var i,j,max:Integer;

begin

max:=x[1,1];

n:=1;

k:=1;

for i:=1 to e1 do

for j:=1 to e2 do

if x[i,j]<max then

begin

max:=x[i,j];

n:=i;

k:=j;

end;

end;

begin

for i:=1 to 3 do

for j:=1 to 3 do

read(a[i,j]);

Writeln;

for i:=1 to 3 do

for j:=1 to 4 do

read(b[i,j]);

p(a,3,3,l1,l2);

p(b,3,4,d1,d2);

s:=a[l1,l2];

a[l1,l2]:=b[d1,d2];

b[d1,d2]:=s;

Writeln;

for i:=1 to 3 do begin

for j:=1 to 3 do begin

write(a[i,j],' ');

end; writeln; end;

Writeln;

for i:=1 to 3 do begin

for j:=1 to 4 do begin

write(b[i,j],' ');

 end; writeln; end;

Readln;

end.


 

А также другие работы, которые могут Вас заинтересовать

35229. Модифікація даних. Створення вихідних документів 126.5 KB
  Мета: Навчитися модифікувати дані, які знаходяться в таблицях. Навчитися створювати прості вихідні документи.
35230. Створення екранних форм 453.5 KB
  Создаем запрос для формы Рыночные цены Создаем ленточные формы Рыночные цены на основе запроса Рыночные цены и Справочник товаров с помощью мастера форм Открываем с помощью конструктора форму Рыночные цены Для создания расчетных итоговых полей которые содержат средние значения полей необходимо на панели элементов сначала нажать на кнопку поле b потом в Обпасти данных выделить место для построения расчетного итогового поля. Создаем форму Товары с помощью мастера форм Для создания иерархичной формы Товары и их цены в...
35231. Створення базових таблиць різними способами 164 KB
  Мета заняття: вивчити способи створення базових таблиць. Вивчити умови необхідні для створення взаємозвязаних таблиць і прийоми їх створення. Опишіть способи створення базових таблиць.
35233. Метод Ейлера вирішення задачі Коші 38.5 KB
  Мета: Навчитися будувати розв’язок задачі Коші по методу Ейлера. Скласти програму.
35234. Метод Рунге-Кутта вирішення задачі Коші. Складання алгоритму 37.5 KB
  Навчитися вирішувати задачу Коші методом Рунге-Кутта; скласти алгоритм.
35235. Тема: Екстраполяційний метод Адамса розвязання задачі Коші. 42 KB
  h double Fdouble x double y { return cos2xy1.5xy; } void min {int n; double hb; doublek=new double [4]; doubleq=new double[n1]; doubledq1=new double[n1]; doubledq2=new double[n1]; doubledq3=new double[n1]; doublex=new double[n1]; doubley=new double[n1]; cout Vvedite bh endl; cin ; cin b; cin h; cout Vvedite y[0] endl; cin y[0]; n=b h; x[0]=; cout x y ; cout endl; cout ; cout endl; for int i=0; i =2; i { k[0]=hFx[i]y[i]; k[1]=hFx[i]h 2y[i]k[0] 2;...
35236. Формули Н’ютона через кінцеві різниці 40 KB
  Формули Нютона через кінцеві різниці Мета. Навчитися обчислити значення функції при даному значенні аргумента використовуючи формули Нютона через кінцеві різниці.
35237. Настройка компютерної системи засобами BIOS SETUP 36.5 KB
  Включіть ПК, після появи службової інформації на екрані дисплея натисніть клавішу DELETE для запуску програми BIOS SETUP.