07/07/15 19:36:30 0
本屋で流行っているようなので作ってみました。
--------------------------
#インド計算の練習
start_time = TimeStamp()
ran = start_time mod 10000
i = 0
Repeat(3)
i = i+1
Call Random
a = ran mod 100
b = ran / 100
mes = a&"x"&b&"=?"
no = "第"&i&"問 "
header = ""
While(ans <> a*b)
ans = Input(header & no & mes,"インド計算",1)
header = "不正解!もう一度^CR^"
EndWhile
EndRepeat
end_time=TimeStamp()
Message(end_time - start_time&"秒でした")
#乱数もどき
Sub Random
ran=(ran*673+944) mod 10000
EndSub