HSPTV!掲示板

1/2の確率でaが出るようにしたいのですが；を消してifを有効にして実行するとatanのところで、
エラー31 "異なる型を持つ配列変数に代入しました" が出ます。エラーが出ないときもあります。
原因は何でしょうか？

screen 0,500,500

randomize

dim x,5
dim y,5
dim a,5

 
foreach x
	;if rnd(2) == 1{
		x(cnt) = rnd(500)
		y(cnt) = rnd(500)
		a(cnt) = atan(250 - y(cnt),x(cnt) - 250) * 180 / 3.141592
		pos x(cnt),y(cnt)
		mes "a="+a(cnt)
	;}

loop

こんにちは。
このスクリプトでエラーが表示されるのは、
答えが実数（小数）で帰ってくるatan関数を整数配列変数dimのaに代入しているからです。
例えば、

dim a,5

a(0)=1.5
a(1)=1.2

というコードの場合、HSP側が自動的にaを実数の配列変数に変換してくれますが、

dim a,5

a(0)=5
a(1)=1.2

だと、aに整数"5"と小数の"1.2"が代入されるためエラーが出ます。

あなたのコードの場合、rnd(2)=0になるとaに整数"0"が代入され、
rnd(2)=1になるとaに小数が代入されるためにエラーになることがあります。

ですので、

dim a,5

の部分を

ddim a,5

に変更すればエラーはなくなります。

解決しました。
本当にありがとうございます。