整数でないとき

１０　ＩＮＰＵＴ　Ｘ
２０　ＩＦ　Ｘ＝０　ＴＨＥＮ　ＥＮＤ
３０　Ｃ＝Ｘ－２＊ＩＮＴ（Ｘ／２）
４０　ＩＦ　Ｃ＝０　ＴＨＥＮ　ＰＲＩＮＴ”偶数”　ＥＬＳＥ　ＰＲＩＮＴ”奇数”
５０　ＧＯＴＯ　１０
というプログラムはＸが整数でなければ奇数と判定してしまいます。２０行と３０行の間に命令を追加して、Ｘが整数でないときは”整数でない”と表示して、次の入力を待つように修正し、整数のときだけ奇数か偶数かを判定するようにするには、

２５　ＩＦ　Ｘ＾２＞ＩＮＴ（Ｘ＾２）　ＴＨＥＮ　ＰＲＩＮＴ”整数でない”：ＧＯＴＯ　１０
を追加する。
でよいのでしょうか？
ぜひ教えてください。　

No.1 回答者： oja 回答日時： 2003/11/06 00:51

よろしいのではないでしょうか。

ただ、自分なら下のような感じで書きますけど。


rem　x=999は仮の初期値
x=999
do until x=0
　input x
　if x^2 = int(x^2) then
　　c=x-2*int(x/2)
　　if c=0 then print "偶数" else print "奇数"
　else
　　print "整数でない"
　end if
loop
end

この回答へのお礼

do untilやloopはまだ習っていないので分かりません・・・　　申し訳ないです。

お礼日時：2003/11/06 21:09

No.2 回答者： bikkuri 回答日時： 2003/11/06 19:56

いいと思いますが、なぜxの自乗で判断するのですか？

if x <> int(x) then ...
じゃいけないの？？

もちろん、gotoで飛ばしまくるより#1の方のように記述する方がいいです。
（そう書けないbasic/演習ならしかたないですが）

この回答へのお礼

Ｎｏ．１の方のお礼にも書かせていただいたのですが、loopというのが分からないんですよ。
あとif x <> int(x) then なら負の数字の場合がダメな気がします。

お礼日時：2003/11/06 21:13

No.3 回答者： oja 回答日時： 2003/11/06 20:38

＞いいと思いますが、なぜxの自乗で判断するのですか？

if x <> int(x) then ...
じゃいけないの？？

<>,　=　を使うなら、2乗の必要はないですね。
2乗にしたのは、>　で判断する場合負の値も考慮したんですよね。
という事で私も少し訂正。

rem　x=999は仮の初期値
x=999
do until x=0
　input x
　if x = int(x) then
　　c=x-2*int(x/2)
　　if c=0 then print "偶数" else print "奇数"
　else
　　print "整数でない"
　end if
loop
end

この回答へのお礼

上記の内容は、
input x
と
if x = int(x) then c=x-2*int(x/2)
と
if c=0 then print "偶数" else print "奇数" else　print "整数でない"
と
end if loop
で分かれ目になっているのでしょうか？

お礼日時：2003/11/06 21:18

No.4 ベストアンサー 回答者： oja 回答日時： 2003/11/06 23:28

>で分かれ目になっているのでしょうか？

分かれ目と言う表現が何を云わんとしているのかちょっとわかりかねます。

do until x=0
　～
loop
は繰り返しの構造です。xが0になる(xに0が代入される)まで繰り返しを行う。

この繰り返し構造の中にIF文の構造が階層的に含まれています。
if x = int(x) then
　～
else
　～
end if
の構造の下に
if c=0 then print "偶数" else print "奇数"
のif文の構造が含まれる形です。

　どうやら、プログラムの勉強をはじめたばかりの様で仕方ないのかもしれませんが、goto文を使った書き方というのは最近あまりしません。20年ぐらい前のBASICなどでは上記のような(構造化プログラミングの)書き方が出来なく、仕方なく使われてましたが。

この回答へのお礼

学校でＢＡＳＩＣの実習をしているのですが、先生も今はほとんど使われていないと言っていました。
Ｎ８８ＢＡＳＩＣと打ち込んでスタートさせてます。
もしかして２０年前のベーシックかも・・・

お礼日時：2003/11/07 00:16