Der Epina Delphi-Kurs bietet Ihnen eine allgemeine Einführung in das Programmieren mit Delphi/Pascal. Mit vielen ausgearbeiteten Beispielen können Sie direkt in die Delphi-Programmierung einsteigen. Mehr dazu finden Sie hier....

5. Programm: Debug - Lösung

Die Lösung ist ganz einfach: es wurde irrtümlich statt der Variablen i die Variable j mit 0 initialisiert. Das führt dazu, dass die Variable i mit einer Zufallszahl belegt ist, die praktisch nie zufällig gleich null ist. Wird aber i zu Beginn nicht auf Null gesetzt, so läuft die Schleife entweder gar nicht (falls i > 100 ist) oder es wird nicht die erwartete Zahl an Durchläufen produziert (falls i < 100 ist). Nur wenn i zufällig auf Null gesetzt wird, stimmt das Ergebnis.

Bessern Sie nun den Code aus, indem Sie die Zeile

j := 0;

durch

i := 0;

ersetzen. Das Programm läuft jetzt korrekt (Neustart des Programms erforderlich!).

Last Update: 2008-09-09