![]() |
Re: natürliche, ungerade zahlen addieren
Delphi-Quellcode:
das vermeidet die Fließkommaberechnungen und mit Int64 kann X bis Wurzel(MaxInt64) * 2 = $FFFFFFFF gehen.
temp := (x +1) div 2;
Result := temp * temp; Gruß Hagen |
Alle Zeitangaben in WEZ +1. Es ist jetzt 18:01 Uhr. |
Powered by vBulletin® Copyright ©2000 - 2025, Jelsoft Enterprises Ltd.
LinkBacks Enabled by vBSEO © 2011, Crawlability, Inc.
Delphi-PRAXiS (c) 2002 - 2023 by Daniel R. Wolf, 2024-2025 by Thomas Breitkreuz