Repeat-Schleife zu einem Beispiel

[Natalie]

Hallo!

Wir haben in der Schule mit Delphi angefangen und schon verlangt unser Lehrer, eine Repeat-Schleife zum folgendem Beispiel zu machen!:

Nehmen wir mal an, eine Frau hat 2000€ auf ihrem Konto und jeden Monat werden 4% verzinst. Nach wievielen Jahren hat sie den doppelten Betrag?

Nun sollen wir zu dieser Aufgabe eine Repeat-Schleife reinbringen. Mir ist schon klar, was eine Schleife ist, aber ich verstehe nicht, wie man es lösen soll. Auch den Befehl mit repeat-until verstehe ich nicht so recht

Könnt ihr mir helfen?

Dankeschön im Vorraus

[3_of_8]

Wieso nehmt ihr nicht while? Egal.

Delphi-Quellcode:

procedure Zinsrechnung;
var guthaben: Extended;
    jahre: Cardinal;
begin
guthaben:=2000;
jahre:=0;
repeat
inc(jahre);
guthaben:=1.04*guthaben;
until guthaben>=4000;
showmessage('Nach '+inttostr(jahre)+' Jahren verdoppelt sich das Guthaben.');
end;

EDIT: Delphi-Tag korrigiert.

[Natalie]

Erstmal vielen lieben Dank für deine superflotte Antwort

Ich habe da noch eine Frage: Was bedeutet genau das "Extended" und "Cardinal"?

[3_of_8]

Extended: Ist der Fließkommatyp mit der höchsten Genauigkeit, also z.B. 3.62432
Cardinal: Wie Integer, aber nur Positiv, also von 0-~4 Milliarden.

Aber das ist doch eigentlich nicht so schwer, oder? Also ein besonders komplexer Algorithmus ist es ja wirklich nicht. (Bitte nicht falsch verstehen)

[ibp]

Zitat von Natalie:

Nehmen wir mal an, eine Frau hat 2000€ auf ihrem Konto und jeden Monat werden 4% verzinst. Nach wievielen Jahren hat sie den doppelten Betrag?

das konto möchte ich auch haben wo es 4% zinsen pro MONAT gibt!

du solltest den lösungsansatz oben dementsprechend anpassen, da er so nicht stimmt!

[3_of_8]

Delphi-Quellcode:

procedure Zinsrechnung;
var guthaben: Extended;
    monate: Cardinal;
begin
guthaben:=2000;
monate:=0;
repeat
inc(monate);
guthaben:=1.04*guthaben;
until guthaben>=4000;
showmessage('Nach '+inttostr(jahre)+' Monaten verdoppelt sich das Guthaben.');
end;

Ändert sich ja nicht viel.

[3_of_8]

Es geht auch leichter, aber halt ohne repeat:

showmessage('Nach '+floattostr(logn(1.04,2))+' Jahren/Monaten verdoppelt sich das Guthaben.'); Stinknormaler Logarithmus.

[Natalie]

Ja, so normale Rechnungen kann ich, aber der Schwerpunkt liegt jetzt bei der Verwendung von Schleifen.


Sorry, bin aber noch ein fürchterlicher Anfänger Wozu bzw. wofür steht das "inc"?

[Chegga]

Hi,

Inc
Inc = Inkrementieren = Hochzählen
In dem Fall wird "monate" in jedem Schleifendurchlauf um 1 erhöht.
Also anstatt Inc(Monate) könntest du auch
Monate := Monate + 1;
schreiben.

MfG Marc

[RavenIV]

Zitat von Natalie:

Sorry, bin aber noch ein fürchterlicher Anfänger Wozu bzw. wofür steht das "inc"?

Anleitung zur Selbsthilfe:
stell in Delphi den Cursor auf das unbekannte Wort und drücke <F1>, dann kommt die Hilfe und du kannst es nachlesen...