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

Прим ер 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 прямоугольнику с координатами Х₁, X₂, Y₁, Y₂ (рис. 5.2).

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

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

X ≥ X₁ и X ≤ X₂

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

Y≥Y₁ и Y≤Y₂

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