Programm Analye

[haentschman]

Hallo FACS...

Willkommen hier

Zitat:

x := (x / 2); //Bezüglich dieser Zeile gibt mir Lazarus aus unit1.pas(73,15) Error: Incompatible types: got "Double" expected "LongInt"

Die Fehlermeldung ist logisch. X ist als Integer (Ganzzahl) deklariert. Mit der Division "könnte" ein Nachkommaanteil herauskommen. Deshalb funktioniert die Zuweisung nicht.
Wenn das Ergebnis grundsätzlich eine Ganzzahl sein soll verwende div statt /.

PS: Und schau dir die Hilfe zu div an damit du verstehst.

PS2: Bitte setze deinen Quelltext in Delphi Tags. (der Button mit dem Helm)

[mensch72]

Das ganze mal als Aufgabe erfasst:
- mit dem "Ist Mod 2 gleich 0" steht da ja, das nur gerade und somit restlos durch 2 teilbare Zahlen anschließend durch 2 ganzzahlig geteilt werden.
- ganzzahliges teilen geht in Pascal mit "div"
- ganzzahliges teilen von positiven 2er Potenzen geht auch binär mit "shr" und auch ein MOD mit 2er Potenzen geht binär mit "and"

Delphi-Quellcode:

if ((x and 1) = 0) then begin
    x := (x shr 1);                 
    Panel1.Caption := IntToStr (x);
end

- wenn dir das so seltsam vorkommt.. bist du damit nicht allein und in Pascal muss man das nicht so machen (aber hilft beim Verständnis wie die Ganzzahlen intern gespeichert sind)
- wenn du verstehst warum dies auch funktioniert, dann klappt es auch ganz von alleine mit dem warum fürs "div"
- Funktion als Text: bei geraden Zahlen ist das LSB immer 0 und das Rechtsschieben um 1 entspricht der Division durch 2

[Luckie]

Und selbst wenn die Division "aufgehen" sollte ohne Nachkommastellen, bei 4:2 zum Beispiel, wird für dem Comoputer das Ergebnis 1,9999999999999999999999999999999999999 im ungünstigsten Fall sein. (4:2 war nur ein Beispiel zur Verdeutlichung.) Das liegt daran, dass die Umwandlung Dezimal/Binär und Binär/Dezimal nicht immer genau sein kann, da manche Dezimalzahlen nicht 1:1 binär abgebildet werden können.

Aber wie schon gesagt, Delphi erwartet bei der Division mit / eine Fließkommazahl als Ergebnis.