Question

Дано уравнение окружности в виде: х2+у2=49. С клавиатуры вводятся координаты х, y точки M(2, 4). Если точка оказывается внутри заданной области, то вывести сообщение «Точка принадлежит области», в противном случае вывести сообщение «Точка не принадлежит области».

В отчет включить текст программы на Паскале, реакцию ЭВМ.

Answer 1

Ответ:

Вариант 1 (точно по заданию)

program circle;

uses crt;

var

mx, my:real;

begin

mx:=2;

my:=4;

if (sqr(mx)+sqr(my)<=49) then

write('Точка принадлежит области')

else

write('Точка не принадлежит области')

end.

Вариант 2 (более совершенный)

program circle;

uses crt;

var

mx, my:real;

begin

write('Введите абциссу точки М》');

read(mx);

write('Введите ординату точки М》');

read(my);

if (sqr(mx)+sqr(my)<=49) then

write('Точка принадлежит области')

else

write('Точка не принадлежит области')

end.