TUGAS TEKNIK PEMROGRAMAN TERSTRUKTUR 1 (COBOL)

Coding :

Output :

Logika :
* IDENTIFICATION DIVISION.
PROGRAM-ID. IDEcobol.
AUTHOR. SAHARI & ONEDAY.
Digunakan untuk mengidentifikasi program cobol, baik nama program-id dan nama pembuat program.

* DATA DIVISION.
WORKING-STORAGE SECTION.
Digunakan untuk mendeskripsikan variabel-variabel dan jenis tipe data yang digunakan dalam program.
01 MASUKKAN-DATA.
* 02 NILAI1 PIC 99. Merupakan Nilai1 dengan variabel numerik 2 angka.
* 02 NILAI2 PIC 99. Merupakan Nilai2 dengan variabel numerik 2 angka.
* 02 NILAI3 PIC 999. Merupakan Nilai3 dengan variabel numerik 3 angka.
* 02 NILAI4 PIC Z99. Merupakan Nilai4 dengan variabel numerik 2 angka, dikarenakan ada variebel Z yang befungsi untuk menghilangkan angka nol didepannya.

* SCREEN SECTION.
01 HAPUS-LAYAR.
03 BLANK SCREEN. Untuk menentukan format layar tampilan baik input ataupun output.

* PROCEDURE DIVISION. Inti dari pemrograman cobol karena disini semua statement instruksi dibuat seperti DISPLAY, ACCEPT dan STOP RUN.

* MULAI. Untuk memulai program.

* HAPUS-LAYAR. Untuk membersikan layar pada output.

* DISPLAY (1,6) 'MASUKKAN NILAI A DAN NILAI B. NILAI A '. DISPLAY 'HARUS LEBIH BESAR DARI NILAI B.'.untuk menampilkan output “MASUKKAN NILAI A DAN NILAI B. NILAI A HARUS LEBIH BESAR DARI NILAI B” yang terletak di baris 1 dan dimulai dari kolom 6.

* DISPLAY (2,30) 'NILAI A = '. ACCEPT NILAI1. untuk menampilkan output NILAI A dengan menerima input NILAI1 oleh user. terletak di baris 2 dan dimulai dari kolom 30.

* DISPLAY (3,30) 'NILAI B = '. ACCEPT NILAI2. untuk menampilkan output NILAI B dengan menerima input NILAI2 oleh user. terletak di baris 3 dan dimulai dari kolom 30.

* COMPUTE NILAI3 = NILAI1 + NILAI2. Untuk mencari NILAI3, dengan menghitung hasil penjumlahan NILAI1 + NILAI2.

* COMPUTE NILAI4 = NILAI1 - NILAI2. Untuk mencari NILAI4, dengan menghitung hasil pengurangan NILAI1 - NILAI2.

* DISPLAY (5,35) 'MAKA'. Untuk menampilkan “MAKA” yang terletak pada baris 5 dan dimulai dari kolom 35.

* DISPLAY (7,30) 'A+B = ',NILAI3. Untuk menampilkan output ‘A+B‘ dengan mengambil hasil dari NILAI3. Terletak dibaris 7 dan dimulai dari kolom 30.

* DISPLAY (8,30) 'A-B = ',NILAI4. Untuk menampilkan output ‘A-B‘ dengan mengambil hasil dari NILAI4. Terletak dibaris 8 dan dimulai dari kolom 30.

* SELESAI.
STOP RUN. Untuk mengakhiri program.