例題８　条件判断�@　｢IF〜THEN〜｣

3つの数値a,b,cを入力して、最大値を表示するプログラムを作れ。

(LIST1)

10  INPUT PROMPT "a=":a

20  INPUT PROMPT "b=":b

30  INPUT PROMPT "c=":c

40  IF b<c THEN b=c

50  IF a<b THEN a=b

60  PRINT a

(LIST2)

10  INPUT PROMPT "a=":a

20  INPUT PROMPT "b=":b

30  INPUT PROMPT "c=":c

40  max=a

50  IF b>max THEN max=b

60  IF c>max THEN max=c

70  PRINT max

＜類題8-1＞4つの数値a,b,c,dを入力して、最小値を表示するプログラムを作れ。

(OUTPUT) a?63　　b?48　　c?72　　d?83　　48

＜類題8-2＞自然数nの平方 n² が1000以上となる最小のnを求めるプログラムを作れ。

(OUTPUT) 32

例題９　条件判断�A　｢SELECT｣

3つの数値a,b,cを入力して、2次方程式 ax2+bx+c=0 の解を表示するプログラムを作れ。

(LIST)

10  INPUT PROMPT "a=":a

20  INPUT PROMPT "b=":b

30  INPUT PROMPT "c=":c

40  LET D=b^2-4*a*c

50  SELECT CASE D

60  CASE IS >0

70      PRINT "x1=";(-b-SQR(D))/(2*a)

80      PRINT "x2=";(-b+SQR(D))/(2*a)

90  CASE IS =0

100      PRINT "x=";-b/2*a

110  CASE IS <0

120      PRINT "解なし"

130  END SELECT

＜類題9＞2つの数値a,bを入力して、1次方程式 ax=b の解を表示するプログラムを作れ。