Programmer 7500/MAX_PROGRAMMERS.iso/INFO/TURBOPAS/TURBO.ZIP/DRAWCIRC.PAS

Pascal/Delphi Source File | 1983-01-08 | 404 b | 16 lines

(* procedure for drawing a circle *)
procedure drawcircle(x1,y1,r: integer);
   var temp,x,z : integer;
   begin
   z := x1-r;
   for x := z to x1 do
   begin
     temp := y1-trunc(sqrt(r*r-(x1-x)*(x1-x)));
     gotoxy(x*2,temp); write('a');
     gotoxy(x*2,2*y1-temp); write('b');
     gotoxy((2*x1-x)*2,temp); write('c');
     gotoxy((2*x1-x)*2,2*y1-temp); write('d');
   end;
   end;