Определить попадает ли точка в заданный диапазон. Написать программку.Pascal

Var
    x, y, r: real;

begin
    read(x, y, r);
    if ((x gt;= 0) and (y gt;= 0) and (x * x + y * y lt;= r * r))
        or ((x lt; 0) and (y lt; 0) and (x + y gt;= -r)) then
        write('да')
    else
        write('нет');
end.

Серж Быковский 2019-08-17 13:27:30

не верно у вас, к примеру точка -0.8 -0.1 r=1 (в зону попадает), а у вас нет

Светлана Губайс 2019-08-17 13:36:05

либо для вас просто надобно чтоб этих if было много? это окончательно можно сделать, но смысла никакого, только больше писать придется

Катя Сыргобаева 2019-08-17 13:25:58

ну так и есть одно если, этого довольно. задачка правильная

Василиса Ковынцева · Answer 2 · 2019-08-17 13:31:42+3:00

Var x,y,r:real;
begin
read(x,y,r);
if (xgt;=0) and (ygt;=0) and (x^2+y^2lt;=r^2) and (xlt;=0) and (ylt;=0) and (x+ygt;= -r) then write('попадает') else write('нет');
end.

О проекте

Определить попадает ли точка в заданный диапазон. Написать программку.Pascal

Добро пожаловать!