階乗を計算する
; 階乗を計算するモジュール Ver.1.0 (fact.as) ; ; このスクリプトはHSP3専用です #module __fact__ #defcfunc fact int num ; fact(n) : nの階乗 (n!) if(num<1):num=1 cnt_num=1 ans_num=1 repeat ans_num=ans_num*cnt_num if(cnt_num=num):break cnt_num+=1 loop return ans_num #global
タグ: