Лекция: Примеры программирования вычислительных процессов с разветвлениями.

Пример 5.5.Даны целочисленные значения А и В. Если А = В, вы­вести Y = 1. Если А < В, вывести Y = 2. Если А > В, вывести Y = 3 Составим программу 5.3 проверки логических условий.

Программа 5.3

(*ПРОВЕРКА ЛОГИЧЕСКИХ УСЛОВИЙ*)

PROGRAM A38;
VAR

А, В:INTEGER; (* ВВОДИМЫЕ ДАННЫЕ *)

Y:INTEGER; (* РЕЗУЛЬТАТ *)

BEGIN

WRITELN('ВВЕДИТЕ ЗНАЧЕНИЯ А, В :' );

READ(А, В);

IF A=В THEN Y:=1

ELSE IF A<В THEN Y:= 2

ELSE Y:=3;

WRITELN(‘РЕЗУЛЬТАТ: ‘);

WRITE(‘Y=’,Y:1);

END.

Пример 5.6. Определить, принадлежит ли точка с координатами X, Y прямоугольнику с координатами Х1, X2, Y1, Y2 (рис. 5.2).

Рис. 5.2. Прямоугольник с координатами X, Y.

Координаты точки и прямоугольника действительного типа. Точка при­надлежит прямоугольнику, если одна координата точки имеет значение

X ≥ X1 и X ≤ X2

и если другая координата точки имеет значение

Y≥Y1 и Y≤Y2

Программа задачи имеет вид: