Tabellen + Schleifen usw.

[Nispuk]

Hi leute,
ich hoffe ihr könnt mir weiter helfen habe ein riesiges Problem. Hab eine Schulaufgabe die ich net versteh!!!

Folgende Aufgabe: Erdölvorrat
Eingabe von Vorrat, jährliche Förderung, jährliche Steigerung der Förderung %, Ausgabe:Ende der Förderung und Tabelle des Verlaufs

So sieht mein Quelltext aus aber da funzt gar nichts außer die erste while schleife.

Delphi-Quellcode:

procedure TForm1.Button1Click(Sender: TObject);

var
a, b, c, g: integer;
n: String;
i: String;
k: String;

begin
a := strtoint(edit1.text);
b := strtoint(edit2.text);
c := strtoint(edit2.text);


while a > 0 do begin a:= a-b;
i:= inttostr(a);
listbox2.items.Add(i)end;


while b > 0 do begin b:= ((b / 100) * c) + b;
n:= inttostr(b);
listbox3.items.Add(n)end;


end;

end.

HIFE!!!!!!!!

[edit=Dax]Delphi-Tags.. Beim nächsten mal bitte selbst dran denken. Mfg, Dax[/edit]

[mkinzler]

while b > 0 do begin b:= ((b / 100) * c) + b; [quote] kann ja nicht funktionieren, weil b immer größer wird.

[Cöster]

Erstmal würde ich dir empfehlen, eindeutige Bezeichner zu verwenden. Denn wenn du dir das Programm 2 Wochen mal nicht anguckst, weißt du sicher nicht mehr, was a, b, c, g, n, i, k, listbox2 und listbox3 sind.

Ich nehme an, a ist der Vorrat, b die jährliche Förderung und c der Förderungszuwachs. Innerhalb der Schleife while Vorrat > 0 müsstest du die Förderung bereits verändern:Foerderung := Foerderung * Zuwachs;