menghitung nilai factorial

masih ingat kah anda tentang nilai factorial yang di pelajari sma, masih ingatkah anda dengan hasil 10!, jawabannya mudah 10!=1*2*3*4*5*6*7*8*9*10=? wah kok isi nya tanda tanya, males ngitung nya kalau males ngitungn bikin aja programnya buat ngitung nilai faktorialnya
pertama tama seperti biasa buka free pascal terus tulis deh program yang di bawah

program nilaifactorial; {nama programnya}
uses crt {unit nya}
var
n,k:integer {n=banyak nya data k=nilai bantu}
jumlah:longint {jumlah nya}
begin
repeat
clrscr; {fungsi membersihkan layar}
write('masukan nilai n: '); readln(n);
jumlah:=1;
k:=1;
while k <= n do begin jumlah:=jumlah*k; k:=k+1; end; writeln('jadi hasilnya ',jumlah); write; write('lihat lagi Y/N: '); readln(lagi); until upcase(lagi)= 'N'; end.


nih hasilnya









noh ketemukan hasilnya 10!=3628800
gampangkan kalau di bikin programnya
>>>>>>>download source codenya<<<<<<<<<

Related Posts by Categories