Паскаль графика

[BuTeK1]

Уважаемые программисты !
Помогите пожалуйста доделать задачу !
Задание
С клавиатуры ввести кардинаты точки. Программа должна определить находится ли точка в графическом режиме на нарисованных фигурах (с x и y осью и соответствующими кардинатами ) внутри,снаружи, или на линии ! Точку надо показать на рисунке и вывести соответствующие сообщение на экран. Фигуры закрасить полосками.
Использовать оператор if ! Я незнаю что нужно писать чтобы определялась где находится точка (внутри,снаружи или на линии) !
Вот что я написал -
Program uzd1;

Uses graph,crt;

Var a,r,b,c,x,y,e,midx,midy:integer;

Begin
writeln('Vvedite to4ki');
read(a,b);


x:=detect;

InitGraph(x,y,' ');


e:=graphresult;

if e<>grok then writeln ('ERROR');


CLEARDEVICE;
SETCOLOR(1);
MOVETO(GETMAXX DIV 2, GETMAXY DIV 2);
OUTTEXTXY(GETX, GETY,'0');


midx:=getmaxX div 2;

midy:=getmaxy div 2;

Line(0, round(GetMaxY/2), GetMaxX,

Round(GetMaxY/2));

Line(round(GetMaxX/2), 0,

Round(GetMaxX/2), GetMaxY);


Rectangle(midx-400,midy+0,midx-200,midy-200);

rectangle(midx - 0,midy - 200 ,midx + 200 , midy + 0 );

CIRCLE (735, 600, 100);

SetfillStyle(5,brown);
floodfill(midx-100,midy+100,blue);
floodfill(midx+100,midy-100,blue);
floodfill(midx-300,midy-100,blue);


setcolor(green);
outtextxy(midx+5,midy-200,'+2');
outtextxy(midx-200,midy-10,'-2');
outtextxy(midx+200,midy-10,'+2');
outtextxy(midx-400,midy-10,'-4');
outtextxy(midx+5,midy+200,'-2');
Setfillstyle(1,4);
setcolor(4);
Sector (midx+a*100,midy-b*100,0,360,4,4);
readkey;
Readln;

CloseGraph;
End.
BuTeK1 вне форума Ответить с цитированием