algoritma factorial dan contoh pemograman dengan VBA Excell

dalam matematika factorial dilambangkan dengan n!, maksudnya adalah perkalian bilangan sejumlah n-1 sampai dengan 1, misalnya

notasi n! diperkenalkan oleh Christian Kramp pada tahun 1808, definisi dari n1 adalah

atau secara recursive didefinisikan sebagai

Algoritma

untuk kasus factorial metode recursive
1. dim n, hasil as double
2. read n
3. if n = 0 then hasil = 1
4. else if n > 0 then hasil = n x hasil
5. n = n-1
6. tulis hasil
7. end

dari algoritma tersebut, coba saya terjemahkan ke bahasa visual basic, tepatnya VBA memakai excell, namun kembalianya selalu salah, kalau tidak 1 ya angkanya sendiri, hal ini disebabkan karena proses looping yang terjadi tidak berjalan sempurna, sehingga saya mencoba memakai algoritma while do seperti contoh dibawah

1. deklarasi variable, n, h
2. read n,h
3. while h>0 do
4. h = h * n
5. n=n-1
6. write h
7. end while
8. end

dalam nomer 3 , dapat kita lihat bila h masih lebih besar dari nol maka proses perhitungan pertama adalah mengalikan h dengan n, lalu n akan dikurangi dengan 1 dan seterushnya selama n > 0.

Posted in: algoritma, komputasi teknik