|
* 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.
¤ Diese beiden folgenden Angebotsgruppen bietet das Unternehmen0.50Angebot
Wie Sie bei der Firma Beratungs- und Dienstleistungen beauftragen können
¤
|
Lebenszyklus
Die hierunter aufgelisteten Ziele sind für diese Firma wichtig
Ziele
Entwicklung einer Software für die statische Quellcodeanalyse
|
