Codierbeispiel: Berechnung von (a + b) / c mit Hilfe von Eingabevariablen.


Das folgende Codingbeispiel zeigt, wie man mit Hilfe eines kleinen Dialogprogrammes die Berechnung von (a + b) / c ermöglichen kann.

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

...

... zurück