Delphi-PRAXiS - Noob-Frage -.-

Hi Leute! Hab für morgen n Projekt in Delphi zu machen. Aber ich kriegs auf gdei un verderben nich hin...ich weiß is eigentlich relativ leicht (Informatik II (10. Klasse)) , aber ich bkomms nich hin :wall:

Hier mal die Aufgabenstellung, wie er sie uns diktiert hat :

Schleifen mit Ausführungsbedingung am Anfang (while-do-Schleife) bzw. Abbruchbedingung am Ende (repeat-until-Schleife)

Projekt: Bevölkerungsverdopplung

Eine Bevölkerung mit der Bevölkerungszahl BZ wachse jährlich um die Wachstumsrate P%. Das Delphi-Programm soll die Anzahl der Jahre berechnen bis sich die Bevölkerungszahl verdoppelt hat.

N Struktogramm hat er uns auch gegeben:

__________________________________________________ ___________
Eingabe der Anfangsbevölkerungszahl ABZ
__________________________________________________ ___________
Eingabe der Wachstumsrate p
__________________________________________________ ___________
BZ=ABZ | J=0
__________________________________________________ ___________
Solange BZ < 2 x ABZ tue
..............____________________________________ _________________
..............| J:= J + 1
..............|___________________________________ _________________
..............| ZW:= BZ x p / 100
..............|___________________________________ _________________
..............| BZ := BZ + ZW
__________________________________________________ ___________
Ausgabe des Jahreszählers J
__________________________________________________ ___________

Ich bräuchte einfach nur den Quellcode. Falls jemand son ähnliches projekt schon ersstellt hat wäre das natürlich auch sehr hilfreich.
Einfach vielleicht in ne .txt einfügen und als dateianhang hier posten ^^

Bitte helft mir !

So long

Once