Viertelkreis Zeichnen

[Chris1896]

Hallo Leute,

habe schon hier die Suche und auch google benutzt um etwas herauszufinden.

Ich beschäftige mich grade ein bisschen mit Paschal bzw. Delphi.

Habe nun ne Aufgabe wo ich nicht weiter komme. Ich muss ein Viertelkreis mit r:300 aus 100 Geradenstücken gezeichnet werden. Ich verstehe das nicht mit den 100 Geradenstücken.

Hoffe ihr könnt mir weiter helfen.

Gruß Chris

[Luckie]

Wir haben nicht die Aufgabe gestellt. Wenn du die Afgabenstellung nicht verstehst, solltest du denjenigen fragen, der die Aufgabe gestellt hat. Wir können auch nur raten. Und ich rate jetzt mal, dass du den Viertelkreis aus 100 Geradenstücken zusammensetzen sollst.

[Chris1896]

Das denke ich ja auch, ich meine damit das ich nicht verstehe wie ich das machen soll bzw. wie das funktioniert. kannst du mir dazu einen tipp geben?

[Klaus01]

ein Bild sagt mehr als ...

Grüße
Klaus

[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;

[Chris1896]

Danke euch beiden. Stand irgendwie aufn Schlauch, aber eigentlich ja relativ simpel.

Gruß