Laporan Akhir Praktikum

Mata praktikum         : Pemograman Pascal dan C++

Semester                      : 1 (satu)

Praktikum ke              : 8 (Delapan)

Tanggal                        : 12 November 2012

Materi                          : Membuat Program Procedure Pascal &

C++

NIM                              : A 1312022

Nama                            : Iriani

Nama Dosen                : Hendrik Setyo Utomo ST

Nama Asisten

Paraf  Dosen               :

Jumlah lembar            : 7  Lembar

Laboratorium Informatika

POLITEKNIK TANAH LAUT

2012

Program Sederhana Menggunakan Procedure Menggunakan Pascal

Listing program

uses crt;

procedure balok;

var

Vbalok, p, l, t : integer;

begin

clrscr;

write('masukkan panjang : '); readln(p);

write('masukkan lebar : '); readln(l);

write('masukkan tinggi : ');readln(t);

Vbalok := p * l * t;

writeln;

writeln('Volume Balok (Prisma Siku-siku) = ',Vbalok);

readln;

end;

procedure kubus;

var

Vkubus, s : integer;

begin

clrscr;

write('masukkan sisi : '); readln(s);

Vkubus := s * s * s;

writeln;

writeln('Volume kubus (dadu) = ',Vkubus);

readln;

end;

procedure menu;

var

pil : byte;

begin

repeat

clrscr;

Textcolor(LightGreen);

writeln('   MENU   ');

writeln('1. Volume Balok (Prisma Siku-siku)');

writeln('2. Volume kubus (dadu)');

writeln('3. Keluar');

write('Pilih : '); readln(pil);

case pil of

1 : balok;

2 : kubus;

3 : end;

until pil >= 3;

readln;

end;

begin

menu;

end.

Logika Program

uses digunakan untuk memanggil unit library pascal sedangkan crt adalah unit crt yang terdapa implentasi fungsi BIOS untuk screen dan interface keyboard. Procedure adalah sebuah blok program tersendiri yang merupakan bagian dari proogram lain yang lebih besar. Var berfungsi menghubungkan sebuah idenfieer dan tipenya dengan suatu lokasi di memori di manan nilai-nilai dari tipe tersebut dapat disimpan, integer digunakan untuk menyatakan bilangan bulatyang boleh bernilai minus sampai tidak terhingga. Begin digunakan untuk memulai suatu blok program dan kemudian dilanjutkan dengan clrscr yang berfungsi untuk membersihkan layar ketika memulai program tersebut. Write berfungsi untuk menuliskan seatu variabel ke dalam sebuah komponen file, sedangkan readln bertugas mengeksekusi prosedure read kemudian bergerak ke baris berikutnya dalam file program. Adapun writeln berffungsi mengeksekusi prosedura write lalu kemudan mengeluarkan seebuah penanda end-of-line(EOL) ke file program.

End; berguna untuk mengakhiiri proses pada suatu blok program.    Vbalok := p * l * t; kode tersebut merupakan sebuah proses dimana p, l ,t, dan Vbalok merupakan integer  adapun operatornya adalah := menjadi sama dengan sedangkan * sebagai pengalinya. writeln('Volume Balok (Prisma Siku-siku) = ',Vbalok); kode tersebut terdapat pada listing program di atas ‘,Vbalok digunakan untuk memanggil hasil dari proses Vbalok := p * l * sebelumnya. Pil : byte; digunakan untuk menentukan variabel yang digunakan. Repeat mendefinisikan statemen atau blok statemen yang akan terus diulang sampai keadaan perhentiannya terpenuhi.  

Textcolor(LightGreen); digunakan untuk membei warna pada variabel yang diinput. Case of digunakan untuk menyatakan kondisi pemilihan. 1 : balok; , 2 : kubus; ,3 : end; digunakan untuk memanggil program prosedure yang telah dituliskan di atas sebelumnya.

until pil >= 3; merupakan akhir program dari repeat sebelumnya. Kemudian end. digunakan untuk mengakhiri program secara keseluruhan.

Output program

Ø  Listing program sebelum di Run pada pascal :

Ø  Kemudian setelah di Run maka muncul tampilan sebagai berikut :

 

Ø  Misalkan pilih volume balok dan kemudian masukan panjang 23, lebar 12, dan tinggi 67 seperti di bawah ini :

Ø  Setelah tekan enter maka akan muncul tampilan seperti di bawah ini :

 

Program Sederhana Menggunakan Procedure Menggunakan C++

Listing program

#include<iostream.h>

void volume_limas()

{

double p, l, t;

cout<<"______________________\n";

cout<<"======================\n";

cout<<"volume limas segiempat"<<endl;

cout<<"======================\n";

cout<<"masukkan panjang : ";cin>>p;

cout<<"masukkan lebar : ";cin>>l;

cout<<"masukkan tinggi : ";cin>>t;

cout<<"-------------------\n";

cout<<"volume limas segiempat : "<<p*l*t/3<<endl;

}

void bujur_sangkar()

{

double s ;

cout<<"\n";

cout<<"\n";

cout<<"   ************\n";

cout<<"==================\n";

cout<<"Luas Bujur Sangkar"<<endl;

cout<<"==================\n";

cout<<"masukkan sisi : ";cin>>s;

cout<<"-------------------\n";

cout<<"Jadi Luas Bujur Sangkar : "<<s*s<<endl;

}

int main()

{

cout<<"*************************************************\n";

cout<<"Program Mencari Volume LImas & Luas Bujur Sangkar\n";

cout<<"=================================================\n";

volume_limas();

bujur_sangkar();

return 0;

}

Logika Program

#include<iostream.h> adalah Baris pertama tuliskan kode untuk menginstruksikan kepada kompiler untuk menyisipkan file lain (iostream.h) saat program dikompilasi. Kemudian void volume_limas() adalah merupakan program prosedure yang di dalamnya terdapat blok program yang akan diproses jika dipanggil nanti. Tanda { dan tanda } merupakan awal dan akhir untuk sebuah blok program. Double digunakan konstanta floating point dalam bentuk eksponensial. Cout<<”   \n”; Untuk menampilkan keluaran pada layar , adapun tanda \n digunakan agar tampilan dilayar dapat berjejer ke bawah bukan kesamping jika tidak menggunakan tanda tersebut juga bisa digantikan dengan <<endl; . Setelah itu cin>> untuk menginput data nanti berupa numerik, string, dan karakter.

cout<<"masukkan panjang : ";cin>>p; kode tersebut adalah proses untuk memasukan inputan nilai dari nilai panjang dan akan diproses pada kode cout<<"volume limas segiempat : "<<p*l*t/3<<endl;  di mana semua panjang, lebar dan tinggi akan diproses sesuai dengan rumus yang telah diketikan dan kemudian akan dimunculkan saat program dijalankan. Proses tersebut sama juga pada blok program  void bujur_sangkar() .

int main() pernyataan ini mendeklarasikan fungsi utama. int menandakan bahwa fungsi ini bertipe integer. Kemudian volume_limas(); digunakan untuk memanggil procedure dari volume limas yang telah dituliskan diblok program sebelumnya. bujur_sangkar(); juga sama digunakan untuk memanggil procedure dari bujur sangkar di atas . return 0; adalah menyatakan bahwa prugram berakhir dengan normal. Tanda } merupakan akhir dari program tersebut.

Output program

Ø  Berikut tampilan listing program pada C++ :

Ø  Kemudian berikut tampilan program setelah di RUN , kemudian kita masukkan panjang, lebar, dan tinggi seperti gambar di bawah ini :

 

Ø  Selanjutnya tekan enter maka akan muncul hasilnya, kemudian di bawahnya ada muncul program mencari luas nujur sangkar , masukkan sisinya seperti di bawah ini :

Ø  Kemudian tekan enter maka akan muncul tampilan seperti di bawah ini :