Program Segitiga Bahasa COBOL

Lisitng Program untuk progra segitiga pada bahasa COBOL
       IDENTIFICATION DIVISION.
       PROGRAM-ID. LOOPING.
       ENVIRONMENT DIVISION.
       DATA DIVISION.
       WORKING-STORAGE SECTION.
       01 INPUT-AREA.
           02 I PIC 9.
           02 J PIC 9.
           02 NILAI PIC 9 VALUE 1.
       PROCEDURE DIVISION.
       MULAI.
           PERFORM CETAK VARYING I FROM 6 BY -1 UNTIL I < NILAI
           AFTER J FROM 1 BY 1 UNTIL J > I.
       SELESAI.
           STOP RUN.
       CETAK.
           DISPLAY (, ) J.
           IF I = J DISPLAY SPACE.

Komentar

Posting Komentar

Postingan populer dari blog ini

MENGENAL JENIS – JENIS EFEK DI SEBUAH FILM

Tentunya kalian sering menonton film kan? Pasti suka bertanya – Tanya “kok bisa ya orang itu terbang?”, “kok bisa ya mobil berubah jadi robot?” dan masih banyak pertanyaan lainnya. Ya tentu saja semua itu bisa karena di setiap film itu banyak diberikan sebuah “sentuhan ajain” seperti efek – efek pada sebuah film yang bisa membuat kita kagum akan kehebatan dari sebuah film tersebut. Langsung saja kita bahas special effect yang biasa terdapat pada film. 1. Virtual Cinematography                 Efek ini biasanya dibuat dengan computer grafis. Bisa juga memotret bojek aslinya yang akan dibuat sebagai ibjek 3D sebagai kreasinya. 2. Digital Compositing                 Efek ini biasanya menggunakan cara penggabungan beberapa gambar menjadi satu. Biasanya lebih sering adegan yang disatukan dengan efek khususnya. Istilahnya seperti pe...
Baca selengkapnya

SISTEM IDEOLOGI MESIR

BAB 1 PENDAHULUAN 1.1 LATAR BELAKANG             Mesir atau Republik Arab Mesir adalah negara sosial demokrasi Berbentuk republik, dengan kepala negara seorang presiden. Secarageografis, Mesir merupakan salah satu negara yang berada di wilayah Afrika Utara dengan iklim yang panas. Namun, apabila dilihat dari sudut sejarah dan kebudayaannya, Mesir merupakan bagian dari Asia Barat. Kebudayaan Mesir didominasi oleh kebudayaan Islam yang kental, bahkan dijadikan sebagai penghasil peradaban Islam bagi bangsa Arab.Seperti halnya Negara - negara Arab yang lain, wilayah Mesir banyak dikelilingi oleh gurun pasir yang tandus. Hanya sebagian kecil wilayah Mesir yang cocok untuk pertanian. Salah satu kekayaan yang menjadi unggulan bagi Mesir adalah Sungai Nil, sekaligus sebagai pendukung kebudayaan Mesir sejak masa silam.Sungai Nil merupakan sumber kehidupan dan pendukung mata pencaharian bagi masyarakat Mesir. Sektor pertanian Mes...
Baca selengkapnya

Program Segitiga Bahasa Python

1. Untuk awal kita coba membuat sebuah segitiga dengan perataan kiri bawah. string = "" bar = 1 x = int(input("Masukkan angka :")) # Looping Baris while bar <= x:     kol = bar     # Looping Kolom     while kol > 0:         string = string + " * "         kol = kol - 1             string = string + "\n"     bar = bar + 1 print (string) 2. Membuat sebuah segitiga dengan perataan kiri atas. string = "" bar = int(input("Masukkan angka :")) #Looping Baris while bar >= 0:     kol = bar     # Looping Kolom     while kol > 0:         string = string + " * "         kol = kol - 1             string = string + "\n"     bar = bar - 1     print (s...
Baca selengkapnya