Онлайн компилятор Oberon-07/11
Путеводитель по Оберон-проектам.
Логи jabber-конференции.
Онлайн исходники BlackBox: тут:WeBB и на github
Исходники Project Oberon V4 на github.
Сборник решений задач книги "Современное программирование с нуля!" тут. А обсуждение здесь.
Просмотр сообщений
В этом разделе можно просмотреть все сообщения, сделанные этим пользователем.
Ну а почему здесь должен быть HALT?А вот компилятор Astrobe считает что должен быть HALT
Ведь раз CASE OF просто синтаксических сахар для IF-ELSIF, то этот код эквивалентен такому:Код: [Выделить]x := 42;Тут же всё в порядке, ветка ELSE не является обязательной...
IF x = 1 THEN ret := int
ELSIF x = 2 THEN ret := real
ELSIF x = 3 THEN ret := char
END
Причем неоткрытый массив прописать нельзя. Соответственно вот такой код невалиден:Код: [Выделить]PROCEDURE p(a: ARRAY 3 OF INTEGER); (* валидно в ББ *)
Код: [Выделить]PROCEDURE p(a: ARRAY OF ARRAY OF INTEGER); (* невалидно в ББ *)
С точки зрения компилятора тут присутствует дополнительное усложнение в вычислении нужного смещения в памяти (если массив реализован через кусок памяти). Поэтому, видимо, оно и запрещено в ББ. Тем не менее Вирт решил это разрешить...
CONST
Create = VectorInt.Create;
Len = VectorInt.Len;
PushBack = VectorInt.PushBack;
PopBack = VectorInt.PopBack;
Get = VectorInt.Get;
Make3 = VectorInt.Make3;
Make2 = VectorInt.Make2;
MODULE Foo;
IMPORT Out;
ALIAS
outs = Out.String;
...
CONST
...
TYPE
...
VAR
...
BEGIN
...
END Foo.
MODULE M;
TYPE
R* = RECORD foo*, foo2 : INTEGER END;
P* = POINTER TO R;
END M.
DEFINITION M;
TYPE
R = RECORD foo : INTEGER END;
P = POINTER TO R;
END M.
Гм. А как на счет вот такого примера:Код: [Выделить]MODULE M;
TYPE
R = RECORD foo* : INTEGER END;
P* = POINTER TO R;
END M.
Итак, на входе массив массивов и разделитель.ARRAY OF ARRAY OF INTEGER это не массив массивов, а двумерный массив. В оберонах массив массивов это
Даёшь дженерики! Даёшь инициализацию массивов!! Даёшь динамические массивы!!! )))С динамическими массивами все понятно, а про дженерики много разговоров, но пока я не видел описание синтаксиса и семантики дженериков для оберона. Возможно, следует обсудить синтаксис и семантику дженериков (я в этом вопросе слабо разбираюсь).
Скажите, а европейцы знают о том, что Вы причисляете себя к ним? о_О
Для европейцев все русские -- азиаты...
Если что, белая раса по современной терминологии называется Caucasian race - кавказцы короче :-) Туда входят и гм.. славяне, и евреи, и натуральные грузины, и германцы и так далее.Это называется не белая раса, а "большая европейская"
Я понимаю под славянами все народы с белым цветом кожи. Проще говоря, белую расу.
Я исхожу из того, что славяне - очень древний и духовный, светлый народ.
MODULE test;
IMPORT JS;
VAR x: INTEGER;
BEGIN
x := 10;
IF x >= 0 THEN
JS.alert("TRUE")
ELSE
JS.alert("FALSE")
END
END test.
IF x >= 0 THEN
if (RTL$.setInclR(x, 0))
MODULE test;
IMPORT JS;
VAR s1, s2: SET;
BEGIN
s1 := {0..5};
s2 := {0..8};
IF s1 <= s2 THEN
JS.alert("TRUE")
ELSE
JS.alert("FALSE")
END
END test.
Программа пишет "FALSE" (должно быть "TRUE")