fork download
copy 
  1. PROGRAM Zinsenberechnung;
  2.  
  3. VAR Startkapital,Einzahlung,Kapital,Zinssatz 	: Double;
  4. 	Monate,Zaehler								: Integer;
  5. 	Wahl										: Char;
  6.  
  7. BEGIN
  8. 	REPEAT
  9. 		write('Wie hoch ist das Startkapital (in Euro)?');
  10. 		readln (Startkapital);
  11. 		write('Wie hoch ist die monatliche Einzahlung?');
  12. 		readln(Einzahlung);
  13. 		write('Wie lange wollen Sie sparen (in Jahren)?');
  14. 		readln(Monate);
  15. 		write('Wie hoch ist der Zinssatz (in Porzent)?');
  16. 		readln(Zinssatz);
  17. 		Monate:=Monate*12; {Umrechnung Jahre in Monate}
  18. 		Zinssatz:=1+(Zinssatz/100/12); {Umrechnung in Prozent/Monate}
  19. 		Kapital:=Startkapital;
  20. 		FOR Zaehler:=1 TO Monate DO Kapital:=(Kapital*Zinssatz)+Einzahlung;
  21. 		writeln('Sie haben insgesamt eingezahlt: ',Startkapital+Monate*Einzahlung:10:2);
  22. 		writeln('...und bekommen mit Zinsen: ', Kapital:10:2);
  23. 		writeln;
  24. 		write('Nochmal (J/N)');
  25. 		readln(Wahl);
  26. 	UNTIL (Wahl='N') OR (Wahl='n');
  27. END.
Success #stdin #stdout 0s 5324KB
comments (?)
stdin
copy 
100
50
10
3
n
stdout
copy 
Wie hoch ist das Startkapital (in Euro)?Wie hoch ist die monatliche Einzahlung?Wie lange wollen Sie sparen (in Jahren)?Wie hoch ist der Zinssatz (in Porzent)?Sie haben insgesamt eingezahlt:    6100.00
...und bekommen mit Zinsen:    7122.01

Nochmal (J/N)
https://ideone.com/uwEyOD
language:
Pascal (fpc 3.0.4)
created:
14 days ago
visibility:
public

Share or Embed source code

Discover > Sphere Engine API

The brand new service which powers Ideone!

Discover > IDE Widget

Widget for compiling and running the source code in a web browser!