Belajar COBOL

Apa itu COBOL?

COBOL (Common Business Oriented Language) adalah suatu bahasa komputer awam (High Level Language) yang berorientasi langsung pada permasalahan bisnis. COBOL hampir dapat digunakan pada semua komputer bila terdapat compiler COBOL-nya. Diciptakan pada tahun 1959 dan dikembangkan oleh suatu grup bernama CODASYL (Conference on Data System Language).

Diperkenalkan pertama kali secara formal pada bulan Januari 1960. COBOL mempunyai banyak versi, sehingga untuk mempermudah penggunanya COBOL terus dikembangkan dan distandarisasi pada tahun 1968 dan 1974, diberi nama ANSI COBOL (American National Standard Institute COBOL).

Contoh Program

Berikut adalah listing code untuk program kalkulator dengan menggunakan Bahasa Pemrograman COBOL.

       IDENTIFICATION DIVISION.

       PROGRAM-ID. IFSTAT.
       AUTHOR. INDERA.
       ENVIRONMENT DIVISION.
       DATA DIVISION.
       WORKING-STORAGE SECTION.
       77 P PIC 9.
       77 B1 PIC 9(5).
       77 B2 PIC 9(5).
       77 H PIC -Z(10).99.
       77 U PIC A.
       SCREEN SECTION.
       01 HAPUS-LAYAR.
           02 BLANK SCREEN.
       PROCEDURE DIVISION.
       MULAI.
           DISPLAY HAPUS-LAYAR.
           PERFORM MENU.
           PERFORM PILIHAN.
           IF P > 5 PERFORM PILIHAN UNTIL P < 6.
           IF P < 5 PERFORM MASUKKAN-BILANGAN.
           PERFORM KALKULATOR.
           IF P = 5 PERFORM SELESAI.
           DISPLAY 'HASIL = ', H.
           DISPLAY 'ULANGI ? (Y/T) : '.
           ACCEPT U.
           IF U = 'Y' GO TO MULAI.
           PERFORM SELESAI.
       MENU.
           DISPLAY '=====MENU====='.
           DISPLAY '1. PENJUMLAHAN'.
           DISPLAY '2. PENGURANGAN'.
           DISPLAY '3. PERKALIAN'.
           DISPLAY '4. PEMBAGIAN'.
           DISPLAY '5. EXIT'.
       PILIHAN.    
           DISPLAY 'PILIHAN : '.
           ACCEPT P.
       MASUKKAN-BILANGAN.
           DISPLAY 'BILANGAN PERTAMA : '.
           ACCEPT B1.
           DISPLAY 'BILANGAN KEDUA : '.
           ACCEPT B2.
       KALKULATOR.
           IF P = 1 PERFORM PENJUMLAHAN.
           IF P = 2 PERFORM PENGURANGAN.
           IF P = 3 PERFORM PERKALIAN.
           IF P = 4 PERFORM PEMBAGIAN.
       PENJUMLAHAN.
           COMPUTE H = B1 + B2.
       PENGURANGAN.
           COMPUTE H = B1 - B2.
       PERKALIAN.
           COMPUTE H = B1 * B2.
       PEMBAGIAN.
           COMPUTE H = B1 / B2.
       SELESAI.
           DISPLAY 'TERIMA KASIH'.
           STOP RUN.

Namun, program tersebut belumlah sempurna karena masih sangat sederhana dan masih ada kekurangan, karna hanya dapat menghitung maksimal 5 digit angka saja.

Mohon masukannya. Terima kasih dan selamat mencoba.

Read more »

Cafe Python (Contoh Penggunaan While, For, If, List (Array), Function)

Terinspirasi dari tugas-tugas di kampus, akhirnya gw coba-coba bikin Cafe ala Python. Menunya baru dikit sie . . . maklumlah baru Openning gitu loo . . . Mumpung masih discount, buruan ya cobain menu-menunya. Mudah-mudahan sie ga basi di lidah (wkwkwkw . . . . . ).

Ada contoh perulangan (looping) while ama for, trus ada percabangan if...elif...else, list(array) ama function(fungsi) juga ada. Semuanya gw mix (emang DJ? hehe . . . ) jadi satu.

Selamat menikmati. :)

awal='\nSelamat Datang di Cafe Python'

akhir='\nTerima kasih telah berkunjung ke Cafe saya.\nBesok datang lagi ya, ajak temen-temennya.\nSebelum pulang jangan lupa bayar dulu di kasir.'

info='\nCafe ini dibuat oleh : \nIndera Gunawan\nNPM   : 53410507\nKelas : 1IA15'

garis='\n-------------------------------------------------------'

garis2='\n======================================================='

mn=['Kalkulator','Faktorial','Bilangan Ganjil Genap','Tabel Matematika','Deret Fibonaci']

cl=['Penjumlahan','Pengurangan','Perkalian','Pembagian']

x='y'

y=1

kom1='Anda memilih menu '

inp='Masukkan pilihan anda : '

inp1='Masukkan bilangan : '

war='Maaf, pilihan anda tidak tersedia.'

def menu():

    print 'Daftar Menu'

    for i in range (0,5,1):

        print i+1,mn[i]

def calc():

    for i in range (0,4,1):

        print i+1,cl[i]

def Tambah(k1,k2):

    k3=k1+k2

    print k1,'+',k2,'=',k3

    return k3

def Kurang(k1,k2):

    k3=k1-k2

    print k1,'-',k2,'=',k3

    return k3

def Kali(k1,k2):

    k3=k1*k2

    print k1,'x',k2,'=',k3

    return k3

def Bagi(k1,k2):

    k3=float (k1)/float (k2)

    print k1,'/',k2,'=',k3

    return k3

print garis2,awal

while y>0:

    if x=='y':

        print garis

        menu()

        print garis

        p=input(inp)

        if p!=1 and p!=2 and p!=3 and p!=4 and p!=5:

            print war

            exit

        else:

            print kom1,mn[p-1]

            if p==1:

                calc()

                p2=input('\n'+inp)

                if p2==1 or p2==2 or p2==3 or p2==4:

                    k1=input('\nBilangan pertama : ')

                    k2=input('Bilangan kedua   : ')

                    if p2==1:

                        Tambah(k1,k2)

                    elif p2==2:

                        Kurang(k1,k2)

                    elif p2==3:

                        Kali(k1,k2)

                    else:

                        Bagi(k1,k2)

                else:

                    print war

                    exit

            elif p==2:

                f=input('\n'+inp1)

                a=1

                for i in range (f,0,-1):

                    a*=i

                print 'Hasil dari',f,'! =',a,

            elif p==3:

                g=input('\n'+inp1)

                if g%2:

                    gg='ganjil'

                elif g==0:

                    gg='netral'

                else:

                    gg='genap'

                print g, 'adalah bilangan ',gg

            elif p==4:

                calc()

                b=1

                p3=input('\n'+inp)

                if p3==1 or p3==2 or p3==3 or p3==4:

                    tb=input('\n'+inp1)

                    print 'Tabel',cl[p3-1],tb

                    if p3==1:

                        for j in range (1,11,1):

                            b=tb+j

                            print tb,'+',j,'=',b

                    elif p3==2:

                        for j in range (1,11,1):

                            b=tb-j

                            print tb,'-',j,'=',b

                    elif p3==3:

                        for j in range (1,11,1):

                            b=tb*j

                            print tb,'x',j,'=',b

                    else:

                        for j in range (1,11,1):

                            b=tb*j

                            print b,'/',tb,'=',j

                else:

                    print war

                    exit

            else:

                def fibo(n):

                    if n<0:

                        print'Bilangan tidak boleh negatif.'

                    if n==0 or n==1:

                        return n

                    else:

                        return fibo(n-1)+fibo(n-2)

                nilai=input(inp1)

                hasil=fibo(nilai)

                print 'Fibonaci (%d) = %d' % (nilai,hasil)

    elif x=='t':

        if x=='t':

            break       

    else:

        print '\nMaaf, anda menekan tombol yang salah.\nTekan tombol y atau t saja.'       

    print garis

    x=raw_input('Apakah anda ingin memesan lagi ?\nJika ya, tekan y. Jika tidak, tekan t : ')   

print garis,akhir,'\n',info,garis2

Panjang ya coding-nya? :p Hehe . . . santai, Gan. Bisa langsung pesen di sini kok. Tinggal save trus open deh dari Python Shell elo. Yang doyan rasa txt juga ada, pesen di sini aja.

Read more »