Laporan Akhir Pratikum 8 (Program Prosedur C++)

PROSEDUR C++

#Include <conio.h>

#Include <iostream.h>

Void penjualan (float a, float b, float c)

{

Float total, temp ;

Temp = b * c ;

Total = temp - (a * temp) ;

Cout << "Harga Kotor Pembelian BlackBerry 8520       : " << temp << endl ;

Cout << "Harga Bersih Pembelian BlackBerry 8520      : " << total << endl;

}

Void main()

{

Float diskon, harga, jumlah ;

Float total, temp ;

Cout << "  PROGRAM HITUNG HARGA BARANG HENDEPONE  " << endl ;

Cout << "#########################################" << endl << endl    ;

Cout << "Masukkan Harga  Pembelian BlackBerry 8520   : " ; cin >> harga    ;

Cout << "Masukkan Jumlah Pembelian BlackBerry 8520   : " ; cin >> jumlah ;

Cout << "Masukkan Diskon Pembelian BlackBerry 8520   : " ; cin >> diskon  ;

Cout << "                                                                             \n" ;

Penjualan(diskon, harga, jumlah) ;

Getch();

}

Hasil dari listing di atas !

Laporan Akhir Pratikum 9 (Program Prosedur Pascal))

PROSEDUR  PASCAL

Program Hitung_Nilai;

Uses crt;

Procedure Hitung (X, Y, Z : Byte);

Begin

Clrscr;

Z := X + Y;

Writeln ('Nilai X = ', X);

Writeln ('Nilai Y = ', Y);

Writeln ('Nilai Z = ', Z);

Readln

End;

 Var

A, B, C : Byte;

Begin

Clrscr;

A := 5; B:= 7; C:=3;

Hitung (A, B, C);

WriteLn;

WriteLn ('Nilai A = ',A);

WriteLn ('Nilai B = ',B);

WriteLn ('Nilai C = ',C);

Readkey;

End.

Hasil dari listing di atas !

Laporan Akhir Pratikum 8 (Program Fungsi Pascal)

FUNGSI PASCAL

Program Nilai_Faktorial;

Uses Crt;

Function Faktorial(Nilai :Integer):Real;

Begin

Clrscr;

If Nilai = 0 Then

Faktorial := 1

Else

Faktorial := Nilai * Faktorial(Nilai-1);

End;

Var N:=Integer;

Begin

Clrscr;

Write(‘Ada Berapa Faktorial ? ’);

Readln(N);

Writeln(N,’Faktorial Adalah ‘,Faktorial(N):9:0);

Readkey;

End.

Hasil dari listing di atas !

Laporan Akhir Pratikum 9 (Program Fungsi C++)

FUNGSI C++

#Include<iostream.h>

#Include<conio.h>

Float subtraction (int r,int t)

{

Float V_tabung,phi;

Phi=3.14;

V_tabung=phi*(r*r )*t;

Return(V_tabung);

}

Float main()

{

Clrscr ();

Float r2,t2, V_tabung2;

Cout<<"Masukkan jari-jari : ";

Cin>>r2;

Cout<<"Masukkan tinggi    : ";

Cin>>t2;

V_tabung2=subtraction(r2,t2);

Cout<< "Volume Tabung     : "<< V_tabung2;

Getch();

}

Hasil dari listing di atas !