Quelle  tall.cob

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.