Program Hitung Faktorial

Rumus matematika untuk mencari nilai faktorial sebuah bilangan adalah :

N ! = 1x2x3x4x5x……..xn

Contoh :

5! = 1x2x3x4x5 = 120
8! = 1x2x3x4x5x. . . .x8 = 40320

Penyelesaian akan diberikan dalam 3 buah contoh program sebagai berikut :

1.  Program  tanpa sub program.

Program Faktorial;
uses crt;

var
  i,n    : byte;
  h : longint;
Begin
  clrscr;
  write('Tentukan  bilangan n = ');
  readln(n);
  h:=1;
  for i:=1 to n do
    h:=h*i;

  writeln(n,'! adalah ',h);
  readln;
End.

2. Program dengan menggunakan Prosedur

PROGRAM FAKTORIAL;
USES CRT;

{Prosedur}

Procedure input(var n:byte);
Begin
  write('Tentukan bilangan  n : '); readln(n);
End;

Procedure fakt(n : byte;var h:longint);
var
  i      : byte;
Begin
  h:=1;
  for i:=1 to n do
    h:=h*i;
End;

Procedure Cetak( n,h : integer);
Begin
   writeln(n,'! adalah ',h);
End;

{Program Utama}
var
  x : byte;
  y : longint;
begin
  clrscr;
  input(x);
  fakt(x,y);
  cetak(x,y);
  readkey;
end.

3.  Program dengan menggunakan fungsi.

PROGRAM FAKTORIAL;
USES CRT;

Function input:byte;
var n : byte;
Begin
  write('Tentukan bilangan n : '); readln(n);
  input:=n;
End;

Function fakt(n : byte):longint;
  var i : integer; h:longint;
Begin
  h:=1;
  for i:=1 to n do
    h:=h*i;
    fakt:=h;
End;

Function Cetak( n: byte; h:longint):longint;
Begin
   writeln(n,'! adalah ',h);
End;

{Program Utama}
var
  x : byte;
  y : longint;
begin
  clrscr;
  x:=input;
  y:=fakt(x);
  cetak(x,y);
  readkey;
end.

Cara kerja program :

Fungsi Input berfungsi untuk melalukan input data bertipe byte. Fungsi input mengembalikan sebuah. nilai berdasarkan nama fungsi dan tipenya. Oleh karena itu, nilai n yang input dalam fungsi disimpan ke dalam variabel yang sama dengan nama fungsi yaitu input. Pernyataannya adalah input := n.

Fungsi Fakt  berfungsi untuk menghitung nilai faktorial dari sebuah bilangan n. Fungsi bertipe longint dan mengembalikan sebuah nilai berdasarkan nama dan fungsinya. Karena itu, hasil perhitungan faktorial dalam variabel h disimpan ke dalam variabel yang sama dengan nama fungsi yaitu fakt. Pernyataannya adalah fakt:=h. Fungsi Faktorial  memiliki parameter input untuk menerima nilai dari program utama ketika dipanggil.

Hasil Program adalah sebagai berikut :