Laporan Akhir Praktikum

Mata praktikum         : Konsep Pemrograman

Semester                      : I (Satu)

Praktikum ke              : 8 (delapan)

Tanggal                        : 19 november 2012

Materi                          : prosedure dan Fungsi

NIM                              : A1312051

Nama                            : Nurul Apriani

Nama Dosen                : Hendrik Setyo Utomo

Paraf  Dosen               :

Jumlah lembar            :  Lembar

Laboratorium Informatika

POLITEKNIK TANAH LAUT

2012

Menggunakan Procedure dan Fungsi dalam bahasa pempogramaan

Pascal dan C++

1.      Program prosedur Pascal

Listing program

program Lsegitiga;

uses crt;

var

 i,n:integer;

 a,t:real;

 procedure hitungLuassegitiga(alas,tinggi:real);

 var

 luas:real;

 begin

 luas:=(alas*tinggi)/2;

 writeln('luas segitiga=',luas:10:2);

 end;

begin

clrscr;

write ( ' banyaknya segitiga ?'); readln(n);

for i:=1 to n do

 begin

 write(' panjang alas segitiga?');

 readln(a);

 write('tinggi segitiga?');

 readln(t);

 hitungluassegitiga(a,t);

 readln;

 End;

 End.

Input program

Output program

2.      Program Fungsi pascal

Listing program

uses crt;

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

begin

clrscr;

pengurangan:=a-b;

end;

var

d,e:integer;

begin

clrscr;

write('angka 1=');readln(d);

write('angka 2=');readln(e);

write('hasilnya=',pengurangan(d,e));

end.

Input program

Output program

3.      Prosedur program C++

Listing program

#include<iostream.h>

void volume_limas()

{

double p, l, t;

cout<<"Volume limas segi empat"<<endl;

cout<<"Masukkan panjang: ";

cin>>p;

cout<<"Masukkan lebar: ";

cin>>l;

cout<<"Masukkan tinggi: ";

cin>>t;

cout<<"Volume limas segi empat: "<<p*l*t/3<<endl;

}

void volume_kerucut()

{

double r, t;

cout<<"Volume kerucut"<<endl;

cout<<"Masukkan jari2: ";

cin>>r;

cout<<"Masukkan t: ";

cin>>t;

cout<<"Volume kerucut: "<<3.14*r*r*t/3<<endl;

}

void volume_bola()

{

double r;

cout<<"Volume bola"<<endl;

cout<<"Masukkan nilai r= ";

cin>>r;

cout<<"Volume bola= "<<4*3.14*r*r*r/3<<endl;

}

int main()

{

volume_limas();

volume_kerucut();

volume_bola();

return 0;

}

Input program

Output program

4.      Fungsi program C++

Listing program

#include <iostream.h>

void sebelum_sesudah (int x, int& sebelum, int& sesudah)

{

sebelum = x-1;

sesudah= x+1;

}

int main ()

{

int x=100, y, z;

sebelum_sesudah (x, y, z);

cout << "sebelum=" << y << ",sesudah=" << z;

return 0;

}

Input program

Output program