- 104 名前：名前は開発中のものです。 mailto:sage [2007/06/23(土) 12:06:11 ID:ngSwrVIN]
- >>103
Palam=0 ;積
count=0 ;ｶｳﾝﾀ
repeat
//ｶｳﾝﾀ回し
count+1
//空の時に*0で値が0になるのを防止。
if A(count)=0 : A(count)=1
if A(count+1)=0 : A(count+1)=1
//掛け算
Palam=A(count)*A(count+1)
//終了ﾁｪｯｸ
if count=length(A)-1 : break
loop
mes ""+Palam+""
stop
こんなもんか。ﾃｷﾄｰだから微調整とか帳尻あわせは自分でやってくれ。
配列の要素数はlength関数で表せるよ。
