DEADSOFTWARE
GIT
/
REPO
/
FRED-BOY
Projects
/
dsw-obn.git
/ blob
summary
|
shortlog
|
log
|
commit
|
commitdiff
|
tree
history
|
raw
|
HEAD
Добавлен NIL и автоматическое разыменование указателей
[dsw-obn.git]
/
test
/
Test.Mod
1
MODULE Test;
2
3
IMPORT Out;
4
5
TYPE
6
MyArr = ARRAY 3 OF POINTER TO ARRAY 6 OF INTEGER;
7
8
VAR
9
a : MyArr;
10
11
BEGIN
12
Out.Open;
13
14
NEW(a[0]);
15
a[0][0] := 1;
16
Out.Int(a[0][0], 0);
17
18
Out.Ln;
19
Out.Flush;
20
END Test.