Quelle tall.cob Sprache: Cobol

000100 IDENTIFICATION DIVISION.
000200 PROGRAM-ID. TALL.
000300
* from COBUG, May/4/2007
000400*------------------------------------------------------------
000500* Enkel / dum løsning på tall-oppgaven.
000600* Finner svaret med "brutal force and total ignorance".
000700* Man kan gjøre mange og store forbedringer
000800* i denne koden!
000900*------------------------------------------------------------
001000
001100 ENVIRONMENT DIVISION.
001200 DATA DIVISION.
001300 WORKING-STORAGE SECTION.
001400
001500 01 X PIC 99999.
001600 01 Y PIC 99999.
001700 01 Y-MAX PIC 99999.
001800 01 LEFT-SIDE PIC 9999999.
001900 01 RIGHT-SIDE PIC 9999999.
002000
002100 PROCEDURE DIVISION.
002200
002300 PROGRAM-BEGIN.
002400 DISPLAY
002500 MOVE 0 to X
002600 PERFORM LOOP-X
002700 UNTIL X = 50000.
002800 DISPLAY
002900 STOP RUN.
003000
003100 LOOP-X.
003200 ADD 1 TO X
003300 COMPUTE Y = X - 1
003400 COMPUTE Y-MAX = 2 * X
003500 PERFORM LOOP-Y
003600 UNTIL Y = Y-MAX.
003700
003800 LOOP-Y.
003900 ADD 1 TO Y
004000 COMPUTE LEFT-SIDE = 2 * X * X
004100 COMPUTE RIGHT-SIDE = Y * Y + 1
004200 IF LEFT-SIDE IS EQUAL RIGHT-SIDE
004300 PERFORM DISPLAY-SOLUTION.
004400
004500 DISPLAY-SOLUTION.
004600 DISPLAY
004700 " X = " X
004800 " Y = " Y
004900 MOVE Y-MAX TO Y.

quality100%

¤ Dauer der Verarbeitung: 0.9 Sekunden (vorverarbeitet) ¤

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.