IDENTIFICATION DIVISION. PROGRAM-ID. Berechnung. AUTHOR. Fabritius. ENVIRONMENT DIVISION. CONFIGURATION SECTION. SPECIAL-NAMES. CONSOLE IS CRT. DATA DIVISION. FILE SECTION. WORKING-STORAGE SECTION. 77 a PIC 9(4). 77 b PIC 9(4). 77 c PIC 9(4). 77 x PIC 9(4). 77 E-a PIC ZZZ9. 77 E-b PIC ZZZ9. 77 E-c PIC ZZZ9. 77 A-x PIC ZZZ9. PROCDURE DIVISION. DISPLAY SPACES. DISPLAY "Berechnung" AT 0315. DISPLAY "Variable a:" AT 0801. ACCEPT E-a AT 0815. MOVE E-a TO a. DISPLAY "Variable b:" AT 0901. ACCEPT E-b AT 0915. MOVE E-b TO b. DISPLAY "Variable c:" AT 1001. ACCEPT E-c AT 1015. MOVE E-c TO c. IF c = 0 THEN DISPLAY "0 ist nicht erlaubt!" AT 1501 ELSE COMPUTE x = (a + b) / c MOVE x TO A-x DISPLAY "Das Ergebnis lautet:" AT 1501 DISPLAY A-x AT 1525 END-IF. STOP RUN. |