エカつきのブログ = Eka tsuki no blog

macro
kombinasi y x
mconstant n k i j fak1 fak2 fak3 kom
mcolumn x y
#mencari n!
let n = x
if n<0
 print 'Masukkan kembali nilai n >= 0'
elseif n=0
 print '0! = 1'
else
 let fak1=1
 do i=1:n
 let fak1=fak1*i
 enddo
endif
#mencari (n-k)!
let k = y
if n  print 'Masukkan kembali nilai n >= k'
elseif k<0
 print 'Masukkan kembali k>0'
elseif k=n
 let kom=fak1
else
 let fak2=1
 do j=1:n-k
 let fak2=fak2*j
 enddo
#menghitung k!
let fak3=1
do i=1:k
let fak3=fak3*i
enddo
let kom=fak1/(fak2*fak3)
print fak1 fak2 fak3 kom
endmacro