Programming Fundamentals/Variables/COBOL

From Wikiversity
Jump to navigation Jump to search

variables.cbl[edit | edit source]

*> This program converts a Fahrenheit temperature to Celsius.
*>
*> 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. VARIABLES.

DATA DIVISION.
WORKING-STORAGE SECTION.
01 FAHRENHEIT    PIC 999V99.
01 CELSIUS       PIC ZZ9.99.

PROCEDURE DIVISION.

DISPLAY "Enter Fahrenheit temperature:".
ACCEPT FAHRENHEIT.

COMPUTE CELSIUS = (FAHRENHEIT - 32) * 5 / 9.

DISPLAY FAHRENHEIT "° Fahrenheit is " CELSIUS "° Celsius".

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.

See Also[edit | edit source]