Laporan Akhir Praktikum

Mata praktikum         : Pemograman Pascal dan C++

Semester                      : 1 (satu)

Praktikum ke              : 9 (Sembilan)

Tanggal                        :  19 November 2012

Materi                          : Membuat Program function Pascal &

C++

NIM                              : A 1312022

Nama                            : Iriani

Nama Dosen                : Hendrik Setyo Utomo ST

Nama Asisten

Paraf  Dosen               :

Jumlah lembar            : 9  Lembar

Laboratorium Informatika

POLITEKNIK TANAH LAUT

2012

Program Sederhana Menggunakan Procedure Menggunakan C++

#include<iostream.h>

#include<conio.h>

#include<math.h>

int fungsi_menu(void);

float fungsi_perkalian(void);

float fungsi_pembagian(void);

 int menu_exit(void);

 main()

 {

 fungsi_menu();

 return 0;

 }

 int fungsi_menu()

 {clrscr();

 int a;

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

 cout<<"             PROGRAM SEDERHANA\n";

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

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

 cout<<"SILAHKAN ANDA PILIH JENIS PROGRAM YG ANDA INGINKAN\n";

 cout<<"__________________________________________________\n";

 cout<<"1.Program Perkalian & Menentukan Perpangkatannya\n";

 cout<<"2.Program Pembagian & Menentukan Kuadratnya & \n";

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

 cout<<"Anda Memilih : ";cin>>a;

 switch(a)

 {

 case 1 : fungsi_perkalian();break;

 case 2 : fungsi_pembagian();break;

 default:break;

 }

 return 0;

 }

 float fungsi_perkalian()

 {

 float m,x,y,z;

 cout<<"^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^\n";

 cout<<" Anda Dalam Program Perkalian & Menentukan Perpangkatan\n";

 cout<<"silahkan masukkan angka pertama : ";cin>>x;

 cout<<"silahkan masukkan angka kedua (sebagai pengali sekaligus menjadi pangkatnya) : ";cin>>y;

 z=x*y;

 m=pow(x,y);

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

 cout<<"Hasilnya kali dari Angka pertama dikali angka kedua tersebut Adalah : "<<z<<endl;

 cout<<"Sedangkan Hasil dari Angka pertama pangkat angka kedua tersebut Adalah : "<<m<<endl;

 cout<<endl;

 menu_exit();

 return 0;

 }

 float fungsi_pembagian()

 {

 float f,s,x,y,z;

 cout<<"^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^\n";

 cout<<" Anda Dalam Program Pembagian & Menentukan kuadrat\n";

 cout<<"silahkan masukkan angka pertama : ";cin>>x;

 cout<<"silahkan masukkan angka kedua sebagai Pembagi : ";cin>>y;

 z=x/y;

 f=sqrt(x);

 s=sqrt(y);

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

 cout<<"hasil bagi angka pertama dibagi angka kedua adalah: "<<z<<endl;

 cout<<"hasil kuadrat angka pertama adalah: "<<f<<endl;

 cout<<"hasil kuadrat angka kedua adalah : "<<s<<endl;

 cout<<endl;

 menu_exit();

 return 0;

 }

 int menu_exit()

 {

 char a;

 cout<<"untuk kembali ke menu utama tekan Y ";cin>>a;

 if (a=='y')

 {

 cout<<endl;

 fungsi_menu();

 }

 else

 {

 cout<<"terima kassih";

 }

 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. <conio.h>  adalah header file yang digunakan untuk membuat teks antar muka pengguna sedangkan <math.h> berisi prototype fungsi untuk pustaka maatematika.

int fungsi_menu(void);

float fungsi_perkalian(void);

float fungsi_pembagian(void);

int menu_exit(void);

merupakan function dari program yang akan dijalankan, int fungsi untuk mendifinisikan bilangan bulat yang akan berjalan pada blok program tersebut sedangkan float fungsi untuk mendifinisikan bilangan betipe pecahan yang akan berjalan pada bllok program tersebut. Void adalah tipe data yang digunakan untuk tipe suatu fungsi yang tidak mengembalikan nilai pada fungsi tersebut. Fungsi main adalah merupakan bagian yang paling pertama untuk dieksekusi.

{

 fungsi_menu();

 return 0;

 }

di atas merupakan program pertama yang akan berjalan, dari fungsi menu(); akan memanggil function int fungsi_menu() yang di dalamnya terdapat pilihan Switch Case adalah merupakan salah satu bentuk percabangan, yang digunakan untuk pilihan berjumlah banyak, kemudian pada pilihan switch case aada 2 pilihan yaitu case 1 untuk memanggil function perkalian dan case 2 untuk memanggil function pembagian.

Kemudian jika memilih case 1 maka  program akan memanggil function float fungsi perkalian() yang di dalamnya terdapat blok program perkalian dan perpangkatanya :

float fungsi_perkalian()

 {

 float m,x,y,z;

 cout<<"^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^\n";

 cout<<" Anda Dalam Program Perkalian & Menentukan Perpangkatan\n";

 cout<<"silahkan masukkan angka pertama : ";cin>>x;

 cout<<"silahkan masukkan angka kedua (sebagai pengali sekaligus menjadi pangkatnya) : ";cin>>y;

 z=x*y;

 m=pow(x,y);

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

 cout<<"Hasilnya kali dari Angka pertama dikali angka kedua tersebut Adalah : "<<z<<endl;

 cout<<"Sedangkan Hasil dari Angka pertama pangkat angka kedua tersebut Adalah : "<<m<<endl;

 cout<<endl;

 menu_exit();

 return 0;

 }

Float m,x,y,z; adalah penyatakan bahwa variabel tersebut bertipe pecahan. Kemudian cout<<” \n”; adalah Untuk menampilkan keluaran pada layar, sedangkan cin>> ; untuk menginput data nanti berupa numerik, string, dan karakter. Selanjutnya z=x*y; dan  m=pow(x,y); adalah rumus yang digunakan untuk mencari hasil pada program tersebut. Ada tanda <<z<<endl; digunakan untuk memanggil hasil dari proses rumus sebelumnya yang kemudian akan dioutput. Menu exit(); digunakan untuk memanggil fungsi exit pada menu function yang lain. return 0; adalah menyatakan bahwa prugram berakhir dengan normal. Tanda } merupakan akhir dari program tersebut. Kemudian jika program memillih case 2 maka program akan memanggil function float fungsi_pembagian() yang di dalamnya terdapat program pembagian.

char a; merupakan sebuah tipe integer dengan ukuran 8-bit, if (a=='y') adalah kondisi pemilihan yang jika sama dengan y maka progam akan dijalankan dan melakukan pengulangan, else digunakan jika nilai tifak terpenuhi pada kondisi if di atas. Kemudian return 0; adalah menyatakan bahwa prugram berakhir dengan normal. Tanda } merupakan akhir dari program tersebut

Output program

Ø  Berikut tampilan program sebelum diRUN :

Ø  Tampilan program setelah diRUN :

 

Ø  Kemudian setelah itu sebagai contoh kita pilih nomor 1, terus tekan enter maka akan muncul tampilan yang memintaa kita untuk memasukkan angka pertama dan angka kedua, sebagai contoh masukkan angka 34 pada angka pertama dan 12 pada angka kedua seperti gambar di awah ini :

 

Ø  Kemudian tekan enter maka akan muncul tampilan pada baris pertama adalah hasil kali angka pertama dengan angka kedua, sedangkan pada baris kedua adalah hasil pangkat dari angka pertama pangkat angka kedua. Untuk kembali pada menu untama tekan y terus enter seperti di bawah ini ;

 

Program Sederhana Menggunakan Procedure Menggunakan Pascal

program fungsi;

uses crt;

function besar (a,b : integer): integer;

begin

if a>b then

besar := a

else

besar := b;

end;

function kecil (a,b : integer): integer;

begin

if a<b then

kecil := a

else

kecil := b;

end;

function seimbang (a,b : integer): integer;

begin

if a=b then

seimbang := a;

end;

var a,b: integer;

begin

        clrscr;

        Textcolor(LightGreen);

        write('====');

        Textcolor(LightRed);

        write('====');

        Textcolor(LightBlue);

        write('====');

        Textcolor(Lightcyan);

        write('====');

        Textcolor(Yellow);

        writeln('===');

        Textcolor(lightGreen);

        writeln('Program Perbandingan 2 Angka');

        Textcolor(Blink);

        writeln('****************************');

        Textcolor(LightBLue);

        write('Silahkan Masukkan Angka Pertama = ');readln(a);

        write('Silahkan Masukkan Angka Kedua = ');readln(b);

        writeln;

         Textcolor(lightGreen);

        writeln('Jadi Angka yg Lebih Besar Adalah ',besar (a,b):5);

        write('Sedangkan Angka yg Lebih Kecil adalah ',kecil (a,b):5);

        readln;

        end.

                    

Logika Program

Uses crt digunakan untuk mengaktifkan monitor agar dapat dijalankan untuk mengerjakan program pascal. function besar (a,b : integer): integer; merupakan blok program function yang di dalamnya terdapat :

begin

if a<b then

kecil := a

else

kecil := b;

end;

                begin digunakan untuk memulai program tersebut kemudian if a<b then merupakan kondisi pilihan if yang jika a lebih dari b maka akan diproses dan jika tidak terpenuhi maka akan  masuk pada else yang merupakan jika semua nilai tidak terpenuhi pada if maka akan diproses pada else.

Logika seperti di atas juga berjalan pada function kecil dan function seimbang yang membedakan terdapat pada if nya saja yaitu if a<b then untuk function kecil dan if a=b then untuk function seimbang. Dan kemudian untuk mengakhiri proses dari setiap blok program tersebut yaitu dengan end;.

kemudian var a,b: integer; merupakan awal dari program utamanya dimana var merupakan idenfier dari a dan b sebagai integer . Textcolor(LightGreen); merupakan kode untuk memberi warna hijau pada saat di run nanti , 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. Kemudian semua program akan diakhiri dengan end.

Output program

Ø  Tampilan program sebelum diRUN :

 

Ø  Kemudian setelah diRUN :

Ø  Sebagai contoh untuk program perbandingan 2 angka. Pada angka pertama masukkan 45 dan pada angka kedua masukkan 67 seperti ambar berikut ;

 

Ø  Setelah tekan enter maka akan muncul tampilan yang menyatakan angka yang mana yang lebih besar dan angka yang mana yang lebih kecil seperti gambar di bawah ini :