0

Program Perform

       IDENTIFICATION DIVISION.
       PROGRAM-ID. AnnaSP.
       ENVIRONMENT DIVISION.
       DATA DIVISION.
       WORKING-STORAGE SECTION.
       77 BILANGAN PIC 99.
       PROCEDURE DIVISION.
       PROGRAM-UTAMA.
           PERFORM CETAK-BILANGAN
           VARYING BILANGAN FROM 1 BY 2
           UNTIL BILANGAN > 9.
           STOP ' '.
           STOP RUN.
       CETAK-BILANGAN.
           DISPLAY BILANGAN.

Anna

Thanks for visit my blog. Hopefully, the information can be useful and if any questions please enter in the comments field :)

No comments:

Post a Comment