Tuesday, November 23, 2010

Program to convert time given in second to hr ,min and second

        Identification Division.
       Program-ID. conversion.
       Environment Division.
       Data Division.
       Working-Storage Section.
       77 Sec PIC 9(6).
       77 Min PIC 9(6).
       77 Hr PIC 9(6).
       Procedure division.
       Main-Para.
           Display "Enter Seconds : ".
           Accept Sec.
           Divide Sec BY 60 Giving Min Remainder Sec.
           Divide Min BY 60 Giving Hr Remainder Min.
           Display "Hourse : ", Hr.
           Display "Minutes : ", Min.
           Display "Seconds : ", Sec.
           Stop Run

No comments:

Post a Comment