IDENTIFICATION DIVISION. PROGRAM-ID. Berechnung. AUTHOR. Fabritius. ENVIRONMENT DIVISION. CONFIGURATION SECTION. SPECIAL-NAMES. CONSOLE IS CRT, DECIMAL-POINT IS COMMA. DATA DIVISION. WORKING-STORAGE SECTION. 77 AKapital PIC 9(6)v99. 77 Zinssatz PIC 99v99. 77 Jahre PIC 99. 77 EKapital PIC 9(6)v99. 77 E-AKapital PIC ZZZ.ZZ9,99. 77 E-Zinssatz PIC Z9,99. 77 E-Jahre PIC Z9. 77 A-EKapital PIC ZZZ9. 77 i PIC 99. 77 EKZ PIC X. PROCEDURE DIVISION. MOVE "j" TO EKZ. PERFORM UNTIL EKZ = "n" PERFORM Eingabe PERFORM Verarbeitung PERFORM Ausgabe DISPLAY "Nochmal (j)a (n)ein?" AT 2401 ACCEPT EKZ AT 2425 END-PERFORM. STOP RUN. Eingabe. DISPLAY SPACES. DISPLAY "Zinsberechnung" AT 0315. DISPLAY "Anfangskapital:" AT 0801. ACCEPT E-AKapital AT 0820. MOVE E-AKapital TO AKapital. DISPLAY "Zinssatz:" AT 1001. ACCEPT E-Zinssatz AT 1015. MOVE E-Zinssatz TO Zinssatz. DISPLAY "Jahre:" AT 1201. ACCEPT E-Jahre AT 1210. MOVE E-Jahre TO Jahre. Verarbeitung. MOVE AKapital TO EKapital. PERFORM VARYING i FROM 1 BY 1 UNTIL i > Jahre COMPUTE EKapital = EKapital + EKapital * Jahre / 100 END-PERFORM. Ausgabe. DISPLAY "Endkapital" AT 1401. MOVE EKapital TO A-EKapital. DISPLAY A-EKapital AT 1415. |