Spracherkennung für: .bak vermutete Sprache: Unknown {[0] [0] [0]} [Methode: Schwerpunktbildung, einfache Gewichte, sechs Dimensionen]
*------------------------------------------
* maximum from 3 values
* Softwaretechnik Trends Band 44 Heft 4
*------------------------------------------
Identification Division.
Program-Id. Max.
Author. Andreas Spillner/HS-Bremen.
Data Division.
Linkage Section.
77 x pic 9(4).
77 y pic 9(4).
77 z pic 9(4).
77 max pic 9(4).
Procedure Division using x, y, z returning max.
* Beispiel mit Fehler
move 0 to max
if x>z then
move x to max;
if x>z then
move x to max;
if x>z then
move x to max;
* max wird zurückgegeben
End-Program Max.
[Dauer der Verarbeitung: 0.20 Sekunden, vorverarbeitet 2026-06-15]
