Оператор условного перехода

Ветвление – это такая форма организации действий, при которой в зависимости от выполнения или невыполнения некоторого условия совершается либо одна, либо другая последовательность действий. Каждое отдельное направление вычислений называется ветвью. Выбор ветви осуществляется в результате проверки логического условия.

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

Выбор действия в зависимости от выполнения условия может быть реализован при помощи оператора IF.

Неполная форма: IF условие THEN серия;

Условие - это логическое выражение, принимающее значение истина или ложь.

Выполняется инструкция так: если условие истинно, то выполняется серия, иначе выполняется следующая за IF..THEN инструкция. Серия - один оператор языка.

Полная форма: IF условие THEN серия1

ELSE серия2;

Если условие истинно, то выполняется серия1, иначе выполняется серия2.

Перед словом ELSE точка с запятой не ставится!

При сложных условиях применяются логические связки:

And - истинно, когда истинны все составляющие логические выражение

Пример: ((x>=0) and (x<=5)) истинно для x из интервала [0;5] и ложно при x=6

Not -истинно, когда ложно исходное логическое выражение

Пример: not(x>=0) истинно для x=-5 и ложно для x=6

Or - истинно, когда истинно хотя бы одно из логических выражений

Пример: ((a<5) or (a>9)) истинно для a=2 и ложно для a=6

Пример 1. Найти большее из двух чисел а и b.

Блок-схема:

Program Bid; Uses crt;

var a,b,max: integer;

Begin

ClrScr;

write(' Введите целое число а='); readln(a);

write(' Введите целое число b='); readln(b);

if a>=b then max:=a { если условие =true,то max:=а }

else max:=b; { если условие =false,то max:=b }

writeln('Max=',max);

readkey;

End.

Задание 3. Составьте алгоритм и программу в соответствии с вариантом

1. Ввести два числа. Выдать на печать сумму чисел, если числа больше 10 и меньше 35.

2. Ввести два числа. Большее число возвести в третью степень, а меньшее увеличить на 10. На печать выдать сумму полученных чисел.

3. Ввести два числа. Если оба числа равны 5,5, то выдать их на печать, иначе удвоить число не равное 5,5.

4. Ввести два числа. Если первое число больше второго, ввести еще одно число. Выдать на печать сумму всех чисел, если они больше 150.

5. Ввести два числа. Из большего числа вычесть 100, а меньшее удвоить. На печать выдать произведение полученных чисел.

6. Ввести два числа. Если числа равны, то вывести на печать оба числа, иначе большее из чисел.

7. Ввести два числа. Если оба числа отрицательные, то сменить им знаки. На печать выдать среднее арифметическое полученных чисел.

8. Ввести два числа. Уменьшить первое число в 3 раза, второе увеличить на 5. Если сумма полученных чисел меньше 10,5, то вывести их на печать, иначе вывести на печать разность введенных чисел.

9. Ввести два числа. Если они равны, то выдать на печать их сумму, если не равны, то меньшее из чисел.

10. Ввести два числа. Если среднее арифметическое этих чисел больше 120, то уменьшить их на 10, иначе возвести в квадрат.

Пример 2. Вычислить значение переменной Y, если

Блок – схема:

Листинг программы:

Program L_3;

Var

X, Y: real;

BEGIN

Writeln(‘введите значение X’);

Readln (X);

If X = 0 Then Y:= 0 {проверка 1-го условия}

Else If X < 0 Then Y:=X² {проверка 2-го условия}

Else Y:= -X;

Write(‘результат Y = ’, Y:4:2);

END.

End.