Quellcode-Bibliothek

^© Kompilation durch diese Firma

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

Datei: as400sample.cob Sprache: Cobol

Original von: verschiedene^©

      * PROGRAM.. PLS SOME ONE HELP ME.. THANK YOU. JOE
      * von shamrea am 7.2.2007
        IDENTIFICATION DIVISION.
        PROGRAM-ID. GETTINGSTARTED.
        AUTHOR.

      *THIS PROGRAM ACCPETS TWO NUMBERS AND AN OPERATOR FROM THE USER AND
      *DEPENDING ON THE TYPE OF THE OPERATOR EITHER ADDS THE NUMBER OR MULTIPLY
      *THEM TOGETHER AND DISPLAYS THE RESULTS

        DATA DIVISION.

        WORKING-STORAGE SECTION.
        01 NUM1 PIC 999 VALUE ZERO.
        01 NUM2 PIC 999 VALUE ZERO.
        01 RESULT PIC 999 VALUE ZERO.
        01 OPERATOR PIC X VALUE SPACE.
        01 SELECTOR PIC X VALUE SPACE.

        PROCEDURE DIVISION.
        CALCULATOR.
        PERFORM UNTIL SELECTOR = "N"
          DISPLAY "INPUT FIRST NUMBER :"
          ACCEPT NUM1
          DISPLAY "INPUT SECOND NUMBER :"
          ACCEPT NUM2
          DISPLAY "INPUT OPERATOR (+ OR *) :"
          ACCEPT OPERATOR
          EVALUATE OPERATOR
          WHEN "+"
           COMPUTE RESULT = NUM1 + NUM2
           DISPLAY "RESULT IS = " , RESULT

          WHEN "*"
           COMPUTE RESULT = NUM1 * NUM2
           DISPLAY "RESULT IS = " , RESULT

          WHEN OTHER
           DISPLAY "INVALID INPUT !!!"
          END-EVALUATE
          DISPLAY "TRY AGAIN? (Y/N)"
          ACCEPT SELECTOR
        END-PERFORM.
        STOP RUN.

¤ Dauer der Verarbeitung: 0.0 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.