SSL inverse.cob
Interaktion und PortierbarkeitCobol
IdentificationDivision. Program-Id. inverse. Author. "Bergeretti/Carre". DataDivision. Working-StorageSection. * variables
77 c pic S9(8).
77 d pic S9(8).
77 q pic S9(8).
77 r pic S9(8).
77 w pic S9(8).
77 x pic S9(8).
77 y pic S9(8). LinkageSection.
77 b pic S9(8).
77 p pic S9(8).
77 res pic S9(8). ProcedureDivisionusing b p res. * ".. IFA and DFA of while programs" * this is a sample from author move p to c move b to d move 0 to x move 1 to y performuntil d = 1 divide c by d giving q remainder r compute w = x - q*y move d to c move r to d move y to x move w to y end-perform if x < y thenadd p to y end-if move y to res End-Program inverse.
¤ Diese beiden folgenden Angebotsgruppen bietet das Unternehmen0.15Angebot
Wie Sie bei der Firma Beratungs- und Dienstleistungen beauftragen können
¤
Die Informationen auf dieser Webseite wurden
nach bestem Wissen sorgfältig zusammengestellt. Es wird jedoch weder Vollständigkeit, noch Richtigkeit,
noch Qualität der bereit gestellten Informationen zugesichert.
Bemerkung:
Die farbliche Syntaxdarstellung ist noch experimentell.