1. 1. Apa yang anda ketahui tentang kondisi
pada cobol?
Kondisi merupakan perintah yang digunakan untuk melakukan pengecekan suatu
kondisi sampai kondisi tersebut dipenuhi.
2. 2.Sebutkan bentuk umum kondisi pada cobol!
§
Relational Condition (kondisi
hubungan)
< style="">
> atau GREATER THAN
= atau EQUAL TO
NOT < style="">
NOT > atau NOT GREATER THAN
NOT = atau NOT EQUAL TO
§
Kondisi Tanda
IF Nama-data IS [NOT] POSITIVE imperative statement
Ungkapan Aritmatik NEGATIVE
ZERO
IF Nama-data IS [NOT] POSITIVE imperative statement
Ungkapan Aritmatik NEGATIVE
ZERO
§
Kondisi Kelas
Nama-data IS [NOT] NUMERIC imperative statement
ALPHABETIC
Nama-data IS [NOT] NUMERIC imperative statement
ALPHABETIC
§
Kondisi Bercabang
IF kondisi statement1 ELSE statement2
IF kondisi statement1 ELSE statement2
NEXT SENTENCE ELSE NEXT SENTENCE
§ Kondisi dari
nama kondisi
IF Ya GO TO Benar
IF Ya GO TO Benar
§ Kondisi jamak
IF A = 1 OR B < style=""> GO TO MULAI.
IF A = 1 AND B < style=""> MULAI.
IF A = 1 OR B < style=""> GO TO MULAI.
IF A = 1 AND B < style=""> MULAI.
3.
3. Bagaimana
cara mewarnai foreground dan background pada cobol?
IDENTIFICATION DIVISION.
PROGRAM-ID. KONDISI.
PROGRAM-ID. KONDISI.
AUTHOR.
fadlypuccino.
ENVIRONMENT DIVISION.
DATA
DIVISION.
WORKING-STORAGE SECTION.
77 UTS PIC 9(4).
77 UAS PIC 9(4).
77 NILAI PIC 99.99.
SCREEN
SECTION.
01 CLS.
02 BLANK SCREEN.
01 INPUTAN.
02 LINE 4 COLUMN 30 VALUE 'PROGRAM
NILAI'
FOREGROUND-COLOR 2 BACKGROUND-COLOR 7.
02 LINE 5 COLUMN 30 VALUE '.............'
FOREGROUND-COLOR 2 BACKGROUND-COLOR 7.
02 LINE 10 COLUMN 8 VALUE 'NILAI
UTS :'
FOREGROUND-COLOR 4 BACKGROUND-COLOR 8.
02 COLUMN PLUS 1 PIC 99.99 TO UTS
FOREGROUND-COLOR 4, BACKGROUND-COLOR 8.
02 LINE 11 COLUMN 8 VALUE 'NILAI
UAS :'
FOREGROUND-COLOR 4 BACKGROUND-COLOR 8.
02 COLUMN PLUS 1 PIC 99.99 TO UAS
FOREGROUND-COLOR 4, BACKGROUND-COLOR 8.
PROCEDURE
DIVISION.
MULAI.
DISPLAY CLS.
DISPLAY INPUTAN.
ACCEPT INPUTAN.
COMPUTE NILAI = (UTS + UAS ) / 2.
DISPLAY (13, 8) 'NILAI
ANDA = ' NILAI.
IF NILAI > 59
DISPLAY (14, 8)'SELAMAT ANDA LULUS'.
IF NILAI < 60
DISPLAY (14, 8)'MAAF ANDA GAGAL'.
STOP RUN.
0 komentar:
Posting Komentar