Question

How to convert Celsius to Fahrenheit in COBOL

Answer 1

IDENTIFICATION DIVISION.
PROGRAM-ID. INPUT_NUMBERS.
DATA DIVISION.
    WORKING-STORAGE SECTION.
      77 CELCIUS       PIC 9(3).                                      
      77 FAHRENHEIT    PIC 999V999.        
PROCEDURE DIVISION.
    ACCEPT CELCIUS.                                             
    COMPUTE FAHRENHEIT = (CELCIUS * ( 9 / 5 )) + 32.          
    DISPLAY FAHRENHEIT.             
STOP RUN.


*> STDIN
*>    41


*> run:
*>
*> 105.800
*>

 

 

70+ SQL courses for beginners and professionals