Logo 
Search:

Cobol Articles

Submit Article
Home » Articles » Cobol » Homework HelpRSS Feeds

Convert the Fahrenheit into temperature using C = (5/9) * (f - 32)

Posted By: Betsy Fischer     Category: Cobol     Views: 16192

Convert the Fahrenheit into temperature using C = (5/9) * (f - 32).

Code for Convert the Fahrenheit into temperature using C = (5/9) * (f - 32) in Cobol

       IDENTIFICATION DIVISION.
       PROGRAM-ID. FAHREN-TO-CEL.
       ENVIRONMENT DIVISION.
       INPUT-OUTPUT SECTION.
       FILE-CONTROL.
           SELECT IN1 ASSIGN TO DISK
           ORGANIZATION IS LINE SEQUENTIAL.
           SELECT OUT1 ASSIGN TO DISK
           ORGANIZATION IS LINE SEQUENTIAL.
       DATA DIVISION.
       FILE SECTION.
       FD IN1
           LABEL RECORDS ARE STANDARD
           VALUE OF FILE-ID IS "IN1.TXT".
       01 IN-REC.
          05 F1-IN PIC 9(3).
       FD OUT1
           LABEL RECORDS ARE STANDARD
           VALUE OF FILE-ID IS "OUT1.TXT".
       01 OUT-REC PIC X(80).

       WORKING-STORAGE SECTION.
       01 OUTREC.
          05 F1-OUT PIC 9(3).
          05 FILLER PIC X(10).
          05 ANS-OUT PIC 9(3).99.
       01 H1.
          05 F1 PIC X(80) VALUE ALL '*'.
       01 H2.
          05 F1 PIC X(10) VALUE "FHARENHIT".
          05 FILLER PIC X(10).
          05 F2 PIC X(8) VALUE "CELCIOUS".
       77 A-T-M-R PIC XXX VALUE 'YES'.
       77 CENT PIC 9(3)V99.
       PROCEDURE DIVISION.
       MAIN-PARA.
           OPEN INPUT IN1.
           OPEN OUTPUT OUT1.
           WRITE OUT-REC FROM H1.
           WRITE OUT-REC FROM H2.
           WRITE OUT-REC FROM H1.
           READ IN1
                AT END MOVE 'NO' TO A-T-M-R.
                PERFORM PARA1 UNTIL A-T-M-R = 'NO'.
              CLOSE IN1.
              CLOSE OUT1.
              STOP RUN.
       PARA1.
           MOVE F1-IN TO F1-OUT.
           COMPUTE ANS-OUT = ( 5 / 9 ) * ( F1-IN - 32 ).
           WRITE OUT-REC FROM OUTREC.
           READ IN1 AT END MOVE 'NO' TO A-T-M-R.
           

Input:-

100
090
099
098

Output:-

********************************************************************************
FHARENHIT           CELCIOUS                                                    
********************************************************************************
100          037.40                                                             
090          031.90                                                             
099          036.85                                                             
098          036.30                                                             
  
Share: 



Betsy Fischer
Betsy Fischer author of Convert the Fahrenheit into temperature using C = (5/9) * (f - 32) is from Frankfurt, Germany.
 
View All Articles

 
Please enter your Comment

  • Comment should be atleast 30 Characters.
  • Please put code inside [Code] your code [/Code].

 
No Comment Found, Be the First to post comment!