Задачка: декодер морзе.

[Kemet]

Как-то не понятно с SETами,  каким образом 0 от 00 к примеру собираетесь отличить? Или я совсем не в теме:)

У нас же счетчик битов есть, если загнали 2 тире, то ясно, что 00 это два тире

[Kemet]

Я где-то встречал "Разработки на Глаголе", там очень подробно с примерами показано было как имитировать с помощью СЕТов логические операции, устанавливать/сбрасывать  произвольные биты, учитывая, что Глагол это плохо переведенный Оберон, но там все одинаково

[valexey_u]

Я где-то встречал "Разработки на Глаголе", там очень подробно с примерами показано было как имитировать с помощью СЕТов логические операции, устанавливать/сбрасывать  произвольные биты, учитывая, что Глагол это плохо переведенный Оберон, но там все одинаково

Ну, в принципе можно и на INTEGER'ах сделать. Умножение на 2 и целочисленное деление на 2 никто не отменял.

[Kemet]

вот код из А2 для BitSets, где data = POINTER TO ARRAY OF SET

Код: [Выделить]

  PROCEDURE SetBit* (pos: LONGINT; value: BOOLEAN);
  BEGIN
    ASSERT (pos >= 0); ASSERT (pos < size);
    IF value THEN
      INCL (data[pos DIV Elements], pos MOD Elements);
    ELSE
      EXCL (data[pos DIV Elements], pos MOD Elements);
    END;
  END SetBit;

  PROCEDURE GetBit* (pos: LONGINT): BOOLEAN;
  BEGIN
    ASSERT (pos >= 0); ASSERT (pos < size);
    RETURN pos MOD Elements IN data[pos DIV Elements];
  END GetBit;

  PROCEDURE SetBits* (startPos, bits, value: LONGINT);
  VAR adr: SYSTEM.ADDRESS;
  BEGIN
    ASSERT (startPos >= 0); ASSERT (startPos+bits <= size);
    IF (bits = 8) & (startPos MOD 8 = 0) THEN
      adr := SYSTEM.ADR(data[0])+startPos DIV 8;
      SYSTEM.PUT(adr, CHR(value));
    ELSE
      WHILE bits > 0 DO
        SetBit (startPos, ODD (value)); value := value DIV 2;
        INC(startPos); DEC(bits)
      END;
      WHILE bits < 0 DO
        SetBit (startPos, ODD (value)); value := value DIV 2;
        DEC(startPos); INC(bits)
      END;
    END;
  END SetBits;


[valexey_u]

Я где-то встречал "Разработки на Глаголе", там очень подробно с примерами показано было как имитировать с помощью СЕТов логические операции, устанавливать/сбрасывать  произвольные биты, учитывая, что Глагол это плохо переведенный Оберон, но там все одинаково

Ну, в принципе можно и на INTEGER'ах сделать. Умножение на 2 и целочисленное деление на 2 никто не отменял.

Другое дело что финальный CASE будет смотреться убого. Вместо понятной таблицы (или набора таблиц) со строками вида:

Код: [Выделить]

".-" -> 'A'
"---" -> 'S'
Ну или пусть даже даже

Код: [Выделить]

  {1} : c := 'A'
 |{0,1,2} : c := 'S'
Будет ужоз вида:

Код: [Выделить]

  1H : c:= 'A'
| 7H : c:= 'S'


[Kemet]

Т.е. в Активном Обероне так можно можно, без всяких заморочек

[albobin]

Поясню всё же свои недавние посты  о трансляции кода в букву.

Преобразовывать имеет смысл, если длина кода не выходит за некие рамки. Если ограничится только цифро-буквенными, как в таблице из http://oberspace.dyndns.org/index.php/topic,338.msg9056.html#msg9056, то длина будет не больше 5.

Теперь можно посмотреть на дерево из http://oberspace.dyndns.org/index.php/topic,338.msg9137.html#msg9137

Принятый код из 0(точек)  и 1(тире)  преобразуем в целое  - получим смещение (на соответствующем длине кода горизонтальном уровне)  в дереве.  Вся идея в том, что все буковки из этого дерева выстроить в линию, сначала все с уровня 1, затем все с уровня 2 и т.д до уровня 5. Там, где символ не определён или всякие умляуты поставить некий символ-заменитель, означающий запрещённый код (можно, к примеру маленькую 'x').
Тогда символ соответствующий принятому коду будет на позиции в получившейся строке равной сумме вычисленного целого  и   "смещения до уровня", равного 2 в степени "длина принятого кода" минус 2

А сама строка буде такая:
ETIANMSURWDKGOHVFxLxPJBXCYZQxx54x3xxx2xx+xxxx16=/xxxxx7xxx8x90

[Kemet]

В Обероне INCL тоже работает

[Kemet]

Другое дело что финальный CASE будет смотреться убого. Вместо понятной таблицы (или набора таблиц) со строками вида:

Код: [Выделить]

".-" -> 'A'
"---" -> 'S'
Ну или пусть даже даже

Код: [Выделить]

  {1} : c := 'A'
 |{0,1,2} : c := 'S'
Будет ужоз вида:

Код: [Выделить]

  1H : c:= 'A'
| 7H : c:= 'S'


А зачем, когда можно просто строку на 256 символов с пробелами в пустых местах и по индексу переводи

[valexey_u]

В Обероне INCL тоже работает

Но не так.

Код: [Выделить]

INCL(v, x)       v: SET; x: INTEGER       v:=v + {x}
Also for INCL and EXCL, x must be a constant.

[Kemet]

Хех, ну тогда остается CASE )))
и
SetVal := SetVal + SYSTEM.VAL( SET, longintval )

или +-*/ над множествами тоже не работают?

[valexey_u]

Хех, ну тогда остается CASE )))
и
SetVal := SetVal + SYSTEM.VAL( SET, longintval )

или +-*/ над множествами тоже не работают?

+-*/ там перегружены же для другого:

Код: [Выделить]

symbol result
+ union
- difference
* intersection
/ symmetric set difference


[Илья Ермаков]

А зачем этому автомату память? Разве собственно самого состояния не достаточно?

Допустим, хранить средний уровень сигнала за какой-то интервал назад...

[Kemet]

Да, в Тру-Обероне сложнее...
лучше, видимо, множитель использовать и потом + для Сетов, хотя придется систем тянуть
можно, конечно, и просто множители для интов.

[Kemet]

Хех, ну тогда остается CASE )))
и
SetVal := SetVal + SYSTEM.VAL( SET, longintval )

или +-*/ над множествами тоже не работают?

+-*/ там перегружены же для другого:

Код: [Выделить]

symbol result
+ union
- difference
* intersection
/ symmetric set difference


Ну правильно, + и даст нам объединение двух Сетов, т.е. логическое Или, главное в longintval нужный множитель закатать