Question

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

Answer 1

var x,y,r:real;
begin
read(x,y,r);
if (x>=0) and (y>=0) and (x^2+y^2<=r^2) and (x<=0) and (y<=0) and (x+y>= -r) then write('попадает') else write('нет');
end.

Answer 2

квадраты в паскале так не пишутся

Answer 3

Жаль но не так

Answer 4

var
    x, y, r: real;

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

Answer 5

типо что то такого должно получитьсяъ

Answer 6

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

Answer 7

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

Answer 8

надо именно через если. Просто превод д*ра даёт то что не объясняет.

Answer 9

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