Пример программы со сложным логическим выражением

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

Решение. Рассматриваемая область состоит из двух частей, каждая из которых описывается системой неравенств.

I-я часть: х <= 0; х² + у² <=9; у > –х – 3.

II-я часть: х >= 0; х² + у² <= 25.

Рис. 3 Задание для разработки программы

Точка с координатами (x, у) лежит в заштрихованной области, если она принадлежит I-ой или II-ой части. Программа вводит координаты точки, вычисляет логическое выражение, определяющее принадлежность точки области и выводит соответствующее сообщение на экран.

Program Point;

{Описание переменных: x, у – координаты точки}

Var x, y: real;

Begin

{Ввод данных}

Writeln ('Введите значение x'); Readln (x);

Writeln ('Введите значение y'); Readln (y);

{Определение принадлежности точки заштрихованной области}

If (X<=0) and (Sqr(X) + Sqr(Y) <= 9) and (Y >= –X – 3)
or (X >= 0) and (Sqr(X) + Sqr(Y) <= 25)

thenWriteln ('Точка лежит в заданной области')

elseWriteln ('Точка не лежит в заданной области');

{Организация временной задержки}

Readln;

End.