★エッチな掲示板をお気に入り登録しよう！★

mikumaniaのパッケージ画像 ミク×リンのパッケージ画像 涼○ハルヒの煩悶のパッケージ画像 DQIII RPG ALL STARのパッケージ画像

★無料のエロ動画をお気に入り登録しよう！★

ID:92 入力された数を階乗計算する
by うｗｓｃ 2009/05/30(Sat) 19:29:41
//　入力された数を階乗計算する
While　True
　数　=　input("1～10の間の数を入力して下さい")
　ifb　VAL(数)　=　ERR_VALUE
　　　MsgBox("数値を入れてください")
　　　Continue
　endif
　ifb (数<1)　or　(数>10)
　　　MsgBox("指定範囲内の数を入れてください")
　　　Continue
　endif
　break
wend

print 数 + "の階乗の答えは" + Format(階乗計算(数), 10) + "です"　　// １０桁分の幅を取り表示
//　Mainプログラムはここまで

//　関数定義
function　階乗計算(値)
　　ifb　値　=　0　then
　　　　Result　=　1
　　　　Exit
　　endif
　　Result =値 *階乗計算(値-1)　　//　このように再帰計算もできるんだよ
fend