Реализации алгоритмов/Вечный календарь: различия между версиями

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

правки