Харалампий 3 ноября 2019 в 11:22
Определить, попадает ли точка с координатами x0 , y0 в круг
радиусом r . Присвоить признаку N=1 , если точка находится внутри круга, и
N=0 , если точка вне круга. паскаль
Определить, попадает ли точка с координатами x0 , y0 в круг
радиусом r . Присвоить признаку N=1 , если точка находится внутри круга, и
N=0 , если точка вне круга. паскаль
//PascalABC.NET
var
x,y,r:real;
begin
write(Введите координаты точки и радиус круга: );
readln(x,y,r);
if sqr(x)+sqr(y) lt;= sqr(r) then
writeln(Точка попадает в круг.)
else
writeln(Точка не попадает в круг.);
end.
var
x,y,r:real;
begin
write(Введите координаты точки и радиус круга: );
readln(x,y,r);
if sqr(x)+sqr(y) lt;= sqr(r) then
writeln(Точка попадает в круг.)
else
writeln(Точка не попадает в круг.);
end.
Компьютеры и вычисления
205
86
Для комментирования необходимо зарегистрироваться на сайте