Реализации алгоритмов/Вечный календарь: различия между версиями
Содержимое удалено Содержимое добавлено
→Rust: Идиоматически верная реализация |
Добавлена реализация на ГЛАГОЛе; мелкие правки в других разделах |
||
Строка 323:
echo %ДеньНедели%
</source>
==[[w:Глагол (язык программирования)|Глагол]]==
<source>
ЗАДАЧА ДеньНедели (год, месяц, день: УЗКЦЕЛ): УЗКЦЕЛ;
УКАЗ
ВЫБРАТЬ месяц ИЗ
1, 2: (* январь или февраль *)
год := год - 1;
месяц := месяц + 10
ИНАЧЕ
месяц := месяц - 2
КОН;
ВОЗВРАТ (день + 31 * месяц ДЕЛИТЬ 12 + год + год ДЕЛИТЬ 4 - год ДЕЛИТЬ 100 + год ДЕЛИТЬ 400) ОСТАТОК 7
КОН ДеньНедели;
</source>
==Программируемые микрокалькуляторы «Электроника»==
===МК-
В вычислениях участвуют только регистры стека.
<source>
Строка 336 ⟶ 351 :
50. − 51. С/П
</source>
'''Использование:''' <год> → регистр Z, <месяц> → регистр Y, <число> → регистр X, В/О, С/П (номер дня недели на индикаторе).
==Ссылки==
|