Logika
IDENTIFICATION DIVISION= Berisi
informasi tentang program yang bersangkutan, nama pembuat program, tgl
pembuatan dll. Harus ada didalam program, tetapi isinya tidak mempengaruhi
jalannya/ proses dari program.
ENVIRONMENT DIVISION = dalam
program cobol sebagai divisi ke-2. Berisi dokumentasi informasi mengenai
peralatan yang dipergunakan.
DATA DIVISION = divisi ini
menjelaskan tentang input & output data yang digunakan serta semua
keterangan tentang file, record, nama data serta bentuk format yg akan
digunakan dalam PROCEDURE DIVISION.
WORKING-STORAGE SECTION =
Merupakan section yang berisi tentang record-description-entri yaitu penjelasan
tentang record program yang digunakan
NAMA PIC
A(20) = Sebagai tanda untuk memasukkan data nama sebanyak 20 karakter
NPM PIC X(8)
= Sebagai tanda untuk memasukkan data npm sebanyak 8 karakter
KELAS PIC
X(5)= Sebagai tanda untuk memasukkan data kelas sebanyak 5 karakter
UTS PIC
9(2)= Sebagai tanda untuk memasukkan nilai UTS sebanyak 2 karakter
UAS PIC
9(2)= Sebagai tanda untuk memasukkan nilai UAS sebanyak 2 karakter
HASIL PIC
99= Sebagai tanda untuk hasil dari nilai UTS dan UAS
SCREEN
SECTION = untuk lanjutan tahapan program untuk membuka layar baru
CLS = untuk
membersihkan layar
BLANK
SCREEN= sebagai lanjutan tahapan program
INPUTAN =
menginput program
LINE 4
COLUMN 8 VALUE ‘MASUKKAN NAMA : ‘. = digunakan untuk menampilkan “Nama” pada
baris 4 dikolom 8
COLUMN PLUS
1 PIC A(20) TO NAMA. = digunakan untuk membatasi karakter pada inputan “Nama”
LINE 5
COLUMN 8 VALUE ‘MASUKAN NPM: ‘. = digunakan untuk menampilkan “NPM” pada baris
5 dikolom 8
COLUMN PLUS
1 PIC X(8) TO NPM. = digunakan untuk membatasi karakter pada inputan “NPM”
LINE 6
COLUMN 8 VALUE ‘MASUKAN KELAS: ‘. =digunakan untuk menampilkan “Kelas” pada
baris 6 dikolom 8
COLUMN PLUS
1 PIC X(5) TO KELAS. = digunakan untuk membatasi karakter pada “KELAS”
LINE 8
COLUMN 8 VALUE ‘NILAI UTS : ‘. = digunakan untuk menampilkan “UTS” pada baris 8
dikolom 8
COLUMN PLUS
1 PIC 9(2) TO UTS. = digunakan untuk membatasi karakter pada “UTS”
LINE 9
COLUMN 8 VALUE ‘NILAI UAS :’. = digunakan untuk menampilkan “UAS” pada baris 9
dikolom 8
COLUMN PLUS
1 PIC 9(2) TO UAS. = digunakan untuk membatasi karakter pada “UAS”
Kemudian
“Compute hasil = (UTS + UAS) /2 “ itu adalah rumus untuk menentukan hasil rata
rata dari UTS dan UAS
Jika hasil
lebih dari >90 maka hasilnya dimasukkan dibaris 14 kolom 8 dengan cetak
‘NILAI = A’
Jika hasil
lebih dari >80 dan hasil kurang dari <89 maka hasilnya dimasukkan dibars
14 kolom 8 dengan cetak ‘NILAI = B ‘
Jika hasil
lebih dari >70 dan hasil kurang dari <79 maka hasilnya dimasukkan dibaris
14 kolom 8 dengan cetak ‘NILAI = C’
Jika hasil
lebih dari >60 dan hasil kurang dari <69 maka hasilnya dimasukkan dibaris
14 kolom 8 dengan cetak ‘ NILAI = D’
Jika hasil
kurang dari <60 maka hasilnya dimasukkan dibaris 14 kolom 8 dengan cetak
“NILAI = E’
Jika hasil
lebih dari >60 maka hasilnya dimasukkan dibaris 16 kolom 8 dengan cetak
“SELAMAT ANDA LULUS”
Jika hasil
kurang dari <60 maka hasilnya dimasukkan dibaris 16 kolom 8 dengan cetak
“MAAF ANDA GAGAL”
STOP RUN=
ini untuk memerintah bahwah program telah berhenti
Logika
IDENTIFICATION
DIVISION= Berisi informasi tentang program yang bersangkutan, nama pembuat
program, tgl pembuatan dll. Harus ada didalam program, tetapi isinya tidak
mempengaruhi jalannya/ proses dari program.
ENVIRONMENT
DIVISION = dalam program cobol sebagai divisi ke-2. Berisi dokumentasi
informasi mengenai peralatan yang dipergunakan.
DATA
DIVISION = divisi ini menjelaskan tentang input & output data yang
digunakan serta semua keterangan tentang file, record, nama data serta bentuk
format yg akan digunakan dalam PROCEDURE DIVISION.
WORKING-STORAGE
SECTION = Merupakan section yang berisi tentang record-description-entri yaitu
penjelasan tentang record program yang digunakan
A PIC 9999 =
9999 Menandakan bahwa bervariable integer
C PIC ZZZ9 =
zzz itu untuk menghapus angka 0 dalam pemograman cobol agar tidak terjadi
kesalahan ketika menghitung
SCREEN
SECTION = untuk lanjutan tahapan program untuk membuka layar baru
CLS = untuk
membersihkan layar
BLANK
SCREEN= sebagai lanjutan tahapan program
PROCEDURE
DIVISION= Merupakan inti dari pemrograman COBOL
Display (4,
7) ‘INPUT A DAN B. NILAI A HARUS LEBIH BESAR’. = dicetak dibaris 4 dikolom 7
Display (6,
15) ‘ NILAI A = ‘. Dicetak dibaris 6 dikolom 15
Accept A.=
untuk memasukkan dengan cetak “A”
Display(7,
15) ‘NILAI B = ‘. Dicetak dibaris 7 dikolom 15
Accept B.=
untuk memasukkan dengan cetak “B”
Compute C =
A+B = mencari hasil dari nilai A+B
Compute D =
A-B= mencari hasil dari A-B
Compute E =
A*B= mencari hasil dari A*B
Compute F =
A/B= mencari hasil dari A/B
Compute G =
A**B= mencari hasil dari A**B
DISPLAY (9,
26) ‘MAKA’. = mencetak “Maka” dibaris 9 dikolom 26
DISPLAY(12,
26) ‘A+B = ‘, C. = mencetak hasil tersebut dibaris 12 dikolom 26
DISPLAY(13,
26) ‘A-B= ‘, D. = mencetak hasil tersebut dibaris 13 dikolom 26
DISPLAY(14,
26) ‘A*B= ‘, E. = mencetak hasil tersebut dibaris 14 dikolom 26
DISPLAY(15,
26) ‘A/B= ‘, F. = mencetak hasil tersebut dibaris 15 dikolom 26
DISPLAY(16,
26) ‘A**B= ‘, G. = mencetak hasil tersebut dibaris 16 dikolom 26
SELESAI=
menun jukkan bahwa program telah selesai
STOP RUN= ini untuk memerintah bahwah program
telah berhenti
Tidak ada komentar:
Posting Komentar