X-Git-Url: http://gitweb.hachti.de/?a=blobdiff_plain;f=sw%2Fsrc%2Fpascal%2FKOMBI.V1;fp=sw%2Fsrc%2Fpascal%2FKOMBI.V1;h=f9681d0ad8447ecad2b2966b0c6df8d4077bfe1a;hb=81e70d488b71bf995c459ca3a02c025993460ffa;hp=0000000000000000000000000000000000000000;hpb=07ec0278333ed187ac242dedcff13c56cf1b0b91;p=pdp8.git

diff --git a/sw/src/pascal/KOMBI.V1 b/sw/src/pascal/KOMBI.V1
new file mode 100644
index 0000000..f9681d0
--- /dev/null
+++ b/sw/src/pascal/KOMBI.V1
@@ -0,0 +1,25 @@
+PROGRAM KOMBINATIONEN(INPUT,OUTPUT);
+
+  VAR   K,N: INTEGER;
+        Z: ARRAY[1..9] OF INTEGER;
+
+  PROCEDURE PRINT;
+    VAR I: INTEGER;
+    BEGIN
+        FOR I := 1 TO K DO WRITE(Z[I]:1); WRITE(" ":2)
+    END;
+
+
+  PROCEDURE KOMBI(N,K: INTEGER);
+    VAR I: INTEGER;
+    BEGIN
+        IF K>0 THEN FOR I:= K TO N DO
+                            BEGIN  Z[K] := I; KOMBI(I-1,K-1)  END
+               ELSE PRINT
+    END;
+
+
+BEGIN
+        READ(N,K);
+        KOMBI(N,K)
+END.