Noob-Frage -.-

[Once]

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

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

[freak4fun]

1. Herzlich Willkommen im dere DP!
2. Titel des Thread ändern.
3. Es werden keine Hausaufgaben für andere gemacht.
4. Was haste an Quellcode? Wo hakt es genau? Dann kann man dir helfen.

MfG
freak

[Klaus01]

Guten Abend,

kennst Du schon WinGesy, damit mal das Struktogramm nachbilden.
Dann kannst Du Dir damit ein Grundgerüst (in Pascal) erstellen lassen.

Grüße
Klaus