Program Faktorial
Jul 25, 2009 1 Comment
Contoh program faktorial dengan pascal
1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 | 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)); writeln; write('Tekan Sembarang Tombol untuk keluar...'); readln; end. |
mas,
klo outputnya mw ditampilin juga nilainya gmn ya ?
mis 3 faktorial =3*2*1= 6
makasi sblmnya mas.