CASE Оператор выбора CASE GOTO Оператор безусловного перехода GOTO

if Недостаточная гибкость оператора if Задание: преобразовать целое число (в диапазоне 0-9) к его словесному представлению. if Ziphra = 0 then write (Нуль); if Ziphra = 1 then write (Единица); if Ziphra = 2 then write (Два); …………………… Как вы видите, данный подход однообразный, утомительный и нерациональный. Язык Паскаль предоставляет для этих целей другую управляющую структуру (оператор выбора case)

Общая форма оператора выбора CASE case выражение of значение 1 : оператор (группа операторов); значение 2 : оператор (группа операторов); значениеN : оператор (группа операторов) else оператор (группа операторов); end; Сначала вычисляется значение выражения, стоящее после зарезервированного слова case, а затем выполняется оператор (или составной оператор), соответствующий результату вычисления выражения. Может случиться, что в списке выбора не окажется константы равной вычисленному значению ключа. В этом случае управление передается оператору, стоящему за словом ELSE

Примеры использования CASE case NUMBER mod 2 of 0 : writeln (NUMBER, - число четное) else : writeln (NUMBER, - число нечетное); end; case MONTH of 1, 2, 3 : writeln (Первый квартал); 4, 5, 6 : writeln (Второй квартал); 7, 8, 9 : writeln (Третий квартал); 10, 11, 12 : writeln (Четвёртый квартал); end;

Примеры использования CASE case CODE of 1 : for i := 1 to 5 do writeln (*******); 2 : begin {составной оператор} x:=sqr(y-1); writeln (x); end; 3 : {пустой оператор} end; case Chislo of 0..9 : write (Это число является цифрой);

Можно использовать CASE так: if (a 9) then writeln (Это число не является цифрой) else case a of 0 : writeln (ноль); 1 : writeln (один); 2 : writeln (два); 3 : writeln (три); 4 : writeln (четыре); 5 : writeln (пять); 6 : writeln (шесть); 7 : writeln (семь); 8 : writeln (восемь); 9 : writeln (девять); end;

А можно так: case a of 0 : writeln (ноль); 1 : writeln (один); 2 : writeln (два); 3 : writeln (три); 4 : writeln (четыре); 5 : writeln (пять); 6 : writeln (шесть); 7 : writeln (семь); 8 : writeln (восемь); 9 : writeln (девять) else writeln (Это число не является цифрой); end;

Решение задач Написать алгоритм, классифицирующий треугольники (остроугольные, прямоугольные, тупоугольные), если даны углы. Написать алгоритм, который по номеру дня недели - целому числу от 1 до 7 выдавать в качестве результата количество уроков в классе в соответствующий день. Напишите программу, которая по введенному числу из промежутка 0..24, определяет время суток. В зависимости от введённого символа L, S, V программа должна вычислять длину окружности; площадь круга; объём цилиндра.

GOTO Оператор безусловного перехода GOTO Оператор безусловного перехода, который имеет следующую форму записи: goto метка; Метка представляет собою число без знака в диапазоне либо последовательность латинских букв и цифр. Перед использованием метка должна быть объявлена в разделе описания меток, который сразу следует за разделом описания используемых модулей: Uses Crt, Graph; Label Metka1, Metka2; Const P=3.14; Var x : integer;

Использование GOTO в программе После описания метки ее можно использовать в программе. Метка записывается перед помечаемым оператором и отделяется от него двоеточием. А оператор goto должен помещен в то место программы, откуда выполняется переход. Оператор goto передает управление на оператор с заданной меткой. Оператор goto можно вставлять в любое место программы, где могут располагаться операторы языка. Например: Begin... if Alpha = 360 then goto Metka1 else writeln (Эта фигура - не окружность);... Metka1 : Arc(X,Y,0,Alpha,R);... End.

Ещё один пример: Metka : writeln(Введите цифру ); readln(a); case a of 0 : writeln (ноль); 1 : writeln (один); 2 : writeln (два); 3 : writeln (три); 4 : writeln (четыре); 5 : writeln (пять); 6 : writeln (шесть); 7 : writeln (семь); 8 : writeln (восемь); 9 : writeln (девять) else begin writeln (Это число не является цифрой); goto Metka; end; end;