Quellcode-Bibliothek

^© Kompilation durch diese Firma

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

Datei: Sprache: Cobol

Original von: verschiedene^©

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.

¤ Dauer der Verarbeitung: 0.1 Sekunden (vorverarbeitet) ¤

Download des Quellennavigators
Download des sprechenden Kalenders
in der Quellcodebibliothek suchen

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.