Registriert seit: 31. Jul 2003
Ort: Lohsdorf
40 Beiträge
Delphi 6 Enterprise
|
Re: Wurzeln Wie schreibt man die
10. Nov 2006, 21:11
Ich glaube du kommst da mit einem anderen Ansatz besser:
Die Tripel kann man nämlich auch ausrechnen!
Du suchst dir einfach beliebige Zahlen a und b, wobei b immer kleiner sein sollte als a. Dann kannst du dir die 3 Zahlen ausrechnen:
x := a*a - b*b;
y := 2 * a*b;
z := a*a + b*b;
für a=2 und b=1 kriegst du z.B.
x=3, y=4 und z=5
Also nimm zwei Schleifen ineinander (so wie du's jetzt auch hast) für a und b und dann rechnest du die tripel alle nacheinander aus. Da brauchst du keine Wurzeln und es dürfte wesentlich schneller gehen.
gruß raYman
|