Program Penggunaan_Subrutin_Function_dan_Procedure;

sedikit pengetahuan yang inginsaya berikan untuk anda.

 

Program Penggunaan_Subrutin_Function_dan_Procedure;
Uses wincrt;

Function FHitungPangkat(X : Real; N : Integer):Real;
var Z : Real;
    i : Integer;
Begin
   Z := 1;
   for i:=1 to N do
   begin
    Z :=Z * X;
   end;
   FHitungPangkat:= Z;        {Pembagian Nilai Hasil Penghitungan}
End;

Procedure PHitungPangkat(X : Real; N : Integer; Var Hasil : Real);
var Z : Real;
  i : integer;
Begin
  Z:=1;
  for i:= 1 to N do
 
    begin
    Z:= Z * X;
  end;
  Hasil:= Z;
End;

Var
 Hit : Real;

Begin
 Hit := FHitungPAngkat(12,7);
 writeln('Menghitung dengan Fungsi');
 writeln('10 PAngkat 3 =', Hit:12:2);
 PHitungPAngkat(12,7,Hit);
 writeln;writeln;
 writeln('Menghitung dengan Procedure');
 writeln('10 Pangkat 3 = ', Hit:12:2);
 readln;
 Readkey
End.



terima kasih :)