１０進ベーシックで質問です。

質問

超初心者です。サイコロのプログラムを勉強しています。以下のプログラムを書いたところREMはここに書けないと表示され実行できませんでした。実用書通り書いたのですが、、、。実行させるにはどうすればいいか教えて下さい。

ＲＥＭ＊＊＊サイコロの実験
ＤＩＭ　Ｂ（６）
ＲＡＮＤＯＭＩＺＥ
ＦＯＲ　Ｉ＝１　ＴＯ　６００
　ＬＥＴ　Ｄ＝ＩＮＴ（ＲＮＤ＊６）＋１
　ＬＥＴ　Ｂ（Ｄ）＝Ｂ（Ｄ）＋１

ＮＥＸＴ　Ｉ
ＦＯＲ　Ｊ＝１　ＴＯ　６
　ＰＲＩＮＴ　Ｊ；Ｂ（Ｊ）
ＮＥＸＴ　Ｊ
END

回答No.5

BLUEPIXY · ベストアンサー

#4>どうすれば一番さんのプログラムを実行できるでしょうか
#1さんのプログラムは、Visual Basicでのプログラムですので、十進BASICでそのままでは動かせません。
なるたけ、元のままで、十進BASICで動作するように書き直してみました。
Dim B(6)
Randomize
For i = 1 To 600
Let d = Int(Rnd * 6) + 1
Let B(d) = B(d) + 1

Next i
For j = 1 To 6
LET X$ = X$ & "[" & STR$(j) & ":" & STR$(B(j)) & "]"
Next j
PRINT X$
END

お礼

ご返信ありがとうございます。動作しました。しかも
１～６のサイコロの数まで詳しくかいてくださりわかりやすい乱数のプログラムを書いてくださり非常に助かりました。とても感謝しています。どうもありがとうございました。

回答No.4

noname#10813

プログラムを拝見すると、１０年前くらいの実用書を読まれてませんでしょうか？

とりあえず、＃１さんのように入力して、a()というのを実行できるようにしてみてください。

補足

ご返信ありがとうございます。
　「パソコンで遊ぶ簡単プログラミング」木村良夫さんの
本（講談社）です。２００３年に第一版です。一番さんのプログラミングを実行させたいのですがうまくいきませんでた。どうすれば一番さんのプログラムを実行できるでしょうか。。。折角書いてくださったのにもったいなくて
お時間あるときお知恵をかして下さい。

回答No.3

kachimi

VBだとすれば、全角でＲＥＭと記述しても半角変換されます。ＲＥＭというのはコメントで使用しますのでシングルクォーテーション（'）にしても駄目なら、＃１さんの言われるように削除してみてください。
安易に綴りが違っているとか些細な原因のような気がします。ちなみに通常ＬＥＴも無くても構いません。

お礼

ご返信ありがとうございます。シングルクォーテンションというのをやってみましたが「識別名がありません」と
表示されました。そこで一番さんと貴殿がいうＲＥＭ自体
削除して２番さんのいう予約語を半角にしたところ実行できました。

回答No.2

BLUEPIXY

予約語等は半角英数で入力しないといけないようです。
REM＊＊＊サイコロの実験
DIM B(6)
RANDOMIZE
FOR I=1 TO 600
LET D=INT(RND*6)+1
LET B(D)=B(D)+1
NEXT I
FOR J=1 TO 6
PRINT J;B(J)
NEXT J
END
の様に入力し直して下さい。

お礼

ご返信ありがとうございます。
コピーペーストして実行したところうまくいきました。
予約語は半角でないといけないのですね。なるほど勉強になりました。

回答No.1

Samurai-Jack

どんなBasicなのかわからないのでなんとも言えませんが、REMが書けないというエラーであれば、REMから始まる一行を消してしまえばいいと思います。

ちなみにVBのカテでしたので、VBで書いて見るとこんな感じです（プログラムはかなり手抜きで書いています。。。）

Sub a()

Dim B(6)
Dim i As Integer
Dim j As Integer
Dim d As Integer
Dim X As String

Randomize
For i = 1 To 600
Let d = Int(Rnd * 6) + 1
Let B(d) = B(d) + 1

Next i
For j = 1 To 6
X = X & "[" & j & ":" & B(j) & "]"
Next j
MsgBox X
End
End Sub

補足

ご返信ありがとうございます。
１０進ベーシックでコピーペストして実行させてみたところ「ここには書けません。識別名が必要です。」と表示されました。せっかく詳しく書いてくださったので実行させたいです。それとも言語自体が違うのでしょうか。。。
よくわからなくて質問するのも失礼ですがお時間あるとき
また教えて下さい。