products/Sources/formale Sprachen/COBOL/verschiedene-Autoren/AbsInt-Group/  image not shown  

Quellcode-Bibliothek

© Kompilation durch diese Firma

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

Datei: double-2.cob   Sprache: Cobol

Original von: verschiedene©
       identification division.
       program-id. dou2.
       author. "Patrick Cousot".
       date-written. 10.3.2006.
       date-compiled.
       data division.
       working-storage section.
       01 pic X.
         88 xfalse value 0.
         88 xtrue  value 1.
       77 x pic 9(4) comp-4.
       77 y pic 9(4) comp-4.
       77 z pic 9(4) comp-4.
       procedure division.
      *   if ((x < -1.0e38) or (x > 1.0e38)) 
          if ((x < -1.0e13) or (x > 1.0e13)) 
           stop run.
         perform until false
          compute y = x + 1.0e21
          compute z = x - 1.0e21
      *     compute y = x + 1.0e18
      *     compute z = x - 1.0e11
           compute x = y - z
         end-perform.
       end-program dou2.

¤ Dauer der Verarbeitung: 0.15 Sekunden  (vorverarbeitet)  ¤



Kontakt
Drucken
Kontakt
sprechenden Kalenders

in der Quellcodebibliothek suchen




schauen Sie vor die Tür

Fenster


Die Firma ist wie angegeben erreichbar.

Die farbliche Syntaxdarstellung ist noch experimentell.


Bot Zugriff