disini saya akan memosting kodingan cobol dengan seleksi kondisi dengan 2 Menu...
(masih newbie juga si sama kaya yang liat) hehehehe :D
langsung aja yuk ke codinganya atau listingnya ..
lumayan agak panjang si logika saya ..
maaf ya ..
IDENTIFICATION DIVISION.
PROGRAM-ID. HITUNG.
ENVIRONMENT DIVISION.
DATA DIVISION.
WORKING-STORAGE SECTION.
01 VARIABEL.
02 A PIC 99.
02 B PIC 99.
02 C PIC Z(4)9.
02 PILIH PIC 9.
02 P PIC 9.
02 SISI PIC 999.
02 PANJANG PIC 999.
02 LEBAR PIC 999.
02 ALAS PIC 999.
02 TINGGI PIC 999.
02 LUAS PIC Z(4).
02 LAGI PIC A.
02 UTS PIC 9(3).
02 UAS PIC 9(3).
02 NAMA PIC A(20).
02 KELAS PIC X(5).
02 NPM PIC X(8).
02 TOTAL PIC Z(2).
02 ULANG PIC A.
SCREEN SECTION.
01 HAPUS-LAYAR.
02 BLANK SCREEN.
PROCEDURE DIVISION.
MULAI.
DISPLAY HAPUS-LAYAR.
DISPLAY(02, 27)'+-------------------------+'.
DISPLAY(03, 27)'| MENU |'.
DISPLAY(04, 27)'| 1. LUAS PERSEGI |'.
DISPLAY(05, 27)'| 2. LUAS PERSEGI PANJANG |'.
DISPLAY(06, 27)'| 3. LUAS SEGITIGA |'.
DISPLAY(07, 27)'| 4. NILAI |'.
DISPLAY(08, 27)'| 5. MENU KEDUA |'.
DISPLAY(09, 27)'| 6. KELUAR |'.
DISPLAY(10, 27)'+-------------------------+'.
DISPLAY(11, 27)' PILIHAN : '.
ACCEPT PILIH.
DISPLAY(12, 27)'+-------------------------+'.
DISPLAY SPACE.
IF PILIH = 1 GO TO PIL1.
IF PILIH = 2 GO TO PIL2
IF PILIH = 3 GO TO PIL3.
IF PILIH = 4 GO TO PIL4.
IF PILIH = 5 GO TO PIL5.
IF PILIH = 6 GO TO SELESAI.
PIL1.
DISPLAY(15, 27) '+------------------+'.
DISPLAY(16, 27) ' ===LUAS PERSEGI=== '.
DISPLAY(17, 27) ' SISI = '.
ACCEPT( , ) SISI.
COMPUTE LUAS = SISI * SISI.
DISPLAY(18, 27) ' LUASNYA = ' LUAS.
DISPLAY(19, 27) '+------------------+'.
GO TO MAU-LAGI.
PIL2.
DISPLAY(14, 27) '+------------------------+'.
DISPLAY(15, 27) ' ==LUAS PERSEGI PANJANG== '.
DISPLAY(16, 27) ' PANJANG = '.
ACCEPT( , ) PANJANG.
DISPLAY(17, 27) ' LEBAR = '
ACCEPT( , )LEBAR.
COMPUTE LUAS = PANJANG * LEBAR.
DISPLAY(18, 27) ' LUASNYA = ' LUAS.
DISPLAY(19, 27) '+------------------------+'.
GO TO MAU-LAGI.
PIL3.
DISPLAY(14, 27) '+-----------------+'.
DISPLAY(15, 27) ' ==LUAS SEGITIGA== '.
DISPLAY(16, 27) ' ALAS = '.
ACCEPT( , ) ALAS
DISPLAY(17, 27) ' TINGGI = '.
ACCEPT( , )TINGGI.
COMPUTE LUAS = (ALAS * TINGGI) / 2.
DISPLAY(18, 27) ' LUASNYA = ' LUAS.
DISPLAY(19, 27) '+-----------------+'.
GO TO MAU-LAGI.
PIL4.
DISPLAY(11, 27) '+------------------------------+'.
DISPLAY(12, 27) ' ===DATA MAHASISWA GUNADARMA=== '.
DISPLAY(13, 27) ' NAMA ANDA = '.
ACCEPT( , ) NAMA.
DISPLAY(14, 27) ' KELAS ANDA = '.
ACCEPT( , ) KELAS.
DISPLAY(15, 27) ' NPM ANDA = '.
ACCEPT( , ) NPM.
DISPLAY(16, 27) ' MASUKKAN NILAI UTS = '.
ACCEPT( , ) UTS.
DISPLAY(17, 27) ' MASUKKAN NILAI UAS = '.
ACCEPT( , ) UAS.
COMPUTE TOTAL = (UTS + UAS) / 2.
DISPLAY(18, 27) ' NILAI ANDA = ' TOTAL.
IF TOTAL < 50 DISPLAY(19, 27) ' ANDA GAGAL!! SILAHKAN BELAJAR !!'.
ELSE DISPLAY(19, 42) ' -> ANDA LULUS!!'.
DISPLAY(20, 27) '+------------------------------+'.
GO TO MAU-LAGI.
PIL5.
DISPLAY HAPUS-LAYAR.
DISPLAY(3, 27)'+----------MENU----------+'.
DISPLAY(4, 27)'| 1. PERTAMBAHAN |'.
DISPLAY(5, 27)'| 2. PENGURANGAN |'.
DISPLAY(6, 27)'| 3. PERKALIAN |'.
DISPLAY(7, 27)'| 4. PEMBAGIAN |'.
DISPLAY(8, 27)'| 5. MENU PERTAMA |'.
DISPLAY(9, 27)'| 6. KELUAR |'.
DISPLAY(10, 27)'+------------------------+'.
DISPLAY(11, 27)'PILIHAN : '.
ACCEPT P.
DISPLAY(12, 27)'+------------------------+'.
DISPLAY SPACE.
IF P = 1 GO TO PIL6.
IF P = 2 GO TO PIL7.
IF P = 3 GO TO PIL8.
IF P = 4 GO TO PIL9.
IF P = 5 GO TO MULAI.
IF P = 6 GO TO SELESAI.
PIL6.
DISPLAY (16, 27) ' +=======PERTAMBAHAN=======+ '.
DISPLAY (17, 27) ' MASUKKAN NILAI PERTAMA = '.
ACCEPT ( , ) A.
DISPLAY (18, 27) ' MASUKKAN NILAI KEDUA = '.
ACCEPT ( , ) B.
COMPUTE C = A + B.
DISPLAY (20, 27) ' HASILNYA = ' C.
GO TO MAU-LAGI2.
PIL7.
DISPLAY(16, 27) ' +=======PENGURANGAN=======+ '.
DISPLAY(17, 27) ' MASUKKAN NILAI PERTAMA = '.
ACCEPT( , ) A.
DISPLAY(18, 27) ' MASUKKAN NILAI KEDUA = '.
ACCEPT( , ) B.
COMPUTE C = A - B.
DISPLAY (20, 27) ' HASILNYA = ' C.
GO TO MAU-LAGI2.
PIL8.
DISPLAY(16, 27)' +=======PENGALIAN=======+ '.
DISPLAY(17, 27)' MASUKKAN NILAI PERTAMA = '.
ACCEPT( , ) A.
DISPLAY(18, 27)' MASUKKAN NILAI KEDUA = '.
ACCEPT( , ) B.
COMPUTE C = A * B.
DISPLAY (20, 27)' HASILNYA = ' C.
GO TO MAU-LAGI2.
PIL9.
DISPLAY(16, 27)' +=======PEMBAGIAN=======+ '.
DISPLAY(17, 27)' MASUKKAN NILAI PERTAMA = '.
ACCEPT( , ) A.
DISPLAY(18, 27)' MASUKKAN NILAI KEDUA = '.
ACCEPT( , ) B.
COMPUTE C = A / B.
DISPLAY (20, 27)' HASILNYA = ' C.
GO TO MAU-LAGI2.
MAU-LAGI.
DISPLAY(21, 27) '+------------------------+'.
DISPLAY(22, 27) ' BALIK LAGI KE MENU [Y/T] '.
DISPLAY(23, 27) '+------------------------+'.
ACCEPT( , ) LAGI.
IF LAGI = 'Y' GO TO MULAI.
IF LAGI = 'y' GO TO MULAI.
IF LAGI = 'T' GO TO SELESAI.
IF LAGI = 't' GO TO SELESAI.
MAU-LAGI2.
DISPLAY(21, 27) '+------------------------+'.
DISPLAY(22, 27) ' BALIK LAGI KE MENU [Y/T] '.
DISPLAY(23, 27) '+------------------------+'.
ACCEPT( , ) ULANG.
IF ULANG = 'Y' GO TO PIL5.
IF ULANG = 'y' GO TO PIL5.
IF ULANG = 'T' GO TO SELESAI.
IF ULANG = 't' GO TO SELESAI.
SELESAI.
STOP RUN.
Menu yang pertama dan disini saya pilih yang nilai.
Menu yang ke dua dan ini pilihan yang pembagian..
Cukup sekian dari saya..
kurang lebihnya mohon maaf ..
kalo anda lebih jago ..
monggo berbagi dan jang lupa yoo JOIN ya ..
makasih udah meliat blog saya :) :D 0:-)
No comments :
Post a Comment