01 семестр / Лабораторные работы / Все готовые лабы по паскалю / 1 лабораторка / pascal 01

2

Y

) точка задана своими координатами (X,Y).написать программу, которая, используя логические выражение выводит True, если точка принадлежит заштрихованной области и False- не принадлежит.

X

2

1

-2

1

-1

2

-2

• Текст программы:

program dima;

var

x,y:real;

q,q1,q2:boolean;

readln(x,y);

q1:=(sqr(x)+sqr(y)<=4) and ( x<=0 );

q2:=(sqr(x) +sqr(y)<=4) and ( x>=0 )

and (sqr(x) + sqr(y)> =1);

q:=q1 or q2;

writeln(q);

readln;

end.

• Исходные данные: 4 and 5; 0.5 and 0.5

Результат:FALSE; FALSE