Онлайн компилятор Oberon-07/11
Путеводитель по Оберон-проектам.
Логи jabber-конференции.
Онлайн исходники BlackBox: тут:WeBB и на github
Исходники Project Oberon V4 на github.
Сборник решений задач книги "Современное программирование с нуля!" тут. А обсуждение здесь.
Просмотр сообщений
В этом разделе можно просмотреть все сообщения, сделанные этим пользователем.
Имеете в виду, что в магазине продали "из старых запасов"?А вариант с использованием железок типа из http://www.digi.com/products/serialservers/ не рассматривали?
Ребята, вроде, брали не по принципу "хоть что-нибудь с COM", а что-то из актуального ряда материнок. Брали в ритейлере, который "под Nix-ом".
Зуев все же компилятор Оберона писать не пробовал :-)https://sites.google.com/site/zouev54/tekusie-proekty/oberon-for-net
PROCEDURE isReservedWorld(s: JsString.Type; words: JsString.Type): BOOLEAN;
VAR
i, w, с: INTEGER;
BEGIN
i := 0 ;
w := 0 ;
с := 0;
WHILE (w < JsString.len(words))
& ((с < JsString.len(s)) OR (i # JsString.len(s)) OR (JsString.at(words, w) # " ")) DO
IF (i < JsString.len(s)) & (JsString.at(words, w) = JsString.at(s, i)) THEN
INC(i);
INC(c);
ELSIF (JsString.at(words, w) # " ") THEN
INC(i);
ELSE
i := 0;
c := 0;
END;
INC(w);
END;
RETURN (w < JsString.len(words))
END isReservedWorld;
WHILE (w < JsString.len(words))
& (с < JsString.len(s)) DO
В этом случае будет выходить по первому совпадению проверяемого слова s с началом некоторого слова из words. RETURN ((w < JsString.len(words)) & (JsString.at(words, w) = " "))
... OR (JsString.at(words, w) # " ")) DOа... OR (JsString.at(words, w0) # " ")) DO
PROCEDURE isReservedWorld(s: JsString.Type; words: JsString.Type): BOOLEAN;
VAR
i, w, w0: INTEGER;
BEGIN
i := 0 ;
w := 0 ;
w0:= 0 ;
WHILE (w < JsString.len(words))
& ((i < JsString.len(s)) OR (JsString.at(words, w) # " ")) DO
IF (i < JsString.len(s)) & (JsString.at(words, w0) = JsString.at(s, i)) THEN
INC(w); w0 := w;
INC(i);
ELSIF (JsString.at(words, w) # " ") THEN
INC(w);
ELSE
INC(w); w0 := w;
i := 0;
END;
END;
RETURN (w < JsString.len(words))
END isReservedWorld;