Codierbeispiel: Umrechnung von Punkten in Schulnoten.


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


* = 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.
Autorin: Claudia Fabritius

...

... zurück