Contoh program pascal untuk untuk mencari nilai faktorial dengan menggunakan rekursif
Berikut Source Code nya :
|
Program Faktorial;
Uses crt;
Var n,a,b:integer;
Function faktorial(n:integer):integer;
Begin
If (n=0) then
Faktorial:=1
Else
Faktorial:=n*faktorial(n-1);
End;
Begin
Clrscr;
Writeln('Program Faktorial');
Writeln;
Write('Masukkan Angka :
');readln(n);
Writeln(n,'! =
',faktorial(n));
Readln;
End.
|
Berikut Output Program nya :
1. Tampilan awal.
2. Input angka
3. Hasil faktorial
EmoticonEmoticon