GIT
/
REPO
/
FRED-BOY
Projects
/
dsw-obn.git
/ blobdiff
summary
|
shortlog
|
log
|
commit
|
commitdiff
|
tree
raw
| inline |
side by side
Запрещён возврат массива или записи функцией
[dsw-obn.git]
/
Test.obn
diff --git
a/Test.obn
b/Test.obn
index 4f539100d6439b048d2ea9800b769c3be98a24a2..f0552a93a06abbaed7841faf482aae3f99251f7f 100644
(file)
--- a/
Test.obn
+++ b/
Test.obn
@@
-3,12
+3,13
@@
MODULE Test;
IMPORT Out;
VAR
- f : BOOLEAN;
- r, e : POINTER TO RECORD END;
+ i : INTEGER;
BEGIN
- f := r = e;
- IF f THEN
- Out.String('Yes'); Out.Ln;
+ Out.Open;
+ i := 48;
+ FOR i := 32 TO i DO
+ Out.Int(i, 0); Out.Char(' ');
END;
+ Out.Ln;
END Test.
DEADSOFTWARE 2012-2025