Codierbeispiel: Notenumrechnung
Autorin: Claudia Fabritius

Mit Hilfe des folgenden Programms kann man Punkte, die man in einer Klausur erhalten hat, in Noten umrechnen.

Jackson Baum

      Umrech
          │
          ├── Maxpkt eingeben
          │
          └── Punkte umrechnen (*)
                      │
                      ├── Punkte eingeben
                      │
                      ├── Prozente berechnen
                      │
                      └── Prozente anzeigen

* = mehrmals ...o = optional

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.


...