PROGRAM SEGITIGA SIKU-SIKU PADA COBOL

       
 Halo, pada hari ini saya akan membagikan sedikit informasi tentang program segitiga siku-siku dengan menggunakan bahasa pemrograman cobol. (mohon perhatikan kolom saat mengcopy-paste codingan ini)

Listing :
       IDENTIFICATION DIVISION.
       PROGRAM-ID. LA3.
       ENVIRONMENT DIVISION.
       DATA DIVISION.
       WORKING-STORAGE SECTION.
       01 NOMOR
           02 A PIC 9(2).
           02 B PIC 9(2).
           02 C PIC 9(2).
       PROCEDURE DIVISION.
       AWAL.
           DISPLAY "MASUKKAN LOOPING :",ACCEPT C.
           COMPUTE A = 1.
           COMPUTE B = C.
       LOOP.
           DISPLAY ' '.
           PERFORM BINTANG A TIMES.
           IF A = C
                GO TO HENTI
           ELSE
                GO TO CEK.
       CEK.
           COMPUTE A = A + 1.
           COMPUTE B = B - 1.
           GO TO LOOP.
       BINTANG.
           DISPLAY ( , ) " *".
       HENTI.
           STOP RUN.

Output : 

 ====================================================================

SEMOGA BERMANFAAT :)