新しく発言する EXIT インデックスへ
プログラミング初心者です

  プログラミング初心者です かなた 2003/10/29 21:44:41 
  AとBは0から9までの整数ですよね? tetsu 2003/10/30 15:32:21 
   └ご助言ありがとうございました。早速自分な... かなた 2003/10/30 23:01:15 
    └tetsuさんの 青木太一 2003/10/31 01:11:30 
     └解決しました。 かなた 2003/10/31 19:49:23 

  プログラミング初心者です かなた 2003/10/29 21:44:41  ツリーへ

プログラミング初心者です 返事を書く
かなた 2003/10/29 21:44:41
下記問題が、どうしても判りません。どなたかわかる方がいらっしゃいましたら、ヒントなど教えて頂ければありがたいです。
*次の計算式より、A,Bの値を計算するプログラムを作成しなさい
 AAA×A=2BB1  
 

  AとBは0から9までの整数ですよね? tetsu 2003/10/30 15:32:21  ツリーへ

Re: プログラミング初心者です 返事を書く
tetsu 2003/10/30 15:32:21
AとBは0から9までの整数ですよね?
コンピュータならではの計算方法で考えましょう。
Aが0の時、Bを0,1,2,3・・・・とすると成立するか?
Aが1の時、Bを0,1,2,3・・・・とすると成立するか?
Aが2の時、・・・・・として計算して答えを見つける。
コンピュータだから早い早い!

   └ご助言ありがとうございました。早速自分な... かなた 2003/10/30 23:01:15  ツリーへ

Re: AとBは0から9までの整数ですよね? 返事を書く
かなた 2003/10/30 23:01:15
ご助言ありがとうございました。早速自分なりにやってみたのですが、結構良いところまで行った後、つまってしまいました。参考書等を見ながら独学でやっているのですが、もともと理数系が苦手なせいか、すぐ袋小路にはまってしまいます。お手数ですが、もう一度アドバイス頂ければ幸いです。

100 DIM X(9)
110 FOR A=1 TO 9
120 LET X(A)=A^2*100+A^2*10+A^2
130 IF X(A)>=3000 AND X(A)<4000 THEN PRINT "A=";A,X(A)
140 NEXT A
150 INPUT A
160 DIM Y(9)
170 FOR B=1 TO 9
180 LET Y(B)=3000+B*100+B*10+A
190 IF X(A)>=3000 AND X(A)<4000 THEN PRINT "B=";B,Y(B)
200 NEXT B
210 END

    └tetsuさんの 青木太一 2003/10/31 01:11:30  ツリーへ

Re: ご助言ありがとうございました。早速自分な... 返事を書く
青木太一 2003/10/31 01:11:30
tetsuさんの
>Aが0の時、Bを0,1,2,3・・・・とすると成立するか?
>Aが1の時、Bを0,1,2,3・・・・とすると成立するか?
>Aが2の時、・・・・・として計算して答えを見つける。
は下のように実装できます。
(ヒントというかほとんど答えかも)
for A=0 to 9
for B=0 to 9
print A;B;"成立するか?"
next B
next A

配列やINPUTは不要です。

もしかしたらかなたさんの問題を私が勘違いしているかもしれません。
だったらごめんなさい。

ところで問題が
AAA×A=2BB1
から
AAA×A=3BBA
に変わっていません?
(前者は計算したところ解がありませんでしたが...)

     └解決しました。 かなた 2003/10/31 19:49:23  ツリーへ

Re: tetsuさんの 返事を書く
かなた 2003/10/31 19:49:23
解決しました。
いろいろと、お手をわずらわせてしまい、申し訳ありませんでした。ここ数日、この問題が解けないがために、仕事中も悶々としていたのですが、これで何とか枕を高くして眠れます。tetsuさん、青木さん、本当にありがとうございました。変にこじらせて面倒なことをしていたのだと気づけただけで、思った以上の収穫でした。また、青木さんがご指摘のように、コピペする段階で、問題がすり変わっていたようです。似たような問題が2問あったためだと思われます。大変失礼致しました。
BASICは、最近では店頭に並ぶ参考書が非常に少ないため、古本店などを漁り、四苦八苦していたのですが、こちらの掲示板に巡りあえて非常に幸運でした。
重ね重ねお礼申し上げます。それでは失礼致します。


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