|
Registriert seit: 15. Jun 2010
Ort: Augsburg Bayern Süddeutschland
3.470 Beiträge
Delphi XE3 Enterprise
|
AW: Was ist daran falsch? kleiner Quelltext zu Wundersame Zahlen, Zahl gerade oder un
1. Jul 2014, 18:47
neben der fehlenden Zuweisung ist auch das Prüfen auf ODD (ungerade) vertauscht
if ODD(n) then n := (n*3)+1 else n := n div 2 ;
Thomas Wassermann H₂♂
Das Problem steckt meistens zwischen den Ohren
DRY DRY KISS
H₂♂ (wenn bei meinen Snipplets nichts anderes angegeben ist Lizenz: WTFPL)
|