Jackson Baum Umrech │ ├── Maxpkt eingeben │ └── Punkte umrechnen (*) │ ├── Punkte eingeben │ ├── Prozente berechnen │ └── Prozente anzeigen |
IDENTIFICATION DIVISION. PROGRAM-ID. Umrechnung. AUTHOR. Fabritius. ENVIRONMENT DIVISION. CONFIGURATION SECTION. SPECIAL-NAMES. CONSOLE IS CRT, DECIMAL-POINT IS COMMA. DATA DIVISION. WORKING-STORAGE SECTION. 77 WKZ PIC X. 77 E-MP PIC ZZ9. 77 MP PIC 999. 77 E-Pu PIC ZZ9,9. 77 Pu PIC 999v9. 77 Pr PIC 999. 77 A-Pr PIC ZZ9. PROCEDURE DIVISION. PERFORMMaxpkt-eingeben. MOVE "j" TO WKZ. PERFORM UNTIL WKZ = "n" PERFORM Punkte-umrechnen DISPLAY "Nochmal (j)a (n)ein?" AT 2401 ACCEPT WKZ AT 2425 END-PERFORM. STOP-RUN. Maxpkt-eingeben. DISPLAY SPACES. DISPLAY "Prozentberechnung" AT 0215. DISPLAY "Maximalpunkte" AT 0501. ACCEPT E-MP AT 0520. MOVE E-MP TO MP. Punkte-umrechnen. PERFORM Punkte-eingeben. PERFORM Prozente-berechnen. PERFORM Prozente-anzeigen. Punkte-eingeben. DISPLAY "Punktzahl:" AT 0801. ACCEPT E-Pu AT 0815. MOVE E-Pu TO Pu. Prozente-berechnen. COMPUTE Pr = Pu / MP * 100 + 0,5. Prozente-anzeigen. DISPLAY "Prozentwert:" AT 1201. MOVE Pr TO A-Pr. DISPLAY A-Pr AT 1220. |