|
Identification Division.
Program-Id. mult.
author. Robert Sedgewick.
* Simplex Verfahren, lineare Programmierung
* aus Algorithmen p581
Data Division.
Working-Storage Section.
78 m value 100000000.
78 m1 value 10000.
78 b value 31415821.
77 p1 pic 9(4).
77 p0 pic 9(4).
77 q1 pic 9(4).
77 q0 pic 9(4).
Linkage Section.
77 p pic 9(4).
77 q pic 9(4).
77 r pic 9(4).
Procedure Division using p q r.
compute p1=p / m1
compute p0=function mod(p,m1)
compute q1=q / m1
compute q0=function mod(p,m1)
compute r=function mod(function mod(p0*q1+p1*q0,m1)*m1+p0*q0,m)
End-Program mult.
Identification Division.
Program-Id. randomx.
Data Division.
Working-Storage Section.
77 b value 31415821.
77 a pic 9(4).
Linkage Section.
77 r pic 9(4).
Procedure Division using r.
call mult using a b r
compute a = function mod(r+1,m)
End-Program randomx.
¤ Dauer der Verarbeitung: 0.1 Sekunden
(vorverarbeitet)
¤
|
Haftungshinweis
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.
|
