整数でないとき

質問

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

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

回答No.4

oja · ベストアンサー

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

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などでは上記のような(構造化プログラミングの)書き方が出来なく、仕方なく使われてましたが。

お礼

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

回答No.3

oja

＞いいと思いますが、なぜ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
で分かれ目になっているのでしょうか？

回答No.2

bikkuri

いいと思いますが、なぜxの自乗で判断するのですか？
if x <> int(x) then ...
じゃいけないの？？

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

お礼

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

回答No.1

oja

よろしいのではないでしょうか。
ただ、自分なら下のような感じで書きますけど。

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はまだ習っていないので分かりません・・・　　申し訳ないです。