Задача в паскале

Question

Задача в паскале

kevin Ученик (178), закрыт 13 лет назад

Помогите решить задачу которая обведена красным. у меня ни чего не получается вот мои попытки.

var x,y :real;
begin
readln(x,y);
if (x>0) and (y>0) then writeln (true) else writeln (false);
if (y<0) then
readln;
end.

Дополнен 13 лет назад

как правильно написать что Y<0

Дополнен 13 лет назад

границ не надо, главное чтоб во второй и третьей четверти выдавал true а в четвёртой и первой false

Дополнен 13 лет назад

Answer 1

Для верхней заштрихованной области:
. .
Writeln('Введи координаты X, Y:');
Readln(X,Y);
Writeln((X>=0) and (Y>=0) and (SQR(X)+SQR(Y)<=1)); {...<=1, если радиус окружности R=1}
. .
Вот это оформи как следует, тогда в результате работы прогр. кода, НАПРИМЕР,
при координатах: X=0.7, Y=0.5 получишь true;
при координатах: X=1.6, Y=1.7 получишь false.

Answer 2

не видно границы заштрихованного
у тебя помоему вообще интервалы -5<у<4 0.5<х<4 и 0.4<х<5
Вторая и третья? на рисунке 1 и 4