Построение эллипса Опции

[DmP]

В общем есть прога на паскале, строящая эллипс по точкам :

Program circle;
uses crt, graph;
var graphdriver,graphmode: integer;
    yy,x0,y0,x,a,b: integer;
    y,xx: real;
Begin
 graphdriver:=detect; clrscr;
 write('Введите координаты центра эллипса  : '); readln(x0,y0);
 write('Введите a,b  : '); readln(a,b);
 initgraph(graphmode,graphdriver,'f:\bp\BGI'); cleardevice;
 for x:=0 to a do
  begin
   y:=round(sqrt(1-sqr(x)/sqr(a))*b);
   putpixel(x+x0,y+y0,7); putpixel(x+x0,-y+y0,7);
   putpixel(-x+x0,y+y0,7); putpixel(-x+x0,-y+y0,7);
  end;
 for yy:=0 to b do
  begin
   xx:=round(sqrt(1-sqr(yy)/sqr(b))*a);
   putpixel(xx+x0,yy+y0,7); putpixel(xx+x0,-yy+y0,7);
   putpixel(-xx+x0,yy+y0,7); putpixel(-xx+x0,-yy+y0,7);
  end;
 readkey;
 closegraph;
End.

Вопрос : можно ли её как-нибудь переделать не используя посторонних функций округления в формуле, наподобие round и trunc. Если можно, то каким образом ?

[andriano]

Ну, не хочешь говорить, тогда не обижайся:

function MyTrunc(a : real):integer;
var
  i,j : integer;
begin
  i := -32767;
  while ((i-1) < a) and (i < 32767) do inc(i);
  MyTrunc := i;
end;

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

[DmP]

Ну, не хочешь говорить, тогда не обижайся:

function MyTrunc(a : real):integer;
var
  i,j : integer;
begin
  i := -32767;
  while ((i-1) < a) and (i < 32767) do inc(i);
  MyTrunc := i;
end;

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

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