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

macro
persentil x
mconstant n i j k a l p q sisa persentil
mcolumn x
let n=count(x)
#Mengurutkan data
do i=1:n
do j=1:n
       if i > j and x(i) < x(j)
             let a=x(i)
             let x(i)=x(j)
             let x(j)=a
     endif
enddo
enddo

#letak persentil
do k=1:99
    let l=k*(n+1)/100
    let p=floor(l,0)
    let q=p+1
    let sisa=l-p
    let persentil=x(p)+(sisa*(x(q)-x(p)))

print k persentil
enddo
endmacro