Cobol Part 2

Ada lagi nih yang gw pelajarin tadi .
Hahahaha .
Emang sih masih belajar yang simpel simpel aje .
Tapi ya sudah lah maklumin aja saya cuma mau sharing aje .
:D

Nah jadi ceritanya tuh begini .
Selesai ngejain progran yang sebelumnya itu ada tugas dari dosennya, yang bisa ngerjain dapet nilai + .
Tugasnya yaitu membuat program perhitungan Segitiga alias Alas * Tinggi / 2 .
Pasti tau kan perhitungan segitiga .

Listing Programnya :

IDENTIFICATION DIVISION.
PROGRAM-ID.
ENVIRONMENT DIVISION.
DATA DIVISION.
    01 A PIC 99.
    01 T PIC 99.
    01 TOTAL PIC 99.
PROCEDURE DIVISION.
MULAI.
    DISPLAY 'MASUKKAN ALAS : '.
    ACCEPT A.
    DISPLAY 'MASUKKAN TINGGI : '.
    ACCEPT T.
    COMPUTE TOTAL = A*T/2.
    DISPLAY 'LUAS SEGITIGA : ',TOTAL.
SELESAI.
    STOP RUN.

Penampakan nya secara Screen Shoot :

Ini Codingannya

Outputnya : 

LISTING PROGRAM:

---------------------------------------------------

IDENTIFICATION DIVISION.
PROGRAM-ID.
ENVIRONMENT DIVISION.
DATA DIVISION.
yang gw tau sih tentang ini ya itu udah jadi bagian yang harus di masukkan dalam COBOL *CMIW*

DISPLAY 'MASUKKAN ALAS : '.
DISPLAY 'MASUKKAN TINGGI : '.
DISPLAY 'LUAS SEGITIGA : ',TOTAL.
yang gw tau tentang codingan ini yaitu buat menampilkan gtu . kalau kayak di java Print lah gtu . hehehehe .

ACCEPT A.
ACCEPT T.
kalau yang ini sih menurut gw itu kayak penentuan kelas gtu nah terus untuk inputan juga kayak masukin angka huruf .

COMPUTE TOTAL = A*T/2.
kalau yang gw tau computer total itu untuk operasi perhitungan gtu deh . kalau yang A*T/2 itu rumus Segitiga *You Know Lah* :D

---------------------------------------------------

Harap dimaklum sajalah kawan yah .
Hhahahaha .
Masih Newbie jadi bkin yang simpel aje dulu .
Terima Kasih :D