products/sources/formale sprachen/Java/openjdk-20-36_src/test/jdk/sun/nio/cs/mapping image not shown  

Quellcode-Bibliothek

© Kompilation durch diese Firma

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

Datei: div-wirth.cob   Sprache: Unknown

       identification division.
       program-id. div.
      *  aus Wirth, systematisches Programmieren p. 31 
       author"JD".
       date-written. 25.10.2004.
       date-compiled.
       data division.
       working-storage section.
       77 q pic 9(4).
       linkage section.
       77 x   pic 9(4).
       77 y   pic 9(4).
       77 r   pic 9(4).
       procedure division using x y r.
      * computes x / y
         move 0 to r
         move x to q.
      * invariant q * y + r = x  &&  r >= 0   
         perform until q < y
           subtract y from q
           add      1 to   r
         end-perform.
      *  r = x div y
        end-program div.

[ Dauer der Verarbeitung: 0.5 Sekunden  (vorverarbeitet)  ]