📄 funparav.cod
字号:
=== COMPILE PL0 ===
0 PROGRAM SDF;
0 VAR
1 X,Y,Z,H:INTEGER;
1 FUNCTION MC(VAR A,L:INTEGER):INTEGER;
1 VAR M,C:INTEGER;
2 BEGIN
3 M:=1;
5 C:=2;
7 A:=M+C;
12 L:=A*3+L;
21 END;
1 JMP 0 2
2 INI 0 7
3 LIT 0 1
4 STO 0 5
5 LIT 0 2
6 STO 0 6
7 LOD 0 3
8 LOD 0 5
9 LOD 0 6
10 OPR 0 2
11STOVAR 1 3
12 LOD 0 4
13 LOD 0 3
14LODVAR 1 3
15 LIT 0 3
16 OPR 0 4
17 LOD 0 4
18LODVAR 1 4
19 OPR 0 2
20STOVAR 1 4
21 OPR 0 0
22 FUNCTION KFC(VAR B,G:INTEGER):INTEGER;
22 VAR K,F,C:INTEGER;
23 BEGIN
24 K:=5;
26 F:=6;
28 C:=4;
30 B:=K+F+C;
37 G:=G+B*3;
46 END;
22 JMP 0 23
23 INI 0 8
24 LIT 0 5
25 STO 0 5
26 LIT 0 6
27 STO 0 6
28 LIT 0 4
29 STO 0 7
30 LOD 0 3
31 LOD 0 5
32 LOD 0 6
33 OPR 0 2
34 LOD 0 7
35 OPR 0 2
36STOVAR 1 3
37 LOD 0 4
38 LOD 0 4
39LODVAR 1 4
40 LOD 0 3
41LODVAR 1 3
42 LIT 0 3
43 OPR 0 4
44 OPR 0 2
45STOVAR 1 4
46 OPR 0 0
47 BEGIN
48 Z:=4;
50 H:=8;
52 MC(X,Z);
57 KFC(Y,H);
62 WRITE(X*Y,Z+H);
70 END.
0 JMP 0 47
1 JMP 0 2
2 INI 0 7
3 LIT 0 1
4 STO 0 5
5 LIT 0 2
6 STO 0 6
7 LOD 0 3
8 LOD 0 5
9 LOD 0 6
10 OPR 0 2
11STOVAR 1 3
12 LOD 0 4
13 LOD 0 3
14LODVAR 1 3
15 LIT 0 3
16 OPR 0 4
17 LOD 0 4
18LODVAR 1 4
19 OPR 0 2
20STOVAR 1 4
21 OPR 0 0
22 JMP 0 23
23 INI 0 8
24 LIT 0 5
25 STO 0 5
26 LIT 0 6
27 STO 0 6
28 LIT 0 4
29 STO 0 7
30 LOD 0 3
31 LOD 0 5
32 LOD 0 6
33 OPR 0 2
34 LOD 0 7
35 OPR 0 2
36STOVAR 1 3
37 LOD 0 4
38 LOD 0 4
39LODVAR 1 4
40 LOD 0 3
41LODVAR 1 3
42 LIT 0 3
43 OPR 0 4
44 OPR 0 2
45STOVAR 1 4
46 OPR 0 0
47 INI 0 9
48 LIT 0 4
49 STO 0 5
50 LIT 0 8
51 STO 0 6
52 LIT 0 3
53STOPAR 0 3
54 LIT 0 5
55STOPAR 0 4
56 CAL 0 1
57 LIT 0 4
58STOPAR 0 3
59 LIT 0 6
60STOPAR 0 4
61 CAL 0 22
62 LOD 0 3
63 LOD 0 4
64 OPR 0 4
65 OPR 0 14
66 LOD 0 5
67 LOD 0 6
68 OPR 0 2
69 OPR 0 14
70 OPR 0 0
~~~ RUN PL0 ~~~
45.000000
66.000000
~~~ END PL0 ~~~
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -