ループの抜け方
十進BASIC_プログラミング へ戻る
大学生のための数学 へ戻る
2014.03.19


  ループを抜ける初歩的な方法には、 GOTO number という方法があります。 たとえば次のようなプログラムです。

    PRINT " ある自然数よりも大きくてそれに最も近いピタゴラス数 "
    PRINT "  ( ピタゴラス数 = m ^ 2 + n ^ 2  : m, n は自然数 ) "
    INPUT PROMPT " 基準とする自然数は? " : n
    LET n0 = n
    LET C = 0
    DO
      LET n = n + 1
      FOR i = 1 TO SQR ( n ) − 1
        LET m = INT ( SQR ( n − i ^ 2 ) )
        IF m ^ 2 + i ^ 2 = n THEN GOTO 10
      NEXT i
      10 LET C = C + 1
      IF m ^ 2 + i ^ 2 = n THEN GOTO 20
    LOOP
    20 PRINT " " ; n ; " = " ; m ; " ^ 2 + " ; i ; " ^ 2 "
    PRINT " それは " ; n0 ; " よりも " ; C ; " 大きい数です。"
    END


  もう少し格好良くするには、 EXIT FOR や EXIT DO を用います。