Pascal – язык структурного программирования. Оператор выбора case…of

Pascal – язык структурного программирования. Оператор выбора case…of

Учитель Комкова М.C.

Гимназия МИИТ

г. Москва

ОПЕРАТОР ВЫБОРА

• Оператор выбора является обобщением условного оператора: он дает возможность выполнить один из нескольких операторов в зависимости от значения некоторого выражения, называемого СЕЛЕКТОРОМ .

: оператор1 ; список меток2 : оператор2 ; . . . . . . . : . . . . . .; список метокN : операторN ; ELSE END; селектор - выражение любого перечисляемого типа, кроме вещественного; integer, byte (целые из [0;255]), char -символьный тип. оператор - любой оператор языка; список меток - список разделенных запятыми значений выражения 'селектор' или одно его значение; тип метки и селектора одинаков; " width="640"

• CASE OF { case (кейс) - выбор }
• список меток1 : оператор1 ;
• список меток2 : оператор2 ;
• . . . . . . . : . . . . . .;
• список метокN : операторN ;
• ELSE
• END;

селектор - выражение любого перечисляемого типа, кроме вещественного;

integer, byte (целые из [0;255]), char -символьный тип.

оператор - любой оператор языка;

список меток - список разделенных запятыми значений выражения 'селектор' или одно его значение; тип метки и селектора одинаков;

• Оператор варианта выбирает для исполнения тот ОПЕРАТОР, одна из меток которого равна текущему значению выражения СЕЛЕКТОР. Если ни одна из меток не равна текущему значению селектора, то никакие операторы не выполняются, либо выполняются операторы, следующие за зарезервированным словом ELSE

• З А Д А Н И Я :
• 1. Набрать приведенные ниже программы и выполнить их.
• 2. Во второй программе после ввести МЕНЮ для выбора меток.

• Program Primer_Case1;
• Uses crt;
• var n: integer;
• Begin
• clrscr;
• write(' Нажмите цифру 1…8'); readln(n);
• case n of
• 1,7: write(' В а н я ');
• 2: write('В а с я');
• 3: write('В а л я');
• 4: write('В а р я');
• 5: write('В а д я');
• 6: write('в а з а')
• else write(' Нет такой метки')
• end;
• readkey;
• End.

• Program Primer_Case2;
• Uses crt;
• var n:char; { char - символьный тип ,занимает 1 байт памяти }
• Begin
• clrscr; write(' Нажмите букву а .. е '); readln(n);
• case n of
• 'a': write(' Вы ввели символ а ');
• 'b': write(' Вы ввели символ b');
• 'c': write('Вы ввели символ c');
• 'd': write('Вы ввели символ d')
• else write('Вы ввели символ, которого нет среди меток')
• end ;
• readkey;
• End.

• З А Д А Н И Я :
• 1. Набрать программу и выполнить ее для четырех строк меню.
• 2. Самостоятельно дописать в программу вычисление площади треугольника.

Вычислить площади фигур, выбирая их из списка (меню)

• Program PLFigur; Uses crt;
• var s,a,b,h,r:real;
• n:integer;
• Begin
• ClrScr;
• writeln(' П Л О Щ А Д И');
• writeln(' =============');
• writeln(' 1. Прямоугольника.');
• writeln(' 2. Трапеции .');
• writeln(' 3. Круга .');
• writeln(' 4. Конец работы.');
• writeln;
• write('Введите номер строки :'); read ln (n);
• case n of
• 1: begin
• clrscr;
• write('Введите стороны прямоугольника a,b :');
• readln(a,b);
• s:=a*b;
• write('Площадь прямоугольника S=',s)
• end;

• 2: begin
• clrscr;
• write('Введите основания и высоту трапеции a,b,h :');
• readln(a,b,h);
• s:=(a+b)*h/2;
• write(' Площадь трапеции S=',s)
• end;
• 3: begin
• clrscr;
• write(' Введите радиус круга r=');
• readln(r);
• s:=pi*r*r;
• write(' Площадь круга S=',s)
• end
• else write(' ***** Работа окончена *****');
• end;
• readkey;
• End.