36576

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

Контрольная

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

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

Русский

2013-09-22

31 KB

2 чел.

Оператор выбора 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.


 

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

49256. Редуктор червячно-цилиндрический двухступенчатый 356.53 KB
  Коэффициент потерь одной зубчатой пары при тщательном выполнении и надлежащей смазке не превышает обычно 001. Коэффициент нагрузки: Cg= 1.45 Мпа; SH коэффициент безопасности SH = 11; ZN коэффициент долговечности учитывающий влияние ресурса. продолжительность смены; kг=085 коэффициент годового использования; kс=06 коэффициент суточного использования.
49257. Аппарат с механическим перемешивающим устройством 10.69 MB
  Характер работы аппаратов бывает непрерывный и периодический, а установка их может быть стационарной (в помещении или на открытой площадке) и не стационарной (предусматривающей или допускающей перемещение аппарата).
49259. Привод цепного конвейера 975.19 KB
  Выбираем допустимое контактное напряжение: Скорость скольжения в зацеплении предварительно принимаем равной Берем коэффициенты табл. 67 Находим допустимое напряжение изгиба для нереверсивной работы Так как венец червячного колеса изготовлен из бронзы то где KFLкоэффициент долговечности суммарное число циклов перемен напряжений Определяются основные параметры передачи и сил действующих в зацеплении: Передаточное отношение червячной передачи Червяк четырехзаходный поэтому z1=4 Находим число зубьев червячного колеса ...
49261. Проект организации ТО и ремонта МТП в ЦРМ хозяйства с годовым объемом работ 56 тыс. часов 729.34 KB
  В курсовом проекте рассчитана центральная ремонтная мастерская хозяйства, обоснован технологический процесс технического обслуживания и ремонта машинного парка, в ЦРМ хозяйства с годовым объемом работ 56000 часов, разработан компоновочный план ЦРМ...
49264. Исследование четырехзвенника на кинематический и силовой анализ 1005.3 KB
  Определить скорости и ускорения во всех узлах механизма. Провести силовой анализ всех звеньев,определить уравновешивающую силу, действующую на ведущее звено.