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.

Kata Kunci

yhs-fullyhosted_003, faktorial pascal, program faktorial pascal, Program faktorial, program pascal faktorial, pascal faktorial, Faktorial, contoh program menghitung nilai faktorial dengan pascal, contoh program pascal pakai fa, Contoh program mencari faktorial 3.

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.