Не могу решить программу в турбо Паскале! Помогите пожалуйста="(

Question

Определить, принадлежит ли заданная точка Х левой половине круга с центром (-3,5;-2) и R=4,5 a) X(-1,5;2) б) X (-5,5;1) в) X(-2,5;-2,5)

Денчик · Accepted Answer

Как-то так 
 
program round; 
uses 
 crt; 
var 
 R: Real; { Радиус круга } 
 x0, y0: Real; { Координаты центра круга } 
 x, y: Real; { Координаты проверяемой точки } 
 
{ Функция проверки принадлежности точки левой части круга } 
function PointInRound(x, y, x0, y0, R: Real): Boolean; 
begin 
 PointInRound := False; 
 if (x < x0) and ((x - x0) * (x - x0) + (y - y0) * (y - y0) <= R * R) then 
 PointInRound := True; 
end; 
 
begin 
 ClrScr; 
 WriteLn('Координаты центра круга: '); 
 WriteLn('x0 = '); 
 ReadLn(x0); 
 WriteLn('y0 = '); 
 ReadLn(y0); 
 WriteLn('Введите радиус круга: '); 
 ReadLn(R); 
 WriteLn('Введите x: '); 
 ReadLn(x); 
 WriteLn('Введите y: '); 
 ReadLn(y); 
 if (PointInRound(x, y, x0, y0, R) = True) then 
 WriteLn('Точка находится в левой части круга') 
 else 
 WriteLn('Точка находится вне левой части круга'); 
 WriteLn('Press Any Key'); 
 ReadLn; 
end.

Алексей Воробушков · Answer

не понятен вопрос. Что в итоге то в турбо Паскале надо написать? Ответ на а) , б) и в) или что?

Николай Кротков · Answer

#del