задачка про координаты Опции

[RrgTt_fx32!b]

Помогите пожалуйста решить задачку, а то мне препод неаттестацию влепит ((
подскажите хотябы как решать пожалуйста!

сама задача:
написать программу, которая определяет попадает ли точка с заданными координатами в заштрихованную область, результат вывести в виде текстового сообщения.
вот рисунок

Сообщение отредактировано: RrgTt_fx32!b - 7.12.2006 3:19

[RrgTt_fx32!b]

вот так правильно?

program qwer;
uses crt;
var 
s,r,x1,y1,x2,y2: real;
a,b,c: real;
begin 
clrscr;
writeln ('задайте коорд. центра окружности');
readln (x1,y1);
writeln ('задайте коорд. точки');
readln (x2,y2);
writeln ('введите значения a,b,c для формулы y=-ax^2+bx+c');
readln (a,b,c);
r:=sqrt(sqr(x1)+sqr(y1));
s:=sqrt(sqr(x1-x2)+sqr(y1-y2));
if s<=r then writeln ('точка принадлежит окр-ти'); 
if s>r then writeln ('точка не принадлежит окр-ти');
if (y2>=0) and (y2<=-a*(sqrt(x2))+b*x2+c) and (a<>0) and (x2<>0) 
then writeln ('точка лежит в параболе') 
else
if (y2<0) then writeln ('точка не лежит в параболе');
readln;
end.

 

Сообщение отредактировано: RrgTt_fx32!b - 8.12.2006 0:49