projects
/
pdp8.git
/ blob
commit
grep
author
committer
pickaxe
?
search:
re
d9acd99e7b2bb9698dbbdfe1c23a8b1ccaa286ba
[pdp8.git]
/
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.