DEADSOFTWARE
GIT
/
REPO
/
FRED-BOY
Projects
/
dsw-obn.git
/ blob
summary
|
shortlog
|
log
|
commit
|
commitdiff
|
tree
history
|
raw
|
HEAD
Добавлена возможножность вызова команд
[dsw-obn.git]
/
tests
/
Test7.obn
1
MODULE
Test7
;
2
3
IMPORT
Out
;
4
5
VAR
6
i
:
INTEGER
;
7
ok
:
BOOLEAN
;
8
9
BEGIN
10
Out
.
Open
;
11
i
:=
48
;
12
FOR
i
:=
32
TO
i
DO
13
Out
.
Int
(
i
,
0
);
Out
.
Char
(
' '
);
14
ok
:=
TRUE
;
15
END
;
16
Out
.
Ln
;
17
18
ASSERT
(
ok
);
19
END
Test7
.
20
21
Проверка корректности
FOR
.
22
Сначала должна вычисляться выражение
TO
и только потом присвоение индекса
.
23
Результат должен быть
:
32 33 34 35 36 37 38 39 40 41 42 43 44 45 46 47 48