新しく発言する EXIT インデックスへ
困っています…
　　困っています… 理系学生 2006/06/05 18:41:22 
　　└SGN関数とSELECT文を用いて場合分けをすれば... 荒田浩二 2006/06/05 21:09:54 
　　　└修正Xの係数が1のときの処理 荒田浩二 2006/06/05 21:46:11 
　　　　└返事が遅くなり申し訳ございませんm(__)m 理系学生 2006/06/08 18:18:48 

　　困っています… 理系学生 2006/06/05 18:41:22  ツリーへ

困っています… 返事を書く
理系学生 2006/06/05 18:41:22
INPUT文でaとbを入力し、その入力したaとbを用いて、PRINT文でy=ax+bを表示させたいのですが、うまくいきません。

ソースは以下の通りです。
INPUT PROMPT "a=" :a
INPUT PROMPT "b=" :b
PRINT "Y=" ;a
END
3行目をどのようにすれば良いのでしょうか？よろしくお願いします. 

　　└SGN関数とSELECT文を用いて場合分けをすれば... 荒田浩二 2006/06/05 21:09:54  ツリーへ

Re: 困っています… 返事を書く
荒田浩二 2006/06/05 21:09:54
SGN関数とSELECT文を用いて場合分けをすればよいのでは。
また、数値の前後の空白はSTR$関数で文字列化すれば消せます。
INPUT PROMPT "a=" :a
INPUT PROMPT "b=" :b
SELECT CASE SGN(b)
CASE 1
PRINT "Y=";STR$(a);"X+";STR$(b)
CASE -1
PRINT "Y=";STR$(a);"X";STR$(b)
CASE 0
PRINT "Y=";STR$(a);"X"
END SELECT
END
 

　　　└修正Xの係数が1のときの処理 荒田浩二 2006/06/05 21:46:11  ツリーへ

Re: SGN関数とSELECT文を用いて場合分けをすれば... 返事を書く
荒田浩二 2006/06/05 21:46:11
修正 Xの係数が1のときの処理
INPUT PROMPT "a=" :a
INPUT PROMPT "b=" :b
LET sa$=STR$(a)
IF a=1 THEN LET sa$=""
IF a=-1 THEN LET sa$="-"
SELECT CASE SGN(b)
CASE 1
PRINT "Y=";sa$;"X+";STR$(b)
CASE -1
PRINT "Y=";sa$;"X";STR$(b)
CASE 0
PRINT "Y=";sa$;"X"
END SELECT
END

 

　　　　└返事が遅くなり申し訳ございませんm(__)m 理系学生 2006/06/08 18:18:48  ツリーへ

Re: 修正Xの係数が1のときの処理 返事を書く
理系学生 2006/06/08 18:18:48
返事が遅くなり申し訳ございませんm(__)m
ご教示いただいたもので、私のやりたかったことができるようになりました。ありがとうございます。

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