Deine Funktion soll eigentlich nur mit ganzen Zahlen arbeiten.
Die Variable ist aber für Kommazahlen("Float") deklariert.
Der Operator "div" arbeitet aber nur mit ganzen Zahlen.
Ändere die Deklartion deiner Variablen auf "Integer" und "StrToFLoat" zu "StrToInt".
Delphi-Quellcode:
if Odd(n) then // ist n ungerade ?
{...} // wenn die Bedingung erfüllt ist: tu dies
else
{...} // andernfalls: mach das
; // Ende der Anweisung
Nicht nur
div
sondern auch
Odd funktioniert nur mit
Integer
was der TE auch sehr leicht herausgefunden wenn er sich herabgelassen hätte in die Dokumentation zu schauen ... aber nach Dokumentation schauen hat bestimmt wieder was mit Programmieren zu tun, und das liegt ihm ja nicht so ....
Hoffentlich fällt Lesen nicht auch darunter ...
Kaum macht man's richtig - schon funktioniert's
Zertifikat: Sir Rufo (Fingerprint: ea 0a 4c 14 0d b6 3a a4 c1 c5 b9
dc 90 9d f0 e9 de 13 da 60)