例題８　繰り返し処理�@　｢FOR〜NEXT｣

自然数1から10までの平方の和 S=12+22+･･･+102 を求め、表示するプログラムを作れ。

(LIST)

1:  sum=0　　　 　　　　　　　　　　　　'初期値0

2:  FOR i=1 TO 10

3:  　　sum=sum+i^2　　　　　　　　　　  '和の取得

4:  NEXT i

5:  PRINT "S=";sum

＜類題8-1＞自然数 m,n（ただしm<N）の値を入力して、m²からn²までの平方の和を求めるプログラムを作れ。

(OUTPUT) m?5　　n?10　　355

＜類題8-2＞自然数 nの値を入力して、nの階乗n! の値を求めるプログラムを作れ。

(OUTPUT) n?6　　720

＜類題8-3＞自然数 n,r（ただしn>r）の値を入力して、順列の総数 _nP_r の値を求めるプログラムを作れ。

(OUTPUT) n?6　　r?3　　120

例題９　繰り返し処理�A　｢FOR〜STEP〜NEXT｣

1から1000までの自然数のうち、7の倍数の和を求め表示するプログラムを作れ。

(LIST)

1:  sum=0　　　　　　　　　　　　　　　'初期値0

2:  FOR i=7 TO 1000 STEP 7　　　　　　　 'step 7 で7の倍数

3:  　　sum=sum+i　　　　　　　　　　　'和の取得

4:  NEXT i

5:  PRINT "和=";sum

＜類題9-1＞自然数 nの値を入力して、1から1000までの自然数のうち、nの倍数の和を求め表示するプログラムを作れ。

(OUTPUT) n?8　　63000

＜類題9-2＞f(x)=2x²-3x-1 (0≦x≦1) の定義域を10等分したときのf(x)の値を求めるプログラムを作れ。

(OUTPUT)-1, -1.28, -1.52, ･･･, -2.12,-2.08

＜類題9-3＞0°から90°まで10°ごとに正弦の値を求め、角度と正弦の値を並べて表示するプログラムを作れ。

(OUTPUT)0, 0.173561, 0.341854, 0.49977, ･･･, 0.984685, 1

例題１０　繰り返し処理�B　2重ループ

九九の表を表示するプログラムを作れ。

(LIST)

1:  FOR i=1 TO 9

2:  　　FOR j=1 TO 9

3:  　　　　x=i*j　　　　　　　　　'九九の計算

4:  　　　　PRINT x,　　　　　　　 'xのあとの","は間隔をあけて表示するため

5:  　　NEXT j

6:  　　PRINT

7:  NEXT i

＜類題10＞数列 a_n:1, 2, 5, 10, 17, ･･･ の第30項までの和を求めるプログラムを作れ。

(OUTPUT) 27030