A large commit.

[pdp8.git] / sw / src / pascal / BKOEFF.PS

diff --git a/sw/src/pascal/BKOEFF.PS b/sw/src/pascal/BKOEFF.PS
new file mode 100644 (file)
index 0000000..d9acd99
--- /dev/null
+++ b/sw/src/pascal/BKOEFF.PS
@@ -0,0 +1,25 @@
+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.