Viertelkreis Zeichnen

[wolfgang_SV]

und so könnte man das z.B. machen...

Delphi-Quellcode:

procedure Tform1.viertelkreis;
  var x1,y1,i : integer;
  p           : array[1..100,1..2] of integer;

  begin

  for i:=1 to 100 do
    begin
    x1:=3*i;
    y1:=round(abs(sqrt(300*300-x1*x1)));
    p[i,1]:=x1;p[i,2]:=y1;
    end;

  for i:=1 to 99 do
    begin
    paintbox1.canvas.moveto(p[i,1],p[i,2]);
    paintbox1.canvas.lineto(p[i+1,1],p[i+1,2]);
    end;
  end;