Commit | Line | Data |
---|---|---|
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. |