Schreibt ein Programm, dass die Verdopplungszeit eines bei der Bank angelegten Kapitals nach Eingabe der Kapitalhöhe und des Zinssatzes ausgibt.
Baut dazu eine Tabelle auf, die folgende Angaben enthält.
Gebt zum Schluss aus, wie viele Monate man zum Verdoppeln der Spareinlagen benötigt.
Monat Sparkapital Zinsen Kapital+Zinsen
1 50000 500 50500
…..
Die Tabelle habe ich hinbekommen und die läuft auch, aber nur für 1 Monat.
Alles Scheiße irgendwie, bitte um Hilfe.
Wäre euch total dankbar.
Es muss mit while do programmiert werden.
Danke.
program while2;
uses wincrt;
var anfkapital, zins, monat : longint;
var zinsbetrag,gesamt: real;
var antwort: char;
begin
repeat
monat:=0;
writeln('Geben Sie Ihr Anfangskapital ein.');
read(anfkapital);
writeln('Geben Sie Ihren Zinssatz ein.');
read(zins);
while anfkapital <=2*anfkapital do
begin
monat:=monat+1;
zinsbetrag:=anfkapital/100*zins;
gesamt:= anfkapital + zinsbetrag;
writeln('Monat Sparkapital Zinsen Kapital+Zinsen');
writeln(' ' ,monat, ' ' ,anfkapital, ' ' , zinsbetrag:10:2 , ' ' , gesamt:10:2 , ' ');
end;
writeln('Wollen Sie das Programm noch einmal nutzen (J/N) ?');
antwort:=readkey;
until antwort in ['N', 'n'];
donewincrt;
end.
Simon Bloß Gast |