Delphi-PRAXiS - Einzelnen Beitrag anzeigen - Delphi natürliche, ungerade zahlen addieren

**negaH**

Delphi-Quellcode:

			temp := (x +1) div 2;

Result := temp * temp;

das vermeidet die Fließkommaberechnungen und mit Int64 kann X bis Wurzel(MaxInt64) * 2 = $FFFFFFFF gehen.

Gruß Hagen

negaH Registriert seit: 25. Jun 2003 Ort: Thüringen 2.950 Beiträge	#21 Re: natürliche, ungerade zahlen addieren 30. Sep 2006, 20:31 markieren Delphi-Quellcode: temp := (x +1) div 2; Result := temp * temp; das vermeidet die Fließkommaberechnungen und mit Int64 kann X bis Wurzel(MaxInt64) * 2 = $FFFFFFFF gehen. Gruß Hagen
	Zitat