Оператор ветвления или условный оператор

Полное ветвление
IF <логическое выражение>
THEN <оператор1>
ELSE <оператор2>;
Пример:
if a > 0 then y := 2*a else y := a + 3 ;

Неполное ветвление
IF <логическое выражение>
THEN <оператор>;
Пример: if a > 0 then y := 2*a;

Логическое выражение
Простое условие представляет собой строку, содержащую операцию сравнения (отношения) с использованием знаков:
<, <=, >, >=, =, <> (не равно).
Например:
X > 5; 2*s1 < 15.3; w = ’Yes’; j <> 4; z3 >= 3/а; t <= 10;

Логическое выражение
Сложное условие представляет собой строку, содержащую простые условия, объединенные знаками логических операций: Not, And, Or (не, и, или).
Например:
Not ( x > 5 ); ( s1 < 15.3 ) And ( s2 > 20 );
(w = ’Yes’ ) Or ( w = ’Да’ );

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

Примеры использования
IF X > Y THEN MAX:=X ELSE MAX:=Y;
Найти максимум (max) для двух величин X, Y.
Program max_xy;
Var x, y, max : integer;
Begin
Writeln(‘Введите два числа’);
Readln(x, y);
Writeln (‘max=’, max);
End.

Примеры использования
IF X > Y THEN MAX:=X ELSE MAX:=Y;
IF Z > MAX THEN MAX:=Z;
2. Найти максимум (max) для трех величин X, Y, Z.
Program max_xyz;
Var x, y, z, max : integer;
Begin
Writeln(‘Введите три числа’);
Readln(x, y, z);
Writeln (‘max=’, max);
End.

X+3 для X<5
X2 для остальных Х.
IF X<5 THEN Y:=X+3
ELSE Y:=X*X;
Вычислить
Y = {
Program xy;
Var x, y : integer;
Begin
Writeln(‘Введите аргумент Х’);
Readln(x);
Writeln (‘Y=’, Y);
End.

Задания. Сохранить как if1, if2, if3 в папке Ветвление.
Y = {
7X - 3 для X ≥ 0
2X3 для остальных Х.
1. Вычислить
2. Найти лучший результат по бегу
на 100 м для трех участников.
3. Ввести В. Если значение величины В > 3,
то уменьшить В на 5, а если это не так, удвоить В. Вывести В.

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

Условный оператор
Урок 2
Вложенный if … then … else
Составной оператор после then и (или) else.

Записать оператор ветвления
IF B < J THEN
begin C := ‘ Y ’ ;
Writeln( C );
end
ELSE
begin C := ‘ N ’ ; Writeln( C ); end;

А = ?
Readln (X, Y);
Z := Y mod X;
IF Z > = 5 Then A := Y div X
Else A := ( Y – X ) / 2;
A = 3
A = 17

Х = ?
1. f:=5; d:=7;
IF f>=d THEN X:=f ELSE X:=d;
2. a:=3; b:=4;
IF a>b THEN X:=a*b ELSE X:=a-b;
3. a:=9; b:=8; c:=2;
IF (a>b) and (b>c) THEN X:=2 * a + b + c
ELSE X:=a-b;
4. a:=7; b:=3; c:=6;
IF (a<=b) or (a>c) THEN X := 4 * a + b
ELSE X:= a - b;
X = 7
X = -1
X = 28
X = 31

Вложенный оператор if … then … else
IF условие1 THEN оператор1
ELSE if условие2 then оператор2
else оператор3;
Оператор 1
Условие 1
может размещаться как после then, так и после else.
true
false
Оператор 3
Оператор 2
Условие2
true
false

Логическое
выражение
true
false
IF <условие> THEN
begin оператор1;
оператор2;
. . . end
ELSE
begin
оператор3;
оператор4;
. . .
end;
Составным оператором называется последовательность любых операторов, заключенная в операторные скобки begin (открывающая) и end (закрывающая).
Составной оператор

Определить значение Z
Readln (X, Y);
IF (X > 3) AND (Y < 2) Then Z := Y * X
ELSE IF (X> = 5) OR (Y <0) Then Z := Y / X
Else Z := ( Y – X ) / 2;
5
0.5
-0.5
-10

Y = {
X * 2 для X < 0,
X/(X-1) для Х >5,
sinX для всех остальных Х
0
5
X * 2
X/(X-1)
sinX
Var x, y : real;
Begin
Readln(x);
If X < 0 Then Y := X * 2
Else If X < 5 Then Y := sin(X)
Else Y := X/(X-1);
Writeln( ‘Y=‘, Y : 5 : 2);
End.
Y = ?

Создать программы для задач:
Y = {
X - 2 для X <0,
2/√X3 для Х ≥ 10,
| X | для всех остальных Х
1. Ввести Х, вычислить и вывести Y. Сохранить как if4.
Ввести три целых величины А, В и С .
Если абсолютное значение их суммы > 3, то уменьшить каждую величину на 1, а если это не так, заменить каждую величину её квадратом.
Вывести А, В и С. Сохранить в файле if5.

Создать и сохранить программы в папке Ветвление в файлах Р1, …, Р6
1. Вводятся оценки за контрольные работы по физике и информатике. Выведите на экран "Молодец", если их сумма равна или более 9, иначе выведите "Подтянись".
2. Ввести Х. Вычислить и вывести Z, если Х является допустимым. В противном случае выдать сообщение: «Х имеет недопустимое значение». Z вычисляется как корень квадратный из Х + 5.

Создать и сохранить программы в папке Ветвление в файлах Р1, …, Р6
3. Ввести радиус круга и сторону квадрата. У какой фигуры площадь меньше?
4. Введите Х и У – координаты точки на плоскости. Какой координатной четверти принадлежит точка? Нужно вывести соответствующее сообщение.
5. Дано целое число. Определить: Является ли оно четным; Оканчивается ли оно цифрой 7; Делится ли оно на 5.

Создать и сохранить программы в папке Ветвление в файлах Р1, …, Р6
6. Решить квадратное уравнение вида ах2 + bх + с = 0.
Алгоритм:
Ввести а, b и с – коэффициенты квадратного уравнения.
Вычислить величину d – дискриминант квадратного уравнения.
Если выполняется условие d < 0, тогда выдать сообщение: «уравнение не имеет корней», в противном случае выполнить последовательность действий: вычислить х1, вывести х1; вычислить х2, вывести х2;

Тестирование
1. Какое значение примет переменная X после
выполнения операторов:
2. Определите оператор, который переменной А присваивает
полу-разность Х и Y, если X больше или равен Y.
V
X = 7

Тестирование
3. В условном операторе после слова IF
записывается
V

Тестирование
4. Для организации ветвления в программе
используется
V

Тестирование
5. В условном операторе после слова THEN
записывается
V

Тестирование
6. Какой оператор определяет максимальное
значение M для величин А и В?
V

Тестирование
7. В условном операторе после слова ELSE
записывается
V

Тестирование
8. Чему будет равно значение переменной С
после выполнения команд:
С = 4

Тестирование
9. Определите значение переменной X, если
первоначальное значение Х равно 4.
Х = 7

Тестирование
10. Какие новые значения получат X и Y после
работы следующих операторов?
Х = 2 Y = 7