Contoh Laporan Akhir Praktium AP 3

LAPORAN AKHIR

Mata Praktikum             : AlgoritmaPemograman 3

Kelas                              : 2IA18

Praktikum Ke-               : 3

Tanggal                          : 11 November 2013

Materi                            : Cobol

NPM                              : 54412444

Nama                                       : Marisa Siluana Kasih M.

Ketua Asisten                : Adi Guna Jaya

Nama Asisten                :

Paraf Asisten                 :

Jumlah Lembar              : 5 (Lembar)

 logo_gunadarma

LABORATORIUM INFORMATIKA

UNIVERSITAS GUNADARMA

2013

 

LISTING PROGRAM

 kod1

 

kod2

LOGIKA PROGRAM

 

IDENTIFICATION DIVISION.

PROGRAM-ID. RUMAH.

Pada baris kode di atas, merupakan IDENTIFICATION DIVISION yang berisi identitas dari file, bisa berisi author, nama file, dan masih banyak lagi yang berhubungan dengan identitas program. Di sini, nama program adalah RUMAH, ditandai dengan sintaks PROGRAM-ID. RUMAH.

ENVIRONMENT DIVISION.

Berisi informasi tentang keadaan komputer dan alat – alat yang digunakan. Di sini tidak ada keadaan komputer dan alat-alat yang diubah, jadi tidak ada statement yang dipaparkan. Hanya mendeklarasikan divisi sesuai urutannya saja.

DATA DIVISION.

WORKING-STORAGE SECTION.

01 TINGGI PIC 99.

01 PARA1 PIC 99.

01 PARA2 PIC 99.

01 PARA3 PIC 99

Data Division juga struktur program yang berfungsi untuk pendeklarasian variable dan tipe data pada program. Working-Storage Section sebagai wadah dari pendeklarasian variable dan tipe data. Pada Working-Storage Section ada 4 variabel yaitu tinggi, PARA1, PARA2, PARA3, dan masing-masing bertipe data integer .

PROCEDURE DIVISION.

MULAI.

COMPUTE PARA2 = 1.

DISPLAY (, ) ‘MASUKAN TINGGI : ‘ ACCEPT TINGGI.

COMPUTE PARA2 = TINGGI.

COMPUTE PARA3 = TINGGI * 2.

Procedure Division untuk letak logika program, dan CoMPUTE PARA2 bernilai 1. kemudian DISPLAY “ masukan tinggi “ kemudian memasukkan nilai tinggi. COMPUTE PARA2 bernilai 2, PARA3 bernilai tinggi * 2.
MULAI2.

IF PARA1 NOT> 1 GO TO ULANG.

MULAI2 berisi statement jika nilai PARA1 tidak lebih besar dari 1 maka loncat ke ULANG.

DEF.

COMPUTE PARA1 = TINGGI.

DEF berisikan statement COMPUTE atau menghitung PARA1 yang bernilai sama dengan variabel TINGGI.

MULAI3.

IF PARA1 NOT< 1 GO TO ULANG2.

STOP RUN.

MULAI3 berisi statement jika niali PARA1 tidak lebih kecil dari 1 maka loncat ke ULANG2 .

ULANG2.

PERFORM PAGER PARA2 TIMES.

PERFORM SAMADENGAN PARA3 TIMES

DISPLAY SPACE.

COMPUTE PARA1 = PARA1 – 1.

GO TO MULAI3.

ULANG2 berisi beberapa statement, antara lain loncat ke program PAGER sebanyak PARA2 kali. Kemudian loncat program sama dengan dengan PARA3 kali, display space. Compute PARA1 bernilai PARA1 dikurangi dengan 1. Kemudian kembali ke MULAI3.

ULANG.

PERFORM SPASI PARA1 TIMES

PERFORM BINTANG PARA2 TIMES

PERFORM GENTENG PARA3 TIMES

DISPLAY space.

COMPUTE PARA2 = PARA2 + 2.

COMPUTE PARA1 = PARA1 – 1.

GO TO MULAI2.

ULANG berisi statement untuk menampilkan SPASI sebanyak PARA1 kali. Kemudian loncat program lagi ke BINTANG sebanyak PARA2 kali. Loncat program GENTENG sebanyak PARA3 kali . display Space. Kemudian PARA2 bernilai PARA2 ditambah dengan 2 . PARA1 bernilai PARA1 – 1. Kemudian kembali ke MULAI2 .

SPASI.

DISPLAY (, ) ‘ ‘.

SPASI berisi perintah display (spasi) untuk menampilkan sesuai dengan  parameter dan string yang diberikan, disini untuk menciptakan spasi sewaktu menampilkan.

GENTENG.

DISPLAY (, ) ‘\_’.

GENTENG berisi perintah menampilkan atau display “\_”.

BINTANG.

DISPLAY (, ) ‘*’.

BINTANG berisi perintah menampilkan atau display “*”.

PAGER.

DISPLAY (, ) ‘#’.

PAGER berisi perintah menampilkan atau display “#”.

SAMADENGAN.

DISPLAY (, ) ‘==’.

SAMADENGAN berisi perintah menampilkan atau display “==”.

 

OUTPUT

LA

Leave a Reply

Fill in your details below or click an icon to log in:

WordPress.com Logo

You are commenting using your WordPress.com account. Log Out / Change )

Twitter picture

You are commenting using your Twitter account. Log Out / Change )

Facebook photo

You are commenting using your Facebook account. Log Out / Change )

Google+ photo

You are commenting using your Google+ account. Log Out / Change )

Connecting to %s