Program Faktorial Menggunakan Metode Rekursif

Halo... teman2, pada postingan kali ini saya akan menyajikan entri "Program Faktorial Menggunakan Metode Rekursif" yang dibuat dengan menggunakan program pascal dan berikut hasilnya :

A. Source Code

uses crt;
var n:integer;

function faktorial (n:integer):longint;
begin
if (n<=1)then
faktorial:=1
else
faktorial:=faktorial (n-1)*n;
end;

begin
clrscr;
write('Masukkan Nilai Faktorial  : ');readln(n);
write('Hasil : ',faktorial(n));
readkey;
end.

B. Screenshot Program

 

 Gambar 1. Tampilan awal program

 

 Gambar 2. Tampilan input nilai faktorial

 

Gambar 3. Tampilan output hasil nilai faktorial

Dan begitulah... sekian postingan saya kalil ini, terima kasih

Wassalam....