GOTO文

GOTO文

【確認1】次のプログラムを実行しなさい。

[プログラム]

　　10  PRINT "line 10"
　　20  GOTO 40
　　30  PRINT "line 30"
　　40  PRINT "line 40"
　　50  END

[実行結果]

　　line 10
　　line 40

[解説]

　20行目のGOTO文で40行目へジャンプしているため、30行目の命令は実行されない。

【確認2】次のプログラムを実行しなさい。

[プログラム]

　　10  LET X=1
　　20  PRINT "x=";X;
　　30  X=X+1
　　40  IF X<5 THEN GOTO 20
　　50  END

[実行結果]

　　x= 1 x= 2 x= 3 x= 4 

[解説]

　このように、IF文とGOTO文を組み合わせることでループを表現することができます。

【問題1】Xの絶対値を出力するプログラム

[プログラム]

　　10  INPUT PROMPT "x=":X
　　20  IF X<0 THEN GOTO ＿＿
　　30  PRINT "|x|=";X
　　40  GOTO ＿＿
　　50  PRINT "|x|=";-X
　　60  END

[設問]

　これは、210の確認1と確認2のプログラムをGOTO文を用いて書き換えたものである。空欄を埋めてこのプログラムを完成させなさい。

【問題2】1から10までの和を求めるプログラム

　　10  LET S=0
　　20  LET K=1
　　30  LET S=S+K
　　40  ＿＿＿＿＿＿＿＿＿
　　50  IF ＿＿＿＿ THEN GOTO ＿＿
　　60  PRINT "1+2+…+99=";S
　　70  END

[設問]

　これは、220の問題1のプログラムをGOTO文を用いて書き換えた物である。空欄を埋めてこのプログラムを完成させなさい。