---

プログラム例５

      K=1
        DO 10 I=1,N
          K=K*I
   10   CONTINUE

プログラム例６

      INTEGER N,R,C(M,0:M)
        DO 10 N=1,M<
          C(N,0)=1
          C(N,N)=1
            DO 20 R=1,N-1
              C(N,R)=C(N-1,R-1)+C(N-1,R)
   20       CONTINUE
   10    CONTINUE

＜戻る＞