sw/src/pascal/BKOEFF.PS

   1 PROGRAM BINOMIALKOEFFIZIENTEN(OUTPUT);
   2
   3    CONST NMAX=14;
   4
   5    VAR   N,K: INTEGER;
   6
   7    FUNCTION BINOM(N,K: INTEGER): INTEGER;
   8       BEGIN
   9          IF (K=0) OR (K=N)
  10             THEN BINOM := 1
  11             ELSE BINOM := BINOM(N-1,K-1) + BINOM(N-1,K)
  12       END (* BINOM *);
  13
  14
  15 BEGIN
  16    WRITE(" ":5);
  17    FOR K := 0 TO NMAX DO WRITE(K:5);
  18    WRITELN; WRITELN;
  19    FOR N := 0 TO NMAX DO
  20       BEGIN
  21          WRITE(N:2," ":3);
  22          FOR K := 0 TO N DO WRITE( BINOM(N,K):5);
  23          WRITELN
  24       END
  25 END.