File: BKOEFF.PS of Tape: Various/Decus/decus-3

(Source file text) 

---

PROGRAM BINOMIALKOEFFIZIENTEN(OUTPUT);

   CONST NMAX=14;

   VAR   N,K: INTEGER;

   FUNCTION BINOM(N,K: INTEGER): INTEGER;
      BEGIN
         IF (K=0) OR (K=N)
            THEN BINOM := 1
            ELSE BINOM := BINOM(N-1,K-1) + BINOM(N-1,K)
      END (* BINOM *);


BEGIN
   WRITE(" ":5);
   FOR K := 0 TO NMAX DO WRITE(K:5);
   WRITELN; WRITELN;
   FOR N := 0 TO NMAX DO
      BEGIN
         WRITE(N:2," ":3);
         FOR K := 0 TO N DO WRITE( BINOM(N,K):5);
         WRITELN
      END
END.

---