4.Условный оператор в языку поскаль

if выражение then

оператор1

else

оператор2;

Условный оператор в короткой форме работает по правилу: если булевское выражение истинно, то выполняется оператор, далее выполняется оператор, следующий за условным. Если булевское выражение ложно, то будет выполняться оператор, следующий за этим условным оператором.

Условные операторы позволяют выбирать для выполнения те или иные части программы в зависимости от некоторых условий.

Алгоритм решения задачи вычисления z= max( x, y) можно задать в виде условного оператора Паскаля

if x>y then z:= x else z:= y

При формулировании алгоритмов весьма типичной является та­кая ситуация, когда на определенном этапе вычислительного про­цесса какие-либо действия надо выполнить только при выполнении некоторого условия, а если это условие не выполняется, то на дан­ном этапе вообще не нужно выполнять никаких дейст­вий. Про­стейшим примером такой ситуации является замена текущего зна­чения переменной х на абсолютную величину этого значения: если x<0, то необходимо выполнить оператор присваивания x:= - x; если же x>=0, то текущее значение х должно остаться без изменений, т.е. на данном этапе вообще не надо выполнять каких-либо дейст­вий.

5. Оператор переключатель Паскаля позволяет выбрать одно из нескольких возможных продолжений программы. Параметром, по которому осуществляется выбор, служит ключ выбора – выражение любого порядкового типа.

Структура оператора выбора в Паскале такова:

Case <ключ_выбора> of  <список_выбора> [else <оператор_иначе>] end

Здесь case, of, else, end – зарезервированные слова (случай, из, иначе, конец);

<ключ_выбора> - выражение порядкового типа;

<список_выбора> - одна или более конструкций вида:

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

<константа_выбора> - константа того же типа, что и выражение

<ключ_выбора>;

<операторы> - произвольные операторы Паскаля.

Оператор выбора Паскаля работает следующим образом. Вначале вычисляется значение выражения <ключ_выбора>, а затем в последовательности <спи­сок_выбора> отыскивается константа, равная вычисленному значению. Выпол­няется оператор, который следует за найденной константой, после чего оператор выбора завершает работу. Если в списке выбора не будет найдена константа, со­ответствующая вычисленному значению ключа выбора, управление передается операторам, стоящим за словом else. Часть else <оператор_иначе> можно опус­тить, тогда при отсутствии в списке выбора нужной константы не будет выпол­нено никаких действий, и оператор выбора просто завершит свою работу.

Например, составим программу, которая по номеру дня недели выводит на эк­ран его название:

Program dni_nedeli; Var n: byte;  Begin      Readln(n);      Case n of 1: writeln(‘понедельник ’); 2: writeln(‘вторник ’); 3: writeln(‘среда ’); 4: writeln(‘четверг ’); 5: writeln(‘пятница ’); 6: writeln(‘суббота ’); 7: writeln(‘воскресенье’);         else writeln(‘дня недели с номером’, n,’нет’);     end; end. 

Все константы из списка выбора должны быть различны.

Любому из операторов списка выбора может предшествовать не одна, а не­сколько констант выбора, разделенных запятыми. Например, следующая про­грамма при вводе одного из символов ‘ y’ или ‘ Y’ выведет на экран «Да», а при вводе ‘ n’ или ‘ N’ – слово «Нет».

Var ch: char;  Begin  Readln(ch);      Case ch of N, n: writeln(‘Да ’); Y, y: writeln(‘Нет ’);     End; End.