projects
/
pdp8.git
/ blob
commit
grep
author
committer
pickaxe
?
search:
re
46a35173a8187d31c4419c79faec6ded8db611a7
[pdp8.git]
/
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.