Ziele Untersuchung
mit Columbo Integrität von
Datenbanken Interaktion und
Portierbarkeit Ergonomie der
Schnittstellen

Angebot Produkte Projekt Beratung

Mittel Analytik Modellierung Sprachen Algebra Logik Hardware Thinking Intellekt

Zusammenhänge Gesellschaft Wirtschaft Branche Firma


products/sources/formale Sprachen/Cobol/verschiedene-Autoren/Sedgewick-Algorithmen/

Quellcode-Bibliothek

^© Kompilation durch diese Firma

[Weder Korrektheit noch Funktionsfähigkeit der Software werden zugesichert.]

Datei: Sprache: Cobol

Untersuchung verschiedene^©

       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.