|
* 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.14 Sekunden
(vorverarbeitet)
¤
|
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.
|
