Faktorial

Posted: 10 Mei 2010 in Algoritma Pemrograman

>Program faktorial tanpa rekursif:

program faktorial;
uses wincrt;
var
a,b,i,n:integer;
f:longint;
begin
write(‘Masukkan Angka= ‘);read(n);
f:=1;
for i:=1 to n do
begin
f:=f*i;
end;
write(‘Nilai faktorial dari ‘,n,’! adalah ‘,f);
end.


syntax pascal klik disini.

Program faktorial dengan rekursif:

program faktorial_dg_rekursif;
uses wincrt;
var n:integer;
function fakt(n:integer):longint;
begin
if n=0 then
fakt:=1
else
fakt:=n*fakt(n-1);
end;
begin
write(‘Masukkan Bilangan yang akan di faktorialkan= ‘);read(n);
write(n,’ Faktorialnya adalah ‘,fakt(n));
end.


syntax pascal klik disini.

Tinggalkan Balasan

Isikan data di bawah atau klik salah satu ikon untuk log in:

Logo WordPress.com

You are commenting using your WordPress.com account. Logout / Ubah )

Gambar Twitter

You are commenting using your Twitter account. Logout / Ubah )

Foto Facebook

You are commenting using your Facebook account. Logout / Ubah )

Foto Google+

You are commenting using your Google+ account. Logout / Ubah )

Connecting to %s