Codierbeispiel: Zinsberechnung mit variablen Größen.


Das folgende Codierbeispiel zeigt, wie man mit Hilfe eines Dialogprogrammes die Berechnung von Zinsen mit variablem Zinssatz, Kapital, oder Zeit (in Jahren) ermöglichen kann.

IDENTIFICATION DIVISION.
PROGRAM-ID. Berechnung.
AUTHOR. Fabritius.

ENVIRONMENT DIVISION.
CONFIGURATION SECTION.
SPECIAL-NAMES.
	CONSOLE IS CRT,
	DECIMAL-POINT IS COMMA.

DATA DIVISION.
WORKING-STORAGE SECTION.
77 AKapital PIC 9(6)v99.
77 Zinssatz PIC 99v99.
77 Jahre PIC 99.
77 EKapital PIC 9(6)v99.
77 E-AKapital PIC ZZZ.ZZ9,99.
77 E-Zinssatz PIC Z9,99.
77 E-Jahre PIC Z9.
77 A-EKapital PIC ZZZ9.
77 i PIC 99.
77 EKZ PIC X.

PROCEDURE DIVISION.
MOVE "j" TO EKZ.
PERFORM UNTIL EKZ = "n"
	PERFORM Eingabe
	PERFORM Verarbeitung
	PERFORM Ausgabe
	DISPLAY "Nochmal (j)a (n)ein?" AT 2401
	ACCEPT EKZ AT 2425
END-PERFORM.
STOP RUN.

Eingabe.
DISPLAY SPACES.
DISPLAY "Zinsberechnung" AT 0315.

DISPLAY "Anfangskapital:" AT 0801.
ACCEPT E-AKapital AT 0820.
MOVE E-AKapital TO AKapital.

DISPLAY "Zinssatz:" AT 1001.
ACCEPT E-Zinssatz AT 1015.
MOVE E-Zinssatz TO Zinssatz.

DISPLAY "Jahre:" AT 1201.
ACCEPT E-Jahre AT 1210.
MOVE E-Jahre TO Jahre.
Verarbeitung.
MOVE AKapital TO EKapital.
PERFORM VARYING i FROM 1 BY 1 UNTIL i > Jahre
	COMPUTE EKapital = EKapital + EKapital * Jahre / 100
END-PERFORM.

Ausgabe.
DISPLAY "Endkapital" AT 1401.
MOVE EKapital TO A-EKapital.
DISPLAY A-EKapital AT 1415.
Autorin: Claudia Fabritius

...

... zurück