Задача с датами Опции

[Людмила]

Необходимо решить задачу:
Определить k - порядковый номер дня года по дате d, m, y (день, месяц, год).
Пыталась решить сама, считает правильно до 8 месяца, потом выдает ерунду.
вот код программы, может кто подскажет в чем дело...

Код

program god;
uses CRT;
var k: 1..366;
   d: 1..31;
   m: 1..12;
   y: 0..5000;
   yy: 1..100;
   tmp:integer;
begin
   ClrScr;
   TextColor(LightBlue);
   writeln('wwedite god');
   TextColor(LightGray);
   readln(y);
   TextColor(LightBlue);
   writeln('wwedite mesyac');
   TextColor(LightGray);
   readln(m);
   TextColor(LightBlue);
   writeln('wwedite den');
   TextColor(LightGray);
   readln(d);
   yy:=y mod 100;
   tmp:=(m+10) div 13;
   k:=3055*(m+2) div 100-tmp*2-91+
   (1-(yy-yy div 4*4+3) div 4+
   (yy-yy div 100*100+99) div 100-
   (yy-yy div 400*400+399) div 400)*tmp+d;

      TextColor(LightRed);
     writeln('poryadkovyi nomer dnya goda ', k);
     ReadKey;
end.

Сообщение отредактировано: Людмила - 12.02.2005 17:23