Algoritma Menghitung Bilangan Faktorial Menggunakan Prosedur

N : integer

procedure Faktorial

DEKLARASI

i,fak :integer

ALGORITMA:

Fak ← 1

for I ← 1 to N do

Fak ← fak*i

write (fak,’ ‘)

endfor

ALGORITMA :

writeln (‘===== Program Hitung Faktorial =====’);

write(‘Masukkan nilai faktorial:’)

Read(N)

write (‘hasil faktorial=’)

faktorial