Add README.md

[pdp8.git] / sw / rescue / muenchen2013 / files / ueb10.pr

PROGRAM KREDIT (INPUT*);\r
(*IN DEM PROGRAMM WIRD JE NACH DEN GEGEBENEN DATEN,DIE TILGUNGSRATE,\r
DIE LAUFZEIT ODER DER KREDIT BERECHNET.*)\r
\r
VAR ZEICHEN : CHAR;\r
TILG,RATE,ZINS,KAPITAL : REAL;\r
ZEIT : INTEGER;\r
FUNCTION HOCH (A:REAL;B:INTEGER):REAL;\r
BEGIN\r
HOCH := EXP(B*LN(A));\r
END;\r
FUNCTION KREDIT (RATE,PROZENT:REAL;JAHRE:INTEGER):REAL;\r
VAR Q,POTENZ : REAL;\r
BEGIN\r
Q := 1+PROZENT/100;\r
IF Q <> 1 THEN\r
BEGIN\r
POTENZ := HOCH (Q,JAHRE);\r
KREDIT := RATE*(POTENZ-1)/(POTENZ*(Q-1));\r
END\r
ELSE\r
KREDIT := RATE*JAHRE;\r
END;\r
FUNCTION TILGUNG (KAPITAL,PROZENT:REAL;JAHRE:INTEGER):REAL;\r
VAR Q,POTENZ : REAL;\r
BEGIN\r
Q := 1+PROZENT/100;\r
IF Q <> 1 THEN\r
BEGIN\r
POTENZ := HOCH (Q,JAHRE);\r
TILGUNG := KAPITAL*POTENZ*(Q-1)/(POTENZ-1);\r
END\r
ELSE\r
TILGUNG := KAPITAL/JAHRE;\r
END;\r
FUNCTION LAUFZEIT (KAPITAL,TILG,PROZENT:REAL):REAL;\r
VAR Q : REAL;\r
BEGIN\r
Q := 1+PROZENT/100;\r
RATE := KAPITAL*(TILG + PROZENT)/100; (*DIE TILGUNGSRATE WIRD BERECHNET*)\r
IF Q <> 1 THEN\r
LAUFZEIT := (LN(RATE)-LN(RATE-KAPITAL*(Q-1)))/LN(Q)\r
ELSE\r
LAUFZEIT := KAPITAL/RATE;\r
END;\r
BEGIN (*HAUPTPROGRAMM*)\r
WRITELN (TTY,'               KREDITBERECHNUNG');\r
WRITELN (TTY,'             ---------------------');\r
WRITELN (TTY);\r
WRITELN (TTY,'ES WIRD JE NACH DEN DATEN,DIE IN EINER DATEI GEGEBEN SIND');\r
WRITELN (TTY,'ENTWEDER DER KREDIT,DIE LAUFZEIT ODER ');\r
WRITELN (TTY,'DIE TILGUNGSRATE BERECHNET.');\r
WRITELN (TTY);\r
BREAK;\r
REPEAT\r
REPEAT\r
READ (ZEICHEN);\r
IF ZEICHEN IN ['K','T','L'] THEN\r
BEGIN\r
CASE ZEICHEN OF\r
'K':BEGIN\r
READ (RATE,ZINS,ZEIT);\r
WRITELN (TTY,'BEI EINER TILGUNGSRATE VON',RATE:15:2,' DM');\r
WRITELN (TTY,'        EINEM ZINSSATZ VON',ZINS:15:2,' %');\r
WRITELN (TTY,'    UND EINER LAUFZEIT VON',ZEIT:15,' JAHREN');\r
WRITELN (TTY,'BERECHNET SICH DER KREDIT MIT :');\r
WRITELN (TTY,'                          ',KREDIT (RATE,ZINS,ZEIT):15:2,' DM');\r
WRITELN (TTY);\r
BREAK;\r
END;\r
'T': BEGIN\r
READ (KAPITAL,ZINS,ZEIT);\r
WRITELN (TTY,'   BEI EINEM KREDIT VON',KAPITAL:15:2,' DM');\r
WRITELN (TTY,'     EINEM ZINSSATZ VON',ZINS:15:2,' %');\r
WRITELN (TTY,' UND EINER LAUFZEIT VON',ZEIT:15,' JAHREN');\r
WRITELN (TTY,'BERECHNET SICH DIE TILGUNGSRATE MIT :');\r
WRITELN (TTY,'                       ',TILGUNG (KAPITAL,ZINS,ZEIT):15:2,' DM');\r
WRITELN (TTY);\r
BREAK;\r
END;\r
'L':BEGIN\r
READ (KAPITAL,TILG,ZINS);\r
WRITELN (TTY,'  BEI EINEM KREDIT VON',KAPITAL:15:2,' DM');\r
WRITELN (TTY,'     EINER TILGUNG VON',TILG:15:2,' %');\r
WRITELN (TTY,'UND EINEM ZINSSATZ VON',ZINS:15:2,' %');\r
WRITELN (TTY,'BERECHNET SICH DIE LAUFZEIT MIT :');\r
WRITELN (TTY,'                      ',LAUFZEIT(KAPITAL,TILG,ZINS):15:2,' JAHRE');\r
WRITELN (TTY);\r
BREAK;\r
END;\r
END;\r
END\r
ELSE\r
BEGIN\r
WRITELN (TTY,' " ',ZEICHEN,' "  IST EIN FALSCHES ZEICHEN,UEBERPRUEFEN SIE IHRE EINGABEN IN DER DATEI');\r
WRITELN (TTY,'UND VERBESSERN SIE SIE.');\r
WRITELN (TTY);\r
BREAK;\r
END;\r
UNTIL EOLN;\r
READLN;\r
UNTIL EOF;\r
END.\r
\0\0