Membuat Program Faktorial Di Delphi

Program faktorial adalah pembelajaran yang saya dapatkan di waktu sya masih smk dan itu sya tulis dibuku matematika. . Kini setelah saya kuliah saya di beri ilmu bagaimana cara membuat prgram faktorial di delphi. 

Berikut Cara membuat Programnya.. . Simple.

Ketikkan Script sebagai berikut Pada Console Application Delphi Anda

program Project2;

{$APPTYPE CONSOLE}

uses

  SysUtils;

procedure faktorial(var fak,hasil:integer);

var

  i:integer;

begin

  hasil:=1;

  for i :=2 to fak do

  hasil:=hasil*i;

end;

var

  N,F:integer;

begin

 write('berapa faktorial?');

 readln(N);

 Faktorial (N,F);

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

 readln;

end.

Dan Hasilnya akan sebagai Berikut

Sebagai contoh saya memasukkan faktorial 7 dan hasilnya 5040 yakni hasil dari 7*6*5*4*3*2*1