Проблема с осями

[onded]

Ребят, вот есть у меня задача. В задаче сказано, чтобы программа могла вычислить где находится точка, если есть координаты. Скажу честно, совмещал работу друга и мою, но не могу добиться нужного результата с вычислением. Может ли кто-то помочь?? вот код:

program ccd;
uses graph,crt;
const c=50;
var grdriver,grmode,gre:integer;
    x,y,j:real;
    mx,my:integer;
    i:integer;
    s:string;
    k:char;

begin
clrscr;
repeat
clrscr;
writeln('vvedite koordinati:');
readln(x,y);

begin
grdriver:=detect;
initgraph(grdriver,grmode,'');
gre:=graphresult;
end;

      mx:=getmaxx div 2;
      my:=getmaxy div 2;
      cleardevice;
      setcolor(brown);
      line(0,my,getmaxx,my);
      line(mx,0,mx,getmaxy);
      i:=-5;



      cleardevice;

   setcolor(white);
line(589, 372,  639, 322);
line(589, 372,  639, 422);
line(689, 372,  639, 322);
line(689, 372,  639, 422);
line(539, 372,  639, 272);
line(539, 372,  639, 472);
line(739, 372,  639, 272);
line(739, 372,  639, 472);

   setcolor(white);


   setcolor(green);

   setfillstyle(3,yellow);
   floodfill(736,371,white);




     setcolor(brown);
      line(0,my,getmaxx,my);
      line(mx,0,mx,getmaxy);
      i:=-5;
         repeat
            if i<>0 then
            begin
               line(mx+round(i*c), my-7,mx+round(i*c),my+7);
               str(i:2,s);
               outtextxy(mx+round(i*c),my+8,s);
               line(mx-7,my+(i*c),mx+7,my+(i*c));
               outtextxy(mx+8,my+(-i*c),s);
            end;
         i:=i+1;
         until i>5;


     putpixel(mx+round(x*c),my-round(y*c),green);

      if ((x>=-2) and (x<=2) and (y<=2) and (y>=0)
      and ((y=((sqrt(4-sqr(x)))*10)/10)))
      or ((x>=-2) and (x<=0) and (y<=0) and (y>=-2)
      and ((y=((sqrt(4-sqr(x)))*10)/10)))
      or (x>=0) and (x<=2) and (y<=0) and (y>=-2) and (y=x-2)

      then

         outtextxy(1,50,'na liniji')

      else

         if ((x>-2) and (x<2) and (y<2) and (y>=0)
         and (y<sqrt(4-sqr(x))) and (y>-sqrt(4-sqr(x))))
         or ((x>-2) and (x<=0) and (y<=0) and (y>-2)
         and (y<sqrt(4-sqr(x))) and (y>-sqrt(4-sqr(x))))
         or (x>0) and (x<2) and (y>-2) and (y<0)
         and (y>x-2)
         then

            outtextxy(1,50,'vnutri')

         else

            outtextxy(1,50,'snaruzi');
   k:=readkey;
   closegraph;
   until k=#27;
end.

[Min]

подробнее задание напишите.....

[onded]

Мне только не хватает точного места нахождения пикселя... я не могу сделать так, чтобы программа точно вычисляла координаты точки. если пробовать вводить координаты, то он не показывает точно, т.к. программа расчитана на другую фигуру, а на ромб элементы не могу нужные поставить. Программа правильно выводит точку и в нужном месте, но она не точна в вычислениях.