бардак :)

:))

> Petr V. Abramov ©   (28.10.08 23:26) [10]
> а если дату конца света подкинуть?

> Германн ©   (29.10.08 01:38) [11]
>  А ты, Петь её знаешь? Скажи.

> Dimka Maslov ©   (29.10.08 13:40) [12]
> Можно достаточно легко посчитать на бумаге, если знать как
> устроен календарь.

Ну вы, блин, даёте! :))) Где записывают в секту?

Навеяло Вовкиным вопросом и развернувшейся в связи с ним полемикой:


> отец спросил у меня


> Подскажите это реально?


Кроха-сын в DM пришел
И спросила кроха:
"Подскажите календарь
При царе Горохе !"

)

> [20] Vlad Oshin ©   (01.11.08 14:41)
> бардак :)

Что делать, если Земля так вращается.

> Что делать, если Земля так вращается.

В православном (юлианском) календаре исключения (бардака) нет. Но их календарь не соответствует божьему устройству мира.

> palva  (01.11.2008 18:42:25)  [25]

А Юлий по твоему кто?

> А Юлий по твоему кто?

Не Юлий, а Юлиан. Это певец такой. Вроде Магомаева.

Старое и не мое. Автора не знаю

Program kalendar;
uses crt;
const
kd:array[1..7] of string=('пн','вт','ср','чт','пт','сб','вс');
month:array[1..12] of string=('январь','февраль','март','апрель','май',
'июнь','июль','август','сентябрь','октябрь','ноябрь','декабрь');
days:array [1..12] of byte=(31,28,31,30,31,30,31,31,30,31,30,31);
var
year:word;
i,j,d,t:byte;
Begin clrscr;writeln('введите год');
read(year);clrscr;
d:=(2+(year-1901)+(year-1901) div 4); d:=d mod 7;
if d=0 then d:=7;
for i:=1 to 3 do
 begin
  for j:=1 to 7 do
   begin
    gotoxy(1,i+j+(i-1)*7);
    write(kd[j])
   end;
 for j:=1 to 4 do
  begin
   gotoxy(wherex+8,wherey-7);
   write(month[j+4*(i-1)]);
   gotoxy(wherex-6-length(month[j+4*(i-1)]),wherey+d);
   if year mod 4=0 then days[2]:=29;
    for t:=1 to days[j+(i-1)*4] do
     begin
{----------}
      if ((wherey-1) mod 8=7) then TextColor(LightRed);
      write(t);
      TextColor(LightGray);
{----------}
      if d+1=8 then begin
                 if (t>=1) and (t<9) then gotoxy(wherex+2,wherey-6)
                                     else gotoxy(wherex+1,wherey-6);
                 d:=1;end
               else begin d:=d+1;
                          if (t>=1) and (t<9)
                           then gotoxy(wherex-1,i+(i-1)*7+d)
                          else gotoxy(wherex-2,i+(i-1)*7+d);
                    end;
    end; gotoxy(wherex+3,i+i*7);
  end
end ; readln;
End.

Хм... А как же увеличение орбиты Земли на метр в год из-за потери Солнцем массы со скростью 4.4млн.т./сек.?
:)))

А ещё прибавляют один час ночью, в последнее воскресение октября!

> if year mod 4=0 then days[2]:=29;


Эхо испугалось и не стало повторять.

> Старое и не мое. Автора не знаю


А..блин все как обычно, а я думал неужели блекмен хоть что-то САМ сделал, пусть и криво.

Странно, что никто не воспользовался поиском по сайту
Здесь тоже есть "вечный календарь"
http://www.delphimaster.ru/cgi-bin/search.pl?words=%E2%E5%F7%ED%FB%E9+%EA%E0%EB%E5%ED%E4%E0%F0%FC&n=0

Копир ©   (02.11.08 00:44) [30]
А ещё прибавляют один час ночью, в последнее воскресение октября!
Прибавляют это хорошо! Но они еще и убавляют иногда, что не радует :)

> Копир ©   (02.11.08 00:44) [30]
>
> А ещё прибавляют один час ночью, в последнее воскресение
> октября!

правда через пол года забирают обратно :)

> правда через пол года забирают обратно

Хорошо еще, что без процентов.

> AndreyV ©   (01.11.08 16:35) [24]
> > [20] Vlad Oshin ©   (01.11.08 14:41)> бардак :)Что делать,
>  если Земля так вращается.

Да, в високосные годы она вращается медленнее...

> Alex Konshin ©   (03.11.08 04:19) [35]
>
>

НиФига!
В високосные годы эллипс орбиты другой!

> Alex Konshin ©   (03.11.08 04:19) [35]
> > AndreyV ©   (01.11.08 16:35) [24]> > [20] Vlad Oshin ©
>   (01.11.08 14:41)> бардак :)Что делать,>  если Земля так
> вращается.Да, в високосные годы она вращается медленнее.
> ..

Ой, я имел в виду быстрее... Или на орбите на день останавливается... Причём именно в конце февраля.

> [37] Alex Konshin ©   (03.11.08 04:52)
> Или на орбите на день останавливается...
> Причём именно в конце февраля.

Дожны же у неё быть выходные, а то как в отпуск уйдёт? Ладно хоть на пенсию не скоро.

> > А ещё прибавляют один час ночью, в последнее воскресение
>
> > октября!
>
> правда через пол года забирают обратно

Вообще-то, сначала начали забирать... Т.ч. в октябре возвращают.