 Program C++ menggunakan Procedure dan Function

Ø Program C++  menggunakan Procedure dan Function

-         C++  menggunakan Procedure

-          Listing Program:

#include <iostream.h>

#include <conio.h>

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

{

float total,temp;

temp =b*c ;

total =temp - (a*temp);

cout<<"harga kotor barang :" <<temp<<endl;

cout<<"hara bersih barang :" <<total<<endl;

}

void main()

{

float diskon,harga,jumlah;

float total,temp;

cout<<"         ++++++++++++++++++++++++++++++"<<endl;

cout<<"          Program Hitungan Harga Barang"<<endl;

cout<<"         =============================="<<endl<<endl;

cout<<"masukan harag barang Rp";

cin>>harga;

cout<<"masukan jumlah barang:";

cin>>jumlah;

cout<<"masukan diskon barang:";

cin>>diskon;

cout<<"\n";

penjualan(diskon,harga,jumlah);

getch();

}

            Program yang saya buat adalah “menghitung harga barang”

Contoh output program yang sudah dijalankan:

-         C++  menggunakan Function

-             Listing Program:

#include <conio.h>

#include <iostream.h>

void kali(){

int a,b,hasil;

cout<<"masukan nilai 1 :";

cin>>a;

cout<<"masukan nilai 2 :";

cin>>b;

hasil=a*b;

cout<<"hasil kali :"<<hasil<<endl;}

 bagi(){

int a,b; float result;

cout<<"masukan nilai 1 : ";

cin>>a;

cout<<"masukan nilai 2 : ";

cin>>b;

result=a/b;

cout<<"hasil bagi = ";

return result;}

main()

{

cout<<bagi()<<endl;

kali();

cout<<endl;

getch();

}

Saya membuat Program  Function sederhana membagi nilai dan mengalikan nilai :

Output program

 

• Program pascal menggunakan Procedure dan Function

·        Program pascal menggunakan Procedure dan Function

Ø Pascal menggunakan Procedure

-Listing Program:

uses crt ;

var pil : integer ;

Procedure lingkaran ;

var x,y,z : real ;

begin

writeln ( ` --- 1.lingkaran--- ` ) ;

write ( `masukan jari-jari: ` ) ;

readln (x) ;

y := 3.14 * x * x ;

z := 2 * x * 3.14 ;

writeln ( `luas lingkaran     = ` , y : 9 : 2 ) ;

writeln ( `keliling lingkaran = ` , z : 9 : 2 ) ;

end ;

Procedure persegi ;

var x,y,z : real ;

begin

writeln ( ` ---2.persegi--- ` ) ;

write ( `masukan sisi: ` ) ;

readln (x) ;

y := x * x ;

z := x * 4 ;

writeln ( `luas persegi     = ` , y : 9 : 2 ) ;

writeln ( `keliling persegi = ` , z : 9 : 2 ) ;

end ;

Procedure persegi_panjang ;

var p,l,y,z : real ;

begin

writeln ( ` ---3.persegi_panjang--- ` ) ;

write ( `masukan panjang: ` ) ;

readln (p) ;

write ( `masukan lebar: ` ) ;

readln (l) ;

y := p * l ;

z := 2 * ( p + l ) ;

writeln ( ` luas persegi panjang     =' , y : 9 : 2 ) ;

writeln ( `keliling persegi panjang =' , z : 9 : 2 ) ;

end ;

begin

clrscr ;

writeln ( `program luas dan keliling' ) ;

writeln () ;

writeln ( '1 = lingkaran' ) ;

writeln ( '2 = persegi' ) ;

writeln ( '3 = persegi panjang' ) ;

writeln () ;

write ( `masukan pilihan :' ) ;

readln (pil) ;

writeln () ;

if pil = 1 then lingkaran

else if pil = 2 then persegi

else if pil = 3 then persegi_panjang

else write ( `input salah' ) ;

readln

end.

-0utput Program

 

Ø Pascal menggunakan Function

- Listing Program:

program tunjangan;

uses wincrt;

var

nm,jab,no :string;

gaj,ti,ta,tgaj:real;

stat,jmlank :integer;

function gajibersih (gaji,tunjangan_anak,tunjangan_istri,totalgaji :real):real;

begin

gajibersih:=gaji+tunjangan_anak+tunjangan_istri;

end;

begin

    writeln('=================================================');

    writeln('=TUGAS PERHITUNGAN GAJI DAN TUNJANGAN ANAK ISTRI=');

    writeln('=Nama :Muhammad Asrir           NIM :2010020112 =');

    writeln('=================================================');

    writeln('=  Masukkan data sesuai pada ketentuan berikut  =');

    writeln('=================================================');

    writeln('======Status=====================================');

    writeln('   1. Kawin     ');

    writeln('   2. Tidak Kawin  ');

    writeln('=================================================');

    writeln;

    writeln;

write ('nomor induk karyawan  : ');readln(no);

write ('nama pegawai          : ');readln(nm);

write ('jabatan pegawai       : ');readln(jab);

write ('Gaji pokok            : Rp,');readln(gaj);

write ('status perkawinan       : ');readln(stat);

case stat of

1 :begin

ti :=(15/100)*gaj;

write ('jumlah anak             : ');readln(jmlank);

if (jmlank >=3) then

ta :=(5/100)*gaj

else if (jmlank <3) then

ta :=0;

       end;

2 :begin

ti :=0;

ta :=0;

       end;

   end;

begin

writeln;

    writeln('=================oO SLIP GAJI Oo=================');

    writeln;

    writeln ('Nama          : ',nm);

    writeln ('No Karyawan   : ',no);

    writeln ('Jabatan       : ',jab);

    writeln ('+===============================================+');

    writeln ('|       Rincian Gaji         |      Jumlah      |');

    writeln ('+===============================================+');

    writeln ('| Gaji Pokok               : | Rp ',gaj:8:0,'      |');

    writeln ('| Tunjangan Anak           : | Rp ',ta:8:0,'      |');

    writeln ('| Tunjangan Istri          : | Rp ',ti:8:0,'      |');

    writeln ('|                            |                  |');

    writeln ('+===============================================+');

    writeln ('| Total Gaji Bersih        : | Rp ',gajibersih (gaj,ti,ta,tgaj):8:0,'      |');

    writeln ('+===============================================+');

    readln;

end;

end.

-output Program

Output program kurang lebih begini saat berjalan.