WHILE〜WEND文 の履歴(No.1)

• 履歴一覧
• ソース を表示
• WHILE〜WEND文 は削除されています。
  • 1 (2018-02-09 (金) 08:26:23)
  • 2 (2023-01-31 (火) 01:37:56)

WHILE〜WEND文†

WHILE〜WEND 文は WHILE 中の条件式が正しいとき、WEND で挟まれたプログラムを繰り返し実行する。条件式は IF 文と同様に書ける。

次のプログラムは課題 1 （IF 文と GOTO 文を用いた繰り返し処理）を WHILE〜WEND 文を使って書き直したものである。20 行目の WHILE で A が 0 でない間、すなわち、A に 0 が入力されるまで足し算を続ける。

10	S=0:A=1
20	WHILE A<>0
30		INPUT A
40		S=S+A
50	WEND
60	PRINT "合計は";S;"です。"

次のプログラムは、元金が指定の利率（複利）で、目標の金額になるまでの年数を計算するプログラムである。下線部を補完し、プログラムを完成させよ。

10	INPUT "元金をいくらにしますか";G
20	INPUT "利率は何％ですか";R
30	INPUT "いくらになるまで預けますか";S
40	I=0
50	WHILE ___
60		I=I+1
70		G=G*(1+R/100)
80	WEND
90	PRINT I;"年後に";S;"円を超えて";G;"円になります。"