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]