Pascal/Turbo Pascal - funcion para dibujar un circulo modo grafico

{A ver si esto te sirve}

program elcirculo;

 uses

    crt, graph;

 var

   drive, modo : integer;

  procedure initgrafico;

  begin

      drive := detect;

      initgraph(drive,modo,'c:\tp\bgi');

      if graphresult <> 0 then

      writeln('  Error Directorio [bgi] No Encontrado ');

  end;

  procedure circulo(xc, yc, radio : integer; color : byte);

   var

     ang : integer;

     x1, y1 : integer;

  begin

     ang := 0;

   repeat

     x1 := round(radio * cos(ang));

     y1 := round(radio * sin(ang));

     putpixel(x1 + xc, y1 + yc, color);

     inc(ang);

   until ang > 1256;

  end;

  begin

      initgrafico;

      circulo(200,100,24,15);  {Datos 1=posicion x  2=posicion y

                                      3=radio del circulo 4=color

                                        del circulo}

      outtextxy(100,194,'Pulse Una Tecla');

      readkey;

      closegraph;

  end.