How to convert Celsius to Fahrenheit in COBOL

1 Answer

0 votes
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
*>

 

 



answered Oct 26, 2024 by avibootz
...