CONTOH SCRIPT DASAR PADA PROGRAM DELPHI (PART 7)

Sekarang saya akan memposting script tentang program faktorial,tetapi sebelum itu saya akan memperkenalkan apa sih faktorial itu?

FAKTORIAL

Dalam matematika, 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.

program factorial
Pada program faktorial ini, untuk menghitung faktorial dari suatu nilai kita harus menginput nilai yang akan dibuat faktorialnya. Kemudian kita klik tombol Hasil, maka program akan memproses nilai tersebut untuk dibuat faktorialnya. Setelah itu, akan tampil angka yang merupakan hasil faktorial dari nilai yang sudah diinput tadi. Faktorial dapat dibuat dengan fungsi yang bersifat recursif (fungsi yang dapat memanggil dirinya sendiri).

{$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.
hasilnya seperti ini:

sekian dulu postingan hari ini ^_^!!!!