Program Faktorial

Jul 25, 2009 1 Comment by Sahabat

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.
Pascal
Sahabat

Tentang Penulis

Penulis adalah sahabat-sahabat yg menyumbang tulisan di nusinau.com untuk dimuat dengan bijaksana. Silakan kirim tulisannya ke nusinau[at]gmail[dot]com atau ke admin[at]nusinau[dot]com. Butuh diskusi cepat? colek di twitter @nusinau

One Response to “Program Faktorial”

  1. aLbab says:

    mas,

    klo outputnya mw ditampilin juga nilainya gmn ya ?
    mis 3 faktorial =3*2*1= 6

    makasi sblmnya mas.

Leave a Reply

You must be logged in to post a comment.