新しく発言する EXIT インデックスへ
Program文とChain文について
　　Program文とChain文について 健ちゃん 2004/08/11 12:10:09 
　　├KENTIKUPRの最初に 哲 2004/08/11 14:03:18 
　　└私もchain文は苦労しました。 滝沢　悟 2004/08/16 02:37:14 

　　Program文とChain文について 健ちゃん 2004/08/11 12:10:09  ツリーへ

Program文とChain文について 返事を書く
健ちゃん 2004/08/11 12:10:09
Program文が長くなるので，モジュール化をしてChain文で継ぐことに挑戦していますが，思うように結果を得ることが出来ません。（このとき引数も引き継ぎたい）
具体的な例として簡単に示しますと，次のProgramをChainで1に継ぎたいのです。

①のProgram文　
REM ファイル名　KENTIKU IN
! 条件入力
! スパンの長さ
OPTION BASE 0
DIM B(5)
DIM B1(5)
LET X=2
FOR I=1 TO X
LET B(1)=600
LET B(2)=600
LET B1(I)=B1(I-1)+B(I)
NEXT I
CHAIN "KENTIKU PR"
END

②のChain文
REM ファイル名　KENTIKU PR
! 条件出力　印字
PRINT "スパンの長さ"
FOR I=1 TO X
PRINT I ; "スパン" ;
PRINT B(I)
NEXT I
PRINT "合計" ;
PRINT B1(X)
END

①の文で条件入力し継ぎ②の文で結果の印字をしたいのですが，印字ができないのです。
どのように修正すればよろしいのでしょうか。
 

　　├KENTIKUPRの最初に 哲 2004/08/11 14:03:18  ツリーへ

Re: Program文とChain文について 返事を書く
哲 2004/08/11 14:03:18
KENTIKU PR　の最初に
PROGRAM プログラム名(変数，変数，・・・ ，変数)を書くことになると思いますが、
HELPで「変数は単純変数に限る。」となっているので B(5)、B1(5)はできないと思います。
どうしても配列変数を引き継ぎたいならファイルに書き出すという方法ではどうでしょうか？
 

　　└私もchain文は苦労しました。 滝沢　悟 2004/08/16 02:37:14  ツリーへ

Re: Program文とChain文について 返事を書く
滝沢　悟 2004/08/16 02:37:14
私もchain文は苦労しました。
別ファイルに出力したいだけなら以下のプログラムで済むと思います。出力したファイルに作業を移したいときはchain文やexecute文が必要になってくると思います。参考にしてください。

!等比数列と、その和
OPTION BASE 1
DIM a(10)
DIM s(10)
INPUT PROMPT "初項=":a(1)
INPUT PROMPT "項比=":r
LET s(1)=a(1)
OPEN #1:NAME "出力.bas"
ERASE #1
PRINT #1:"a( 1 )=";a(1);" , ";
PRINT #1:"s( 1 )=";a(1)
FOR i=1 TO 9
LET a(i+1)=r*a(i)
LET s(i+1)=s(i)+a(i+1)
PRINT #1:"a(";i+1;")=";a(i+1);" , ";
PRINT #1:"s(";i+1;")=";s(i+1)
NEXT i

END

インデックスへ EXIT
新規発言を反映させるにはブラウザの更新ボタンを押してください。