プログラム例1

        DO 10 K=1,M
          IF ((MOD(M,K).EQ.0).AND.(MOD(N,K).EQ.0)) G=K
   10   CONTINUE

プログラム例2

      G=1
   10   DO 20 K=2,M
          IF((MOD(M,K).EQ.0).AND.(MOD(N,K).EQ.0)) THEN
              M=M/K
              N=N/K
              G=G*K
              GOTO 10
          ENDIF
   20   CONTINUE

プログラム例3

   10 R=MOD(N,M)
      N=M
      M=R
        IF(R.NE.0.0) GOTO 10
      G=N


<戻る>