1 PROGRAM KREDIT (INPUT*);
2 (*IN DEM PROGRAMM WIRD JE NACH DEN GEGEBENEN DATEN,DIE TILGUNGSRATE,
3 DIE LAUFZEIT ODER DER KREDIT BERECHNET.*)
6 TILG,RATE,ZINS,KAPITAL : REAL;
8 FUNCTION HOCH (A:REAL;B:INTEGER):REAL;
12 FUNCTION KREDIT (RATE,PROZENT:REAL;JAHRE:INTEGER):REAL;
18 POTENZ := HOCH (Q,JAHRE);
19 KREDIT := RATE*(POTENZ-1)/(POTENZ*(Q-1));
24 FUNCTION TILGUNG (KAPITAL,PROZENT:REAL;JAHRE:INTEGER):REAL;
30 POTENZ := HOCH (Q,JAHRE);
31 TILGUNG := KAPITAL*POTENZ*(Q-1)/(POTENZ-1);
34 TILGUNG := KAPITAL/JAHRE;
36 FUNCTION LAUFZEIT (KAPITAL,TILG,PROZENT:REAL):REAL;
40 RATE := KAPITAL*(TILG + PROZENT)/100; (*DIE TILGUNGSRATE WIRD BERECHNET*)
42 LAUFZEIT := (LN(RATE)-LN(RATE-KAPITAL*(Q-1)))/LN(Q)
44 LAUFZEIT := KAPITAL/RATE;
46 BEGIN (*HAUPTPROGRAMM*)
47 WRITELN (TTY,' KREDITBERECHNUNG');
48 WRITELN (TTY,' ---------------------');
50 WRITELN (TTY,'ES WIRD JE NACH DEN DATEN,DIE IN EINER DATEI GEGEBEN SIND');
51 WRITELN (TTY,'ENTWEDER DER KREDIT,DIE LAUFZEIT ODER ');
52 WRITELN (TTY,'DIE TILGUNGSRATE BERECHNET.');
58 IF ZEICHEN IN ['K','T','L'] THEN
62 READ (RATE,ZINS,ZEIT);
63 WRITELN (TTY,'BEI EINER TILGUNGSRATE VON',RATE:15:2,' DM');
64 WRITELN (TTY,' EINEM ZINSSATZ VON',ZINS:15:2,' %');
65 WRITELN (TTY,' UND EINER LAUFZEIT VON',ZEIT:15,' JAHREN');
66 WRITELN (TTY,'BERECHNET SICH DER KREDIT MIT :');
67 WRITELN (TTY,' ',KREDIT (RATE,ZINS,ZEIT):15:2,' DM');
72 READ (KAPITAL,ZINS,ZEIT);
73 WRITELN (TTY,' BEI EINEM KREDIT VON',KAPITAL:15:2,' DM');
74 WRITELN (TTY,' EINEM ZINSSATZ VON',ZINS:15:2,' %');
75 WRITELN (TTY,' UND EINER LAUFZEIT VON',ZEIT:15,' JAHREN');
76 WRITELN (TTY,'BERECHNET SICH DIE TILGUNGSRATE MIT :');
77 WRITELN (TTY,' ',TILGUNG (KAPITAL,ZINS,ZEIT):15:2,' DM');
82 READ (KAPITAL,TILG,ZINS);
83 WRITELN (TTY,' BEI EINEM KREDIT VON',KAPITAL:15:2,' DM');
84 WRITELN (TTY,' EINER TILGUNG VON',TILG:15:2,' %');
85 WRITELN (TTY,'UND EINEM ZINSSATZ VON',ZINS:15:2,' %');
86 WRITELN (TTY,'BERECHNET SICH DIE LAUFZEIT MIT :');
87 WRITELN (TTY,' ',LAUFZEIT(KAPITAL,TILG,ZINS):15:2,' JAHRE');
95 WRITELN (TTY,' " ',ZEICHEN,' " IST EIN FALSCHES ZEICHEN,UEBERPRUEFEN SIE IHRE EINGABEN IN DER DATEI');
96 WRITELN (TTY,'UND VERBESSERN SIE SIE.');