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.


 

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

44114. Подготовка печатной машины Speedmaster SM 102 к печатанию тиража и получение контрольного оттиска 1.3 MB
  Установка и приладка валиков.Подготовка валиков увлажняющего аппарата Сразу по возвращению в Германию Каспар Херманн смог получить патент на офсетную машину работа которой была основана на принципе использования резиновых валиков что позволяло печатать с лицевой и оборотной стороны листа. Красочный аппарат состоит из красочного ящика кипсейки дукторного вала системы обрезиненных валиков и металлических цилиндров различного диаметра накатных валиков но может содержать дополнительно валикинаездники и мостовой валик.
44116. Совершенствование инвестиционной деятельности полиграфического предприятия по повышению качества печатной продукции и ее экономическая оценка на примере ООО «Пронто-Калининград» 2.37 MB
  ТЕОРЕТИЧЕСКИЕ ОСНОВЫ ИНВЕСТИЦИОННОЙ деятельности предприятия. Сущность и понятия инвестиционной деятельности предприятия. Особенности инвестиционной деятельности предприятия в современных условиях. Методы оценки и показатели совершенствования инвестиционной деятельности предприятия.
44117. Технология изготовления отливки «Обечайка» массой 47 т из стали 10ГН2МФАЛ 1.72 MB
  Этапы формирования отливки. Технологические приёмы воздействия на процессы затвердевания и охлаждения отливки в литейной форме. Способы воздействия на характер формирования отливки на этапе охлаждения расплава до температуры кристаллизации. Получение заданных свойств для отливок ответственного назначения. Проектирование технологии изготовления отливки Обечайки парогенератора ПГВ1000 в литейных формах с дифференцированным отводом тепла.
44118. Модель создания единого информационного пространства образовательного учреждения с применением сетевых информационных технологий 1.25 MB
  Особую роль в данной форме самообразования могут занять социальные сети и социальные сообщества функционирующие в Интернете. Все больше преподавателей осваивают работу в Сети и начинают использовать ее в образовательном процессе. При условии создания в учебном заведении Интернет-системы следующим шагом становится выход на более высокий уровень функционирования информационного пространства Интернет предусматривающий создание и открытие доступа всем непосредственным участникам учебного процесса и внешним посетителям к сайту учебного...
44119. Технологический процесса производства сборной жестяной консервной тары 4.79 MB
  В некоторых случаях можно отказаться от применения пайки продольного шва. Продольный шов можно соединять с помощью клеящего устройства и герметизировать уплотняющими средствами. Благодаря этому становиться возможным изготовление герметичных сборных жестяных банок из неподдающихся пайки исходных материалов.
44120. Разработка способов сжигания твердого топлива ОАО «Экспериментальная ТЭС» 1.73 MB
  Расчет мощности на перекачку воды Расчет деаэратора питательной воды ДПВ до реконструкции на каждый котел установлен один деаэратор. Расчет теплового баланса деаэратора питательной воды ДПВ. Выбор деаэратора питательной воды ДПВ.
44121. Транспортировка грузов 1.01 MB
  Поэтому для обеспечения высоких эксплуатационных характеристик грузоподъемных кранов и их безаварийной работы машинист крана крановщик и обслуживающий персонал должны знать хорошо назначение область применения и устройство кранов их конструктивные особенности технические характеристики устройство и работу крановых механизмов электрооборудования приборов и устройств безопасности. Кроме того машинист крана должен знать правила безопасной эксплуатации кранов их технического обслуживания и ремонта современную прогрессивную технологию и...
44122. МОТИВАЦИИ УЧЕБНОЙ ДЕЯТЕЛЬНОСТИ ПЕРВОКЛАССНИКОВ С ЗАДЕРЖКОЙ ПСИХИЧЕСКОГО РАЗВИТИЯ 588.5 KB
  Мотивационную сферу человека с точки зрения ее развитости можно оценивать по следующим параметрам: широта, гибкость и иерархизированность. Под широтой мотивационной сферы понимается качественное разнообразие мотивационных факторов — диспозиций (мотивов), потребностей и целей, представленных на каждом из уровней.