projects
/
pdp8.git
/ blob
commit
grep
author
committer
pickaxe
?
search:
re
5f083ce723225bf159aad161ebe75713c6ed1a23
[pdp8.git]
/
ZAHLWO.PS
1
PROGRAM ZAHLWOERTER(INPUT,OUTPUT);
2
3
VAR N: INTEGER;
4
5
PROCEDURE EINER(E: INTEGER);
6
BEGIN CASE E OF
7
1: WRITE("EIN");
8
2: WRITE("ZWEI");
9
3: WRITE("DREI");
10
4: WRITE("VIER");
11
5: WRITE("FUENF");
12
6: WRITE("SECHS");
13
7: WRITE("SIEBEN");
14
8: WRITE("ACHT");
15
9: WRITE("NEUN");
16
10: WRITE("ZEHN");
17
11: WRITE("ELF");
18
12: WRITE("ZWOELF");
19
END
20
END (* EINER *);
21
22
PROCEDURE ZEHNER(Z: INTEGER);
23
BEGIN CASE Z OF
24
1: WRITE("ZEHN");
25
2: WRITE("ZWANZIG");
26
3: WRITE("DREISSIG");
27
4: WRITE("VIERZIG");
28
5: WRITE("FUENFZIG");
29
6: WRITE("SECHZIG");
30
7: WRITE("SIEBZIG");
31
8: WRITE("ACHTZIG");
32
9: WRITE("NEUNZIG")
33
END
34
END (* ZEHNER *);
35
36
37
BEGIN READLN;
38
WHILE NOT EOF DO
39
BEGIN
40
READ(N); WRITE("ZAHL:",N:5," WORT: ");
41
IF N=1
42
THEN WRITE("EINS")
43
ELSE IF N<=12
44
THEN EINER(N)
45
ELSE IF N<=19
46
THEN BEGIN EINER(N-10);WRITE("ZEHN") END
47
ELSE IF N MOD 10 = 0
48
THEN ZEHNER(N DIV 10)
49
ELSE BEGIN EINER(N MOD 10);
50
WRITE("UND");
51
ZEHNER(N DIV 10)
52
END;
53
WRITELN
54
END
55
END.