sw/src/pascal/PART.PS

   1 PROGRAM PARTITIONEN(INPUT,OUTPUT);
   2
   3   VAR I,K,X: INTEGER;
   4       Z: ARRAY[1..9] OF CHAR;
   5
   6   PROCEDURE P(N:INTEGER);
   7      BEGIN IF N>1 THEN
   8        BEGIN K:=K+1;
   9        Z[K]:="."; P(N-1);
  10        Z[K]:="-"; P(N-2);
  11        K:=K-1
  12        END ELSE
  13        BEGIN WRITE(" ");
  14        FOR I:=1 TO K DO WRITE(Z[I]);
  15        IF N=1 THEN WRITE(".");
  16        WRITELN
  17        END
  18      END;
  19 BEGIN K:=0; WRITE("LAENGE"); READ(X); P(X) END.