LATIHAN 8

cara menggunakan fungsi faktorial

Contoh script

program Project2;

{$APPTYPE CONSOLE}

uses

SysUtils;

Procedure Faktorial (var fak,hasil:integer);

var

i:integer; {variabel lokal}

begin

hasil:=1;

for i := 2 to fak do

hasil:=hasil*i;

end;

var

N,F : integer; {Variabel Global}

begin

write('Berapa Faktorial ? ');readln(N);

Faktorial(N,F);

writeln(N,' Faktorial = ',F);

readln;

{ TODO -oUser -cConsole Main : Insert code here }

end.