DEADSOFTWARE
GIT
/
REPO
/
FRED-BOY
Projects
/
dsw-obn.git
/ blob
summary
|
shortlog
|
log
|
commit
|
commitdiff
|
tree
history
|
raw
|
HEAD
Слегка перепилена реализация модуля Files
[dsw-obn.git]
/
Test8.obn
1
MODULE
Test8
;
2
3
VAR
4
s
:
SHORTINT
;
5
i
:
INTEGER
;
6
j
:
LONGINT
;
7
f
:
REAL
;
8
d
:
LONGREAL
;
9
10
BEGIN
11
s
:=
127
;
12
s
:=
s
;
13
i
:=
s
;
14
i
:=
i
;
15
j
:=
i
;
16
j
:=
j
;
17
f
:=
j
;
18
f
:=
f
;
19
d
:=
f
;
20
d
:=
d
;
21
END
Test8
.
22
23
Проверка поглощения типов
.
24
LONGREAL
>=
REAL
>=
LONGINT
>=
INTEGER
>=
SHORTINT