Найти (х;y) принадлежащие заданной области. В паскале. Помогите пожалуйста
Приложения:
TaTaPmember:
Как-то вопрос криво сформулирован
Ответы
Ответ дал:
1
var x,y:real;
begin
write('X=');
read(x);
write('Y=');
read(y);
if (x>0) and (y>0) and (sqr(x)+sqr(y)<=16) or (x>0) and (y<0) and (sqr(x)+sqr(y)<=25) then writeln('Точка (',x,',',y,') принаджелит данной области')
else writeln('Точка (',x,',',y,' не принаджелит данной области');
end.
begin
write('X=');
read(x);
write('Y=');
read(y);
if (x>0) and (y>0) and (sqr(x)+sqr(y)<=16) or (x>0) and (y<0) and (sqr(x)+sqr(y)<=25) then writeln('Точка (',x,',',y,') принаджелит данной области')
else writeln('Точка (',x,',',y,' не принаджелит данной области');
end.
Вас заинтересует
10 месяцев назад
1 год назад
6 лет назад
6 лет назад
7 лет назад