listing overload function mencari nilai luas

Posted by dragon on Sunday, 9 October 2011

type='html'>
kali ini saya akan membahas mengenai Overload Prosedur dan Fungsi yang di gunakan dalam bahasa pemograman pascal.

overload merupakan dua atau beberapa prosedur yang memiliki nama sama
tetapi parametemya berbeda. Kata 'berbeda’ di sini mengandung arti berikut.
1. Berbeda tipe datanya
2. Berbeda jumlah parameternya
3. Gabungan dari nomor 1 dan 2 (berbeda jumlah dan tipenya)


contoh lsiting program overload function
program mid;
uses crt;

function luas (a:real):real;
begin
 luas:= 3.14 * sqr(a);
 end;

 function luas (a1,a2:integer):integer;
 begin
 luas:=a1 * a2;
 end;

var
 hs1,hs2:real;
 w:integer;

 begin
 clrscr;
 write('Input nilai =');readln(w);
 hs1:=luas(w);
 hs2:=luas(w,w);
 writeln('Luas lingkaran = ',hs1:0:2);
 writeln('luas persegi   = ',hs2:0:0);
 readln;
 end.


layout 

{ 0 comments... read them below or add one }

Post a Comment