FUNCTION DALAM C++

//PROGRAM LUAS DAN VOLUME

#include<stdio.h>
#include<conio.h>

//function luas persegi panjang
int hitung_luas(int p,int l){
int ls;
ls=p*l;
return ls;
}

//function volume balok
int hitung_volume(int p,int l,int t){
int vol;
vol=p*l*t;
return vol;
}

//program utama
main(){

int panjang,lebar,tinggi,luas,volume;

printf("        PROGRAM LUAS DAN VOLUME \n");
printf("Masukan panjang    : "); scanf(" %d",&panjang);
printf("Masukan lebar    : "); scanf(" %d",&lebar);
printf("Masukan tinggi    : "); scanf(" %d",&tinggi);

luas=hitung_luas(panjang,lebar);
volume=hitung_volume(panjang,lebar,tinggi);

printf("Luas persegi adalah : %d\n",luas);
printf("Volume balok adalah : %d\n",volume);

getch();

}

FUNCTION DALAM PASCAL

function besar (a,b : integer) : integer;
begin
if a<b then
besar := a
else
besar := b;
end;
var
a,b: integer;
begin
        clrscr;
        write('nilai bilangan 1 = '); readln(a);
        writeln;
        write('nilai bilangan 2 = '); readln(b);
        writeln;
        write('bilangan terbesar = ', besar (a,b):5);
readln;
end.

PROCEDURE PASCAL

uses wincrt;
var
   i    :integer;
   n    :byte;
procedure garis;
 begin
  for i:= 1 to 70 do
   begin
    write('-');
   end;
 end;

procedure garis2;
 begin
  for i:= 1 to 70 do
   begin
    write('=');
   end;
 end;

procedure penyakit;
 begin
  writeln('Hanya ada obat untuk penyakit dibawah ini');
   writeln('----------------------------------------------------------------');
   writeln('| No | Nama Penyakit | Total obat | Nama obatnya | Nama dokter |');
   writeln('================================================================');
   writeln('| 1  | kanker        |     3      |  ditetapkan  | hadi        |');
   writeln('| 2  | pilek         |     1      |     oleh     |             |');
   writeln('| 3  | batuk         |     2      |    dokter    | bolang      |');
   writeln('| 4  | DBD           |     3      | yang merawat |             |');
   writeln('----------------------------------------------------------------');
 end;

procedure input;
var
   m            :array [1..20] of integer;
   np, no,kit,rso,dok       :string;
   obt,ttlbt          :byte;
 begin
  penyakit;
  garis2;
  writeln;writeln;
  write('Nama pembeli                     : ');readln(np);
  write('Nama penyakit yang diderita      : ');readln(kit);
   if kit='kanker' then ttlbt:=3;
    if kit='pilek' then ttlbt:=1;
     if kit='batuk' then ttlbt:=2;
      if kit='DBD' then ttlbt:=3;
  write('Total obat                       : ',ttlbt);readln;
  write('Nama dokter yang merawat         : ');readln(dok);
   if ('kit'='kanker') and (dok='hadi') then; writeln('Nama resep yang diberikan        : paramex paracetamol dan bodrex ');
    if ('kit'='pilek') and (dok='hadi') then; writeln('Nama resep yang diberikan        : neozep');
     if ('kit'='batuk') and (dok='hadi') then; writeln('Nama resep yang diberikan       : paracetamol dan paramex');
      if ('kit'='DBD') and (dok='hadi') then; writeln('Nama resep yang diberikan        :  neozep dan sangobion');

 end;

 begin
 garis;
 writeln;
 input;
 readln;

 end.

MENGGUNAKAN PROCEDURE SEKALIGUS FUNGSI DALAM C++

//program hitung harga barang
#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 Barang  : " << temp << endl ;
cout << "Harga Bersih Barang : " << total << endl ;
}
//program utama
void main() {
float diskon, harga, jumlah ;
float total, temp ;
cout << "PROGRAM HITUNG HARGA BARANG" << endl ;
cout << "===========================" << endl << endl ;
cout << "harga barang yang debeli: " ; cin >> harga ;
cout << "jumlah barang yang dibeli: " ; cin >> jumlah ;
cout << "diskon barang yang dibeli: " ; cin >> diskon ;
cout << "\n" ;
penjualan(diskon, harga, jumlah) ;
getch();
}

maka jika di compile akan menjadi seperti ini: