Penggunaan Function dan Procedure Pada Program Pascal/C++

Procedure atau Function atau dikenal dengan istilah sub bagian program yang terpisah dari program utamanya.

Pada PASCAL terdiri atas baik Procedure maupun Function

Dibawah ini merupakan program tanpa function/procedure untuk menghitung nilai Keliling Lingkaran

C++

#include "iostream.h"

void main(){
    int R ;
    float keliling ;
    cout << "Input Nilai Jari Jari\n_________________________________________" ;
    cout << "\n Jari-Jari : " ; cin>> R ;
    keliling = 2 * 3.14 * R ;
    cout << "Keliling Lingkaran : " << keliling;

}


PASCAL
uses crt ;
var
   R    : integer ;
   Kel  : real ;
begin
     writeln ('Menghitung Keliling') ;
     write ('Input Jari-Jari : ') ;
     readln (R) ;
     kel := 2 * 3.14 * R ;
     writeln ('Keliling Lingkaran : ', kel:6:2) ;
end.

Pada contoh di atas tersebut tanpa menggunakan function, nah pada contoh di bawah ini program C++ atau PASCAL yang menggunakan Function.

Program C++ menggunakan Function :

#include "iostream.h"

float keliling(int jari);

void main(){
    int R ;
    cout << "Input Nilai Jari Jari\n_________________________________________" ;
    cout << "\n Jari-Jari : " ; cin>> R ;

    cout << "Keliling Lingkaran : " << keliling(R) ;

}

float keliling(int jari){
    return (2 * 3.14 * jari) ;
}

lihat hasilnya berikut ini :






Program Pascal Menggunakan Function

uses crt ;

var
   R    : integer ;

function keliling(R: integer): real ;
begin
   keliling := 2 * 3.14 * R ;
end;

begin
     writeln ('Menghitung Keliling') ;
     write ('Input Jari-Jari : ') ;
     readln (R) ;
     writeln ('Keliling Lingkaran : ', keliling(R):6:2) ;
end.