1 PROGRAM PERMUTATIONEN(INPUT,OUTPUT);
4 C: ARRAY[1..10] OF INTEGER;
7 FUNCTION FAK(N: INTEGER): INTEGER;
10 ELSE FAK := N*FAK(N-1)
15 PROCEDURE WRITEPERMUTATION;
19 FOR I := 1 TO N DO WRITE( C[I] :3);
21 END (* WRITEPERMUTATION *);
25 PROCEDURE NEXTPERMUTATION;
31 FOR J := 1 TO I-1 DO C[J] := C[J+1];
34 END (* NEXTPERMUTATION *);
39 WRITE("P E R M U T A T I O N E N DER ORDNUNG");
42 FOR I := 1 TO N DO C[I] := I;
44 FOR I := 2 TO FAK(N) DO