Commit | Line | Data |
---|---|---|
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. |