Операторы языка Паскаль Условные операторы

Оператор условия ЕСЛИ (if) Оператор условия ВЫБОР (case) Условные операторы предназначены для выбора к исполнению одного из возможных действий, в зависимости от некоторого условия (при этом одно из действий может отсутствовать).

Оператор условия ЕСЛИ (if)

Оператор if может принимать одну из форм: If then else ; или If then ;

Оператор выполняется следующим образом. Сначала вычисляется выражение, записанное в условии. В результате его вычисление получается значение логического (булевского) типа. Если это значение – «истина», то выполняется оператор1, указанный после слова then. Если же в результате имеем «ложь», то выполняется оператор2. В случае, если вместо оператора1 или оператора2 следует серия операторов, то эту серию операторов необходимо заключить в операторные скобки begin…end ;. Обратить внимание, что перед словом else точка с запятой не ставится.

Пример : Даны два числа. Меньшее из этих чисел заменить суммой данных чисел, большее - произведением. Program sh; Var x, y,s,p: integer; Begin Write(Введите 2 числа); Readln(x, y); S:=x+y; p:=x*y; If x>=y then Begin y:=s; x:=p; end Else begin x:=s; y:=p; end; writeln(x=, x); writeln(y=, y); end.

Оператор условия ВЫБОР (case)

Оператор Case организует переход на один из нескольких вариантов действий в зависимости от значения выражения, называемого селектором. Общий вид: Case k of : ; ….. : else end; Здесь k – выражение-селектор, которое может иметь только простой порядковый тип (целый, символьный, логический)., … - константы того же типа, что и селектор.

При использовании оператора Case должны выполняться следующие правила: 1.Выражение-селектор может иметь только простой порядковый тип (целый, символьный, логический). 2.Все константы, которые предшествуют операторам альтернатив, должны иметь тот же тип, что и селектор. 3.Все константы в альтернативах должны быть уникальны в пределах оператора выбора.

Пример : Составить программу, которая по введенному номеру месяца выводит на экран название времени года. Program m; Var k:byte; Begin Write(Введите номер месяца); Readln(k); Case k of 1, 2, 12: writeln(Зима); 3, 4, 5: writeln(Весна); 6, 7, 8: writeln(Лето); 9, 10, 11: writeln(Осень) else writeln(Такого месяца нет); end; end.