新しく発言する 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

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

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

  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
新規発言を反映させるにはブラウザの更新ボタンを押してください。