Пасха.отд

▲Главная ◄Глагол ◄Азбука ◄Задачи на Глаголе Примеры приложений ► Среда разработки ► Отладка программ ► Отличия от Оберона ► Отличия от Паскаля ► Ассемблер ARM ► Глагол для ARM ► ? и Ответы ►

Программируем по-русски

Основная задача Глагола — дать человеку возможность воплощать свои мысли на языке, близком к его родному языку.

Издатель Глагола


ОТДЕЛ Пасха+; 
(* НАЗНАЧЕНИЕ: вычисление даты православной Пасхи для заданного года *) 
ИСПОЛЬЗУЕТ 
  Дата,
  Вывод ИЗ "...\Отделы\Обмен\";

ЗАДАЧА ПравославнаяПасха(год:ЦЕЛ); 
ПЕР
 дата:Дата.Вид;
УКАЗ 
  Дата.ИзЧисла(Дата.ПравославнаяПасха(год),дата); 
  Вывод.ЧЦел("Православная Пасха приходится на %02d.%02d.%04dг.",
    дата.день,дата.месяц,дата.год,0); 
КОН ПравославнаяПасха; 

УКАЗ 
  ПравославнаяПасха(2014)
КОН Пасха.

▲ Вопросы, замечания и предложения высылайте на atimopheyev@yahoo.com или Издателю Глагола: