For Schleife mit Extended?

jaenicke · Verfasst: So 28.11.10 22:59

Wie schon x mal geschrieben:

Delphi-Quelltext

1:	Canvas.LineTo(i, Round((-1 / 50) * (i - 150) * (i - 150)));

Und wo ist jetzt das Problem?

wayne123 · Beiträge: 52

Dann kommt jetzt nur oben in der Mitte ein kleiner Strich. Achja ich dachte wir hätten aneinander vorbeigeredet, kam mir irgendwie nicht logisch vor.

Edit: ahh ok, hab das +400 am Ende vergessen, okay danke, funktioniert jetzt, jetzt muss ich das nur noch mit den Zahlen in meinem richtigem Programm variieren, aber das bekomm ich hin. Round bedeutet jetzt, dass nicht direkt beim geteilt rechnen auf 1 sondern erst am Ende auf eine glatte Zahl gerundet wird, oder?

Ehemaliges Mitglied Erhaltene Danke: 1

markieren

Delphi-Quelltext

1:
2:
3:
4:
5:
6:
7:
8:
9:

procedure TForm1.Button1Click(Sender: TObject);
var i: integer;
begin
  Canvas.MoveTo(510, 100);
  for i := 0 to 200 do
  begin
    Canvas.LineTo(i, (1 div 50) * (i - 150) * (i - 150));
  end;
end;

Zeichnet einen schönen Winkel.

bummi · Verfasst: So 28.11.10 23:20

ich vermute Du meinst eine der beiden Varianten:

markieren

Delphi-Quelltext

1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:
12:

procedure TForm1.Button1Click(Sender: TObject);
var i: integer;
begin
Canvas.MoveTo(0,0);     //s 150,150 letzter p 200,100
for i:= 0 to 300 do
begin

//  Canvas.LineTo(i,Round( (i-150)*(i-150) / 50)); //halbes Rechteck, minus wird garnicht benutzt. -1div50             wahrscheinlich immer 1, oder?
  Canvas.LineTo(i,height - Round( (i-150)*(i-150) / 50) - 40); //halbes Rechteck, minus wird garnicht benutzt. -1div50             wahrscheinlich immer 1, oder?

end;
end;

_________________
Das Problem liegt üblicherweise zwischen den Ohren H₂♂
DRY DRY KISS

	Mitgliederliste
	Gruppen
	Das Team
	Richtlinien
	Synonyme