0 PROGRAM SEDERHANA COBOL

COBOL (singkatan dari Common Business Oriented Language) adalah sebuah bahasa pemrograman generasi ketiga. Sesuai dengan namanya, maka bahasa COBOL mempunyai fungsi menyelesaikan masalah-masalah yang berhubungan dengan perdagangan, seperti sistem pengelolaan keuangan, laporan pengeluaran sebuah perusahaan dan lain-lain. Dikembangkan tahun 1959 dan banyak digunakan pada mainframe dan komputer mini.
Kemudahan COBOL:

• Sintaksnya berbahasa Inggris
• Penanganan file
• Input/output program.

CODINGAN PROGRAM ULANG3

       IDENTIFICATION DIVISION.

       PROGRAM-ID. ricko.

       ENVIRONMENT DIVISION.

       DATA DIVISION.

       WORKING-STORAGE SECTION.

       77 bilangan PIC 99.

       PROCEDURE DIVISION.

       program-utama.

           PERFORM cetak-bilangan

               VARYING bilangan FROM 1 BY 1 UNTIL bilangan > 6.

                   STOP RUN.

       cetak-bilangan.

                   DISPLAY bilangan.

OUTPUT PROGRAM ULANG3

CODINGAN PROGRAM ULANG4

       IDENTIFICATION DIVISION.

       PROGRAM-ID.            ricko.

       ENVIRONMENT DIVISION.

       DATA  DIVISION.

       WORKING-STORAGE SECTION.

       77   bilangan                                PIC 99.

       PROCEDURE DIVISION.

       Program-utama.

           PERFORM  Cetak-bilangan

                       VARYING  bilangan  FROM  0  BY 1 UNTIL  bilangan > 10.

           STOP RUN.

       Cetak-bilangan.

           DISPLAY  bilangan.

OUTPUT PROGRAM ULANG4

CODINGAN PROGRAM ULANG5

      IDENTIFICATION DIVISION.

       PROGRAM-ID. ricko.

       ENVIRONMENT DIVISION.

       DATA DIVISION.

       WORKING-STORAGE SECTION.

       77 x PIC 9.

       77 y PIC 9.

       PROCEDURE DIVISION.

       program-utama.

           PERFORM cetakxy

               VARYING x FROM 1 BY 1 UNTIL x > 3

                       AFTER y FROM 1 BY 1 UNTIL y > 2.

                   STOP RUN.

       cetakxy.

                   DISPLAY 'nilai x = ', x, ' y = ' , y.

OUTPUT PROGRAM ULANG5