Gedichte Musik Bilder Quellcodebibliothek Diashow Normaldarstellung
Quellcodebibliothek Statistik Leitseite products/Sources/formale Sprachen/Cobol/verschiedene-Autoren/Cobug/   (Columbo Version 0.7©)  Datei vom 4.1.2008 mit Größe 675 B image not shown  

SSL tall-answer.cob   Interaktion und
PortierbarkeitCobol

 
      01 x pic 9(5) comp value 0.
      01 y pic 9(5) comp value 0.
      01 y-max pic 9(5) comp value 0.
      01 left-side pic 9(7) comp value 0.
      01 right-side pic 9(7)comp value 0.
      * from COBUG, May/4/2007
      * see tall.cob
      Procedure Division.

      perform varying x from 1 by 1
      until x = 50000
      compute y = x -1
      compute y-max = 2 * x
      perform varying y from 1 by 1
      until y = y-max
      compute left-side = 2 * x * x
      compute right-side = y * Y + 1
      if left-side = right-side
      display “x = “ x
      “ y = “ y
      move y-max to y
      end-if
      end-perform
      end-perform. 

90%


¤ Diese beiden folgenden Angebotsgruppen bietet das Unternehmen0.12Angebot  Wie Sie bei der Firma Beratungs- und Dienstleistungen beauftragen können  ¤

*Eine klare Vorstellung vom Zielzustand




Wurzel

Suchen

Beweissystem der NASA

Beweissystem Isabelle

NIST Cobol Testsuite

Cephes Mathematical Library

Wiener Entwicklungsmethode

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.