Verfügbare Informationen zu "Zinsberechnung"
Qualität des Beitrags: Beteiligte Poster: Christian Forum: Ihr-Domainname.de Forenbeschreibung: Beschreibung Ihres Forums aus dem Unterforum: Technik Antworten: 2 Forum gestartet am: Mittwoch 24.08.2005 Sprache: deutsch Link zum Originaltopic: Zinsberechnung Letzte Antwort: vor 17 Jahren, 3 Monaten, 15 Tagen, 7 Stunden, 14 Minuten
Alle Beiträge und Antworten zu "Zinsberechnung"
Re: Zinsberechnung
Christian - 13.12.2005, 23:09Zinsberechnung
Program Zinsberechnung;
Uses CRT;
Var Zins, Summe, Betrag :Real;
I, Monate :Integer;
Begin
CLRSCR;
Write('Geben sie die Laufzeit in Monaten ein: ');
ReadLN(Monate);
Write ('Geben sie den Sparbetrag ein: ');
ReadLN (Betrag);
Write ('Geben sie den Zinssatz an: ');
ReadLN (Zins);
Zins:= Zinssatz/12/100+1
For I := 1 to Monate Do
Begin
Summe:= Summe + Betrag;
Summe:= Summe + Zins
WritLN (I:8, Summe:8:2);
End;
Repeat Until Keypressed
End.
Re: Zinsberechnung
Christian - 13.12.2005, 23:10
Program Schuldenfalle;
USES CRT;
VAR Schulden, Rate, Zinssatz :REAL;
Monate : Integer;
Begin
CLRSCR;
Write ('Geben Sie ihr Schulden an: ');
ReadLN (Schulden);
Write('Geben Sie Ihre Abzahlungsrate ein: ');
Readln (Rate);
Write ('Geben Sie ihren Zinssatz an: ');
ReadLN (Zinssatz);
Monate:= 0;
Zinssatz:= Zinssatz/100/12 +1;
Repeat
Schulden:= Schulden * Zinssatz;
Schulden:= Schulden -Rate;
Monate:= Monate +1;
Writeln('Nach Monat ',Monate,' haben sie noch ',Schulden:8:2,' Euro Schulden.');
Until Schulden <= 0;
WriteLN ('Herzlichen Glckwunsch Sie sind nach ', Monate ,' Monaten schuldenfrei!!');
Repeat Until Keypressed;
End.
Mit folgendem Code, können Sie den Beitrag ganz bequem auf ihrer Homepage verlinken
Weitere Beiträge aus dem Forum Ihr-Domainname.de
Die Bekenntnisse des Hochstablers Felix Krull........... - gepostet von derkleinemaddin am Mittwoch 28.12.2005
Schuluniformen - gepostet von Bastian am Samstag 03.12.2005
Referat: Dritte Welt - Armut und kein Ende? - gepostet von derkleinemaddin am Mittwoch 15.03.2006
Ähnliche Beiträge wie "Zinsberechnung"
