PENULISAN PROCEDURE & FUNCTION PADA FAKTORIAL

Faktorial dari bilangan asli n adalah hasil perkalian antara bilangan bulat positif yang kurang dari atau sama dengan n. Faktorial ditulis sebagai n! dan disebut n faktorial, tanda (!) disebut dengan notasi faktorial.

program Project14;
{$APPTYPE CONSOLE}
uses
  SysUtils;
procedure faktorial(var fak, hasil:integer);
    var
      a:integer;
    begin
      hasil:=1;
      for a := 2 to fak do
      hasil:=hasil*a;
    end;
    var
      b,c:integer;
begin
  writeln ('NIM  : 114224008');
  writeln ('NAMA : AZIZUN NURRACHMAN');
  writeln ('====================================');
  writeln ('CONTOH PENULISAN PROCEDURE FAKTORIAL');
  writeln ('====================================');
  writeln ('');
  write('Berapa Faktorial ? '); readln(b);
  faktorial(b,c);
  writeln(b ,' Faktorial = ', c);
  readln;
  { TODO -oUser -cConsole Main : Insert code here }
end.