Оператор выбора. Алгоритм с ветвлением.

Для реализации алгоритмов с ветвлением в Турбо Паскаль используется оператор выбора. Формат оператора:

If условие then оператор_1 else оператор_2;

Соответствующая граф-схема будет выглядеть так:

Как правило, в условии используются знаки операций отношения (<, >, =,<>, <=, >=).

Условие может быть записано и сложным логическим выражением. В сложных логических выражениях используются логические операции: and (И), or (ИЛИ), not (НЕ). Отношения, связываемые логическими операциями, заключаются в скобки. Например, требуется определить, есть ли среди чисел a, b, c хотя бы одно равное нулю. Для этого можно составить следующий условный оператор:

IF (a=0) OR (b=0) OR (c=0) THEN WRITE(‘YES’) ELSE WRITE(‘NO’);

Также в сложном условии могут быть использованы и мультипликативные операции:

mod – остаток от деления, div – целая часть от деления.

Например, требуется определить, является ли число а – нечетным.

IF a MOD 2<>0 THEN WRITELN(‘YES’) ELSE WRITELN(‘NO’);

В качестве примера приведем решение задачи: "Из двух чисел выбрать наибольшее".

Program Example;

Var A,B,C : Real; {A,B - для хранения двух вводимых чисел, C - результат}

Begin

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

Readln(A,B); {Вводим аргументы с клавиатуры}

If A>B Then C:=A Else C:=B; {Если A>B, то результат - A, иначе результат - B}

Writeln(C:6:3); {Выводим результат на экран}

End.

Задание 9. В новом файле наберите текст программы. Сохраните программу в файл Ваши_инициалы5.PAS. Запустите программу, изучите ее работу.

Задание 10. Измените программу так, чтобы она вычисляла модуль числа (см. блок-схему в тетради). Запустите программу и проверьте правильность ее работы. Сохраните программу в файл Ваши_инициалы6.PAS.

Задание 8. Создайте программу в среде Turbo Pascal, решающую задачу согласно вашему варианту (вариант узнать у преподавателя). Запустите программу и проверьте правильность ее работы. Сохраните программу в файл Ваши_инициалы7.PAS.

1. Проверить квадратное уравнение на наличие корней.

2. Дано целое число. Определить, является ли оно кратным 11.

3. Написать программу, определяющую, принадлежит ли точка (x,y) графику функции y = ax² + bx + c.