コメント - Rmake

コメントの内容

とりか(投稿日：2013/01/30 00:01/30/13)

Q=0
W=0
b=1

while b < 7
 a=0
 W=0
 while a < 5
  if getVariable("ダイス")[a]==b
   W=1     
  end
  a=a+1
 end
 if W==1
  Q=Q+1
 else
  Q=0
 end
 b=b+1 
end

if Q==5
 speak("ストレートが揃っている")
end
if Q==4
 speak("セミストレート！！！")
else
 speak("ストレートはそろっていない")
end

bの初期値が誤っていたので修正
さらにおかしな動作をしそうな変数を消しました
数値の動きも手計算で確認したのでたぶんコレで動くと思われます
頑張ってくださいー

コメントの内容(一番最初の投稿)

とりか(投稿日：2013/01/30 00:01/30/13)

Q=0
W=0
b=1

while b < 7
 a=0
 W=0
 while a < 5
  if getVariable("ダイス")[a]==b
   W=1     
  end
  a=a+1
 end
 if W==1
  Q=Q+1
 else
  Q=0
 end
 b=b+1 
end

if Q==5
 speak("ストレートが揃っている")
end
if Q==4
 speak("セミストレート！！！")
else
 speak("ストレートはそろっていない")
end