Diberdayakan oleh Blogger.
RSS

COBOL 2


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
§  Kondisi Kelas
Nama-data IS [NOT] NUMERIC imperative statement
ALPHABETIC
§  Kondisi Bercabang
IF kondisi statement1 ELSE statement2
NEXT SENTENCE ELSE NEXT SENTENCE
            §  Kondisi dari nama kondisi
                  IF Ya GO TO Benar
§  Kondisi jamak
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.
       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.

  • Digg
  • Del.icio.us
  • StumbleUpon
  • Reddit
  • RSS

0 komentar:

Posting Komentar