Program hitung nilai UTS dan UAS pada cobol

Langkah-langkahnya adalah sebagai berikut;

a. Buka terminal program cobol dengan nama file yang telah kita buat dan buat coding program sebagai berikut:

77 UTS PIC 9(3).

77 UAS PIC 9(3).

77 HASIL PIC 9(3).

SCREEN SECTION.

01 HAPUS.

02 BLANK SCREEN.

01 INPUTAN.

02 LINE 5 COLUMN 6 'NILAI UTS'.

02 COLUMN PLUS 1 PIC 9(3) TO UTS.

02 LINE 6 COLUMN 6 'NILAI UAS'.

02 COLUMN PLUS 1 PIC 9(3) TO UAS.

PROCEDURE DIVISION.

MULAI.

DISPLAY HAPUS.

DISPLAY INPUTAN.

ACCEPT INPUTAN.

COMPUTE HASIL = UTS*0.7+UAS*0.3.             

IF HASIL <101 AND HASIL >85

DISPLAY (8, 6) 'GRADE A' (9, 6) 'ISTIMEWA'.

IF HASIL <85 AND HASIL >65

DISPLAY (8, 6) 'GRADE B' (9, 6) 'BAIK'.

IF HASIL <65 AND >45

DISPLAY (8, 6) 'GRADE C' (9, 6) 'CUKUP'.

IF HASIL <45 AND >25

DISPLAY (8, 6) 'GRADE D' (9, 6) 'BURUK'.

IF HASIL <25

DISPLAY (8, 6) 'GRADE E' (9, 6) 'SANGAT BURUK'.

AKHIR.

IF HASIL >71

DISPLAY (10, 6) 'ANDA LULUS'.

IF HASIL <70

DISPLAY (10, 6) 'ANDA GAGAL'.

SELESAI.

STOP RUN.