Program Fungsi C++

#include <iostream.h>

#include <conio.h>

float keliling_p(int s)

{ return (2*(s+s));}

float keliling_l(int s)

{  return (4*s); }

float keliling_t(int s)

{  return (s+s+s);}

main()

{

                int sisi;

                cout<<"   PROGRAM MENGHITUNG KELILING BANGUN\n";

                cout<<"_______________________________________\n";

                cout<<"\n";

                cout<<"MENGHITUNG KELILING JAJAR GENJANG\n";

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

                cout<<"Sisi = ";cin>>sisi;

                cout<<"\nKELILING = "<<keliling_p(sisi);

                cout<<"\n";

                cout<<"\n";

                cout<<"MENGHITUNG KELILING PERSEGI\n";

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

                cout<<"sisi= ";cin>>sisi;

                cout<<"\nKELILING = "<<keliling_l(sisi);

                cout<<"\n";

                cout<<"\n";

                cout<<"MENGHITUNG KELILING SEGITIGA\n";

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

                cout<<"sisi    = ";cin>>sisi;

                cout<<"\nKELILING = "<<keliling_t(sisi);

                getch();

                }

Logika Program

program fungsi ini dibuat untuk menghitung luas bangun, yaitu untuk menghitung keliling jajar genjang , keliling persegi, dan keliling segitiga  dalam pembuatan program ini menggunakan perintah

#include <iostream.h>

#include <conio.h>
untuk memanggil perintah-perintah selanjutnya.
dalam penghitungan luas dari bangun-bangun diatas, pertama dengan mengunakan perintah  

float dan return.

kemudian lakukan penginputan dan pengoutputan dengan menggunakan perintah "cout dan cin".
setelah  itu program dijalankan.

Program Fungsi Pascal

uses crt;

function Luaspersegipanjang ( p:integer; l:integer ):real;

var luas:real;

begin

clrscr;

luas:= p*l;

luaspersegipanjang:=luas;

end;

var p,l:integer;

luas:real;

begin

writeln('PROGRAM FUNGSI LUAS PERSEGI PANJANG');

writeln('----------------------------------------------------');

write('Masukkan Nilai p : '); readln(p);

write('Masukkan Nilai l : '); readln(l);

write('');

write('Luas persegi panjang adalah ', luaspersegipanjang(p,l):0:0); 

readln;

end.

Logika Program 

program ini dibuat untuk menghitung luas persegi panjang. pertama tentukan integer , yaitu p dan l sebagai integer. kemudian Var luas dengan ketentuan harus bilangan real. mulai dengan memasukkan perinah clrscr; yatu untuk meclear program yang sebelumnya sudah pernah dijalankan.masukkan rumus untuk mencari luas persegi  panjang yaitu p*l. kemudian akhiri dengan end;.
kemudian mulai lagi dengan menginput dan mengoutput program dengan menggunakan perintah "writeln dan readln".
kemudian jalankan program.

Program Prosedur C++

#include <iostream.h>

#include <conio.h>

void pembelian (float x, float y)

{

float hasil ;

hasil = x*y ;

cout << "Uang Yang Harus Dibayar                             : Rp. " << hasil << endl ;

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

cout<< "_______Terima Kasih Telah Membeli Gorengan Di Warung Kami_______";

}

void main()

{

float harga, jumlah ;

float hasil ;

cout << "                    PROGRAM PEMBELIAN GORENGAN" << endl ;

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

cout << "Masukkan Harga Gorengan                             : Rp. " ;

cin >> harga ;

cout << "Masukkan Jumlah Gorengan yang Dibeli                : " ;

cin >> jumlah ;

cout << "\n";

pembelian(harga, jumlah);

getch();

}

Logika Program 

Program ini dibuat untuk menghitung pembelian gorengan .
pertama dengan perintah

#include <iostream.h>

#include <conio.h>
untuk memanggil perintah-perintah selanjutnya.
menentukan void pembelian dengan float x, dan float y. dengan float hasil x*y.
agar program dapat berjalan masukkan inputan dan outputan sebagai berikut :

Masukkan Harga Gorengan                             : Rp.

Masukkan Jumlah Gorengan yang Dibeli          :

 

maka akan menghasilkan perkaslian dari inputan tersebut setelah program djalankan.

Prosedur Pascal

uses crt;

procedure hitung (a,b,c:byte);

begin

  c:= a*b;

  clrscr;

  writeln('PROGRAM PROSEDUR PENGHITUNGAN NILAI');

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

  writeln('Nilai A = ',a);

  writeln('Nilai B = ',b);

  writeln('Nilai C = ',c);

end;

var

x,y,z: byte;

begin

x:=3; y:=7; z:=9;

hitung(x,y,z);

  writeln;

  writeln('Nilai X = ',x);

  writeln('Nilai Y = ',y);

  writeln('Nilai Z = ',z);

readln;

end.

Logika Program 

Program ini dibuat  untuk penghitungan nilai, dengan procedure hitung a, b dan c.
dengan procedure hitung kedua yaitu x,y dan z .
procedure hitung pertama dan kedua mengunakan angka yang sama , tetapi ada pembeda yaitu dengan Nilai C , yang mana C aka menghasilkan nilai A*B.
begin kedua langsung dengan penentua tanpa penggunaan rumus yaitu x:=3 y:=7;z:=9;
dengan skrip diatas kemudian jalankan program.