BASICの宿題はお前にまかせた

BASICの宿題はお前に� ..

151:デフォルトの名無しさん
06/09/30 14:52:12
basicは完全に忘れちゃったので、概要だけ

dim dice(6)
loop:
input "サイコロの目=",d
id d=0 then goto exit
if 1<=d and d<=6 then dice(d)=dice(d)+1: goto loop
print "無効な数値"
goto loop
exit:
for i=1 to 6
print i;"の目=";dice(i)
next

こんな感じ

次ページ

続きを表示

1を表示