Условный оператор

Помните, как в старой доброй сказке витязь стоял перед вещим камнем и читал надпись не нем: «Направо пойдёшь – коня потеряешь, себя спасёшь; налево пойдёшь – себя потеряешь, коня спасёшь; прямо пойдёшь – и себя и коня потеряешь»? Чего ждал он, о чем размышлял? Естественно, о проблеме выбора, ведь у него стояла не лёгкая задача – в любом случае витязь что-то терял. Благо, что нам нечего терять, но выбирать придется.

Условный оператор

THEN оператор1 ELSE оператор2 ; Пример: if a 0 then y := 2*a else y := a + 3 ; " width="640"

Полное ветвление

If

-

+

Логическое

выражение

Then

Else

Оператор 2

Оператор 1

IF логическое выражение

THEN оператор1

ELSE оператор2 ;

Пример:

if a 0 then y := 2*a else y := a + 3 ;

THEN оператор ; Пример: if a 0 then y := 2*a ; " width="640"

Неполное ветвление

If

-

+

Логическое

выражение

Then

Оператор

IF логическое выражение

THEN оператор ;

Пример: if a 0 then y := 2*a ;

=, =, (не равно). Например: x 5; 2*s1 15.3; w = ’Yes’; j 4; z3 = 3/а; t 10; " width="640"

Логическое выражение

Простое условие представляет собой строку, содержащую операцию сравнения (отношения) с использованием знаков: , =, =, (не равно).

Например:

x 5; 2*s1 15.3; w = ’Yes’; j 4; z3 = 3/а; t 10;

5 ) ; ( s1 ) And ( s2 20 ) ; ( w = ’Yes’ ) Or ( w = ’Да’ ) ; " width="640"

Логическое выражение

Сложное условие представляет собой строку, содержащую простые условия, объединенные знаками логических операций: Not, And, Or (не, и, или) .

Например:

Not ( x 5 ) ; ( s1 ) And ( s2 20 ) ;

( w = ’Yes’ ) Or ( w = ’Да’ ) ;

THEN оператор1 ELSE оператор2 ; Оператор1, Оператор2 – любой оператор Паскаля Ввода: Readln Вывода: Writeln Присваивания: := Условный: IF . . . THEN . . . ELSE (вложенный) Цикла, множественного выбора Составной оператор " width="640"

IF логическое выражение

THEN оператор1

ELSE оператор2 ;

Оператор1, Оператор2 – любой оператор Паскаля

• Ввода: Readln
• Вывода: Writeln
• Присваивания: :=
• Условный: IF . . . THEN . . . ELSE (вложенный)
• Цикла, множественного выбора

• Составной оператор

Y THEN MAX:=X ELSE MAX:=Y ; Writeln (‘max=’, max); End. " width="640"

Примеры использования

• Найти максимум (max) для двух величин X, Y.

Program max_xy;

Var x, y, max : integer;

Begin

Writeln(‘Введите два числа’);

Readln(x, y);

IF X Y THEN MAX:=X ELSE MAX:=Y ;

Writeln (‘max=’, max);

End.

• Вычислить

Y = {

X+3, для X

X 2 , для остальных Х.

Program xy;

Var x, y : integer;

Begin

Writeln(‘Введите аргумент Х’);

Readln(x);

IF X THEN Y:=X+3

ELSE Y:=X*X;

Writeln (‘Y=’, Y);

End.

Y THEN MAX:=X ELSE MAX:=Y ; IF Z MAX THEN MAX:=Z ; Writeln (‘max=’, max); End. " width="640"

Примеры использования

2. Найти максимум (max) для трех величин X, Y, Z.

Program max_xyz;

Var x, y, z, max : integer;

Begin

Writeln(‘Введите три числа’);

Readln(x, y, z);

IF X Y THEN MAX:=X ELSE MAX:=Y ;

IF Z MAX THEN MAX:=Z ;

Writeln (‘max=’, max);

End.

3, то уменьшить В на 5, а если это не так, удвоить В. Вывести В. " width="640"

Задания. Составить программы

1. Вычислить

Y = {

7X - 3 для X  0

2X 3 для остальных Х.

2. Найти лучший результат по бегу на 100 м для трех участников.

3. Ввести В. Если значение величины В 3, то уменьшить В на 5, а если это не так, удвоить В. Вывести В.

Записать на Паскале

Домашнее задание:

§ 4.2.2.

Написать программу:

• Даны два действительных числа. Меньшее из них замените полусуммой этих чисел, а большее – их произведением.
• Если данное число х меньше нуля, то z присвойте значение большего из двух чисел x и y, иначе z присвойте значение полусуммы этих чисел
• Имеется прямоугольное отверстие со сторонами a и b и кирпич с ребрами x, y, z . Напишите программу проверяющую выполнение условия прохождения кирпича в отверстие.

a

b

y

z

x