ru.algorithms

 
 - RU.ALGORITHMS ----------------------------------------------------------------
 From : Igor Zakhrebetkov                    2:5020/400     12 Mar 2003  08:35:22
 To : Sergei Frolov
 Subject : Re: Пасха
 -------------------------------------------------------------------------------- 
 

 Sergei Frolov wrote:
 
 >    Hет ли у кого формулы для вычисления даты начала пасхи? (конкретно -
 > православной)
 
 Тут уже ответили, но вот на всякий случай уточненный алгоритм:
 -----------
 -Newsgroups: fido.ru.algorithms
 -X-Comment-To: Peter Ilnitsky
 -From: Alexander Chentukov <Alexander.Chentukov@p44.f468.n5020.z2.fidonet.org>
 -Date: Sat, 03 Apr 99 14:36:00 +0400
 -Subject: Пасха
 -----------
 Program Pasha;
 var a,b,c,d,e: integer;
   n,p,m: integer;
   mesac: string;
 
 begin
 {
 Пyсть:
 N - номеp года,
 a - остаток от деления N на 4,
 b - остаток от деления N на 7,
 c - остаток от деления N на 19,
 d - остаток от деления 19с+15 на 30,
 е - остаток от деления 2а+4b+6d+6 на 7.
 Тогда 4+d+e апpеля - ПАСХА!!!
 }
   for n := 1900 to 2000 do begin
   a := n mod 4;
   b := n mod 7;
   c := n mod 19;
   d := (19*c+15) mod 30;
   e := (2*a+4*b+6*d+6) mod 7;
      p := 4+d+e;
   if p > 30 then m := 1
   else m := 0;
   p := p - m*30;
   if m = 0 then mesac := ' апреля'
   else mesac := ' мая';
   Writeln('Пасха в ',n, ' году будет ', p, mesac);
   end;
 end.
 --
 Игорь Захребетков
 Отправлено через сервер Форумы@mail.ru - http://talk.mail.ru
 --- ifmail v.2.15dev5
  * Origin: Sweet Home (2:5020/400)
 
 

Вернуться к списку тем, сортированных по: возрастание даты  уменьшение даты  тема  автор 

Тема:    Автор:    Дата:    Пасха   Sergei Frolov   09 Mar 2003 19:02:00   Re: Пасха   Viktor Karev   11 Mar 2003 11:43:33   Re: Пасха   Igor Zakhrebetkov   12 Mar 2003 08:35:22   Пасха   Yuri Gurin   14 Mar 2003 00:43:58