Assalamualaikum. Wr. Wb pada postingan kali ini saya akan membuat program tentang faktorial dengan rekursif pada pascal

Source Code

Program Faktorial_pascal;

uses crt ;

function Faktorial(a:integer):longint;

begin

if (A=1)then

Faktorial:=1

else

Faktorial:=a*faktorial(a-1);

end;

var

x:integer;

begin

clrscr;

writeln('^^^^Faktorial sequence^^^^');

writeln;

write('Berapa Faktorial :');readln(x);

writeln(x,' faktorial = ', faktorial(x));

readln;

end.



1.      Screenshot Program

1.1  Tampilan utama

                Gambar 1.1 Perintah input factorial

1.2 Input cari faktorial

             Gambar 1.2 Angka yang ingin kita cari faktorialnya

1.2   Hasil factorial

             Gambar 1.3 Hasil dari factorial yang telah dicari



Terimakasih telah berkunjung ke blok saya

Wasalamualaikum Wr. Wb