sw/src/pascal/KOMBI.V1

   1 PROGRAM KOMBINATIONEN(INPUT,OUTPUT);
   2
   3   VAR   K,N: INTEGER;
   4         Z: ARRAY[1..9] OF INTEGER;
   5
   6   PROCEDURE PRINT;
   7     VAR I: INTEGER;
   8     BEGIN
   9         FOR I := 1 TO K DO WRITE(Z[I]:1); WRITE(" ":2)
  10     END;
  11
  12
  13   PROCEDURE KOMBI(N,K: INTEGER);
  14     VAR I: INTEGER;
  15     BEGIN
  16         IF K>0 THEN FOR I:= K TO N DO
  17                             BEGIN  Z[K] := I; KOMBI(I-1,K-1)  END
  18                ELSE PRINT
  19     END;
  20
  21
  22 BEGIN
  23         READ(N,K);
  24         KOMBI(N,K)
  25 END.