Programming Fundamentals/Conditions/COBOL
Appearance
conditions.cbl
[edit | edit source]*> This program asks the user for a Fahrenheit temperature,
*> converts the given temperature to Celsius,
*> and displays the results.
*>
*> References:
*> https://www.mathsisfun.com/temperature-conversion.html
*> https://www.tutorialspoint.com/cobol/index.htm
*> https://open-cobol.sourceforge.io/doc/gnucobol.html
IDENTIFICATION DIVISION.
PROGRAM-ID. CONDITIONS.
DATA DIVISION.
WORKING-STORAGE SECTION.
01 CHOICE PIC X.
01 TEMP-IN PIC 999V99.
01 TEMP-OUT PIC ZZ9.99.
01 LABEL-IN PIC X(10).
01 LABEL-OUT PIC X(10).
PROCEDURE DIVISION.
MAIN.
*> MAIN could either be an IF-ELSE structure or an EVALUATE structure
DISPLAY "Enter F to convert to Fahrenheit or C to convert to Celsius:".
ACCEPT CHOICE
*> IF-ELSE approach
IF CHOICE = "C" OR CHOICE = "c" THEN
MOVE "Fahrenheit" TO LABEL-IN
MOVE "Celsius" TO LABEL-OUT
PERFORM GET-TEMPERATURE
PERFORM COMPUTE-CELSIUS
PERFORM DISPLAY-RESULT
ELSE
IF CHOICE = "F" OR CHOICE = "f" THEN
MOVE "Celsius" TO LABEL-IN
MOVE "Fahrenheit" TO LABEL-OUT
PERFORM GET-TEMPERATURE
PERFORM COMPUTE-FAHRENHEIT
PERFORM DISPLAY-RESULT
ELSE
DISPLAY "You must enter C to convert to Celsius or F to convert to Fahrenheit!"
END-IF
END-IF.
*> EVALUATE approach
EVALUATE TRUE
WHEN CHOICE = "C" OR CHOICE = "c"
MOVE "Fahrenheit" TO LABEL-IN
MOVE "Celsius" TO LABEL-OUT
PERFORM GET-TEMPERATURE
PERFORM COMPUTE-CELSIUS
PERFORM DISPLAY-RESULT
WHEN CHOICE = "F" OR CHOICE = "f"
MOVE "Celsius" TO LABEL-IN
MOVE "Fahrenheit" TO LABEL-OUT
PERFORM GET-TEMPERATURE
PERFORM COMPUTE-FAHRENHEIT
PERFORM DISPLAY-RESULT
WHEN OTHER
DISPLAY "You must enter C to convert to Celsius or F to convert to Fahrenheit!"
END-EVALUATE.
STOP RUN.
GET-TEMPERATURE.
DISPLAY "Enter " LABEL-IN " temperature:".
ACCEPT TEMP-IN.
COMPUTE-CELSIUS.
COMPUTE TEMP-OUT = (TEMP-IN - 32) * 5 / 9.
COMPUTE-FAHRENHEIT.
COMPUTE TEMP-OUT = TEMP-IN * 9 / 5 + 32.
DISPLAY-RESULT.
DISPLAY TEMP-IN "° " LABEL-IN " is " TEMP-OUT "° " LABEL-OUT.
Try It
[edit | edit source]Copy and paste the code above into one of the following free online development environments or use your own COBOL compiler / interpreter / IDE.