Assalamualaikum Wr. Wb.
Sekali lagi saya akan mendemokan instruksi-instruksi pada cobol. Kali ini postingan saya mengenai perintah atau instruksi IF. Dimana IF berdampingan dengan GO TO. Penggunaannya tidak begitu berbeda dengan progam lain, seperti pascal ataupun visual basic.
Yang berbeda dengan pascal dalam penggunaan IF pada cobol yaitu, dalam cobol tidak menggunakan ELSE. Dalam cobol bisa menggunakan ELSE atau tanpa menggunakan ELSE
Bentuk umun IF pada PASCAL
IF THEN ELSE
Contoh : IF a = ”3” print ya;
Else print tidak;
Bentuk umum IF pada Cobol
IF
Contoh : IF a = “3” display ya.
IF a = “4” display tidak.
IDENTIFICATION DIVISION.
PROGRAM-ID. IF.
AUTHOR. PLAYING FOOTBALL.
ENVIRONMENT DIVISION.
DATA DIVISION.
WORKING-STORAGE SECTION.
01 MASUKAN.
02 A PIC 9.
SCREEN SECTION.
01 HAPUS-LAYAR.
02 BLANK SCREEN.
PROCEDURE DIVISION.
MULAI.
DISPLAY HAPUS-LAYAR.
DISPLAY " ".
DISPLAY "UNIVERSITAS GUNADARMA".
DISPLAY " ".
DISPLAY " ".
DISPLAY "PILIH FAKULTAS YANG ANDA SENANGI"
DISPLAY " ".
DISPLAY "1. FAKULTAS ILMU KOMPUTER".
DISPLAY "2. FAKULTAS EKONOMI".
DISPLAY " ".
DISPLAY "MASUKAN NOMOR :".
ACCEPT A.
IF A = "1" GO TO SATU.
IF A = "2" GO TO DUA.
DISPLAY "ANDA SALAH MEMILIH, TEKAN ENTER".
GO TO MULAI.
SATU.
DISPLAY HAPUS-LAYAR.
DISPLAY " ".
DISPLAY "FAKULTAS ILMU KOMPUTER".
DISPLAY " ".
DISPLAY "PROGRAM S1 : SISTEM KOMPUTER".
DISPLAY " SISTEM INFORMASI".
DISPLAY " ".
DISPLAY "PROGRAM D3 : TEHNIK KOMUTER".
DISPLAY " MANAGEMENT INFORMATIKA".
GO TO SELESAI.
DUA.
DISPLAY HAPUS-LAYAR.
DISPLAY " ".
DISPLAY "FAKULTAS EKONOMI".
DISPLAY " ".
DISPLAY "PROGRAM S1 : AKUNTANSI".
DISPLAY " MANAGEMENT".
DISPLAY " ".
DISPLAY "PROGRAM D3 : AKUNTANSI KEUANGAN".
DISPLAY " AKUNTANSI PERBANKAN".
DISPLAY " MANAGEMENT KEUANGAN".
DISPLAY " MANAGEMENT PEMASARAN".
GO TO SELESAI.
SELESAI.
STOP RUN.
Itulah program cobol menggunakan IF. Gimana mudah bukan… apa lagi bahasanya hampir sama dengan pascal..
Selamat mencoba yah… tentunya dengan logika-logika yang lebih ok lagi… karena itu hanya sebagian kecil dari IF. Kita dapat menambahkan lagi IF di di dalam IF…
Semoga share saya kali ini bermanfaat…
Wassalamualaikum Wr.Wb.
OR
click this if nothing happened
No comments:
Post a Comment