Презентация, доклад по информатике на тему Календари и календарные задачи

движения небесных тел:
Солнца — в солнечных календарях
Луны — в лунных календарях
Солнца и Луны в лунно-солнечных календарях.
Звезд, например, в древнеегипетском календареЗвезд, например, в древнеегипетском календаре год — это промежуток времени между двумя последовательными гелиактическими восходамиЗвезд, например, в древнеегипетском календаре год — это промежуток времени между двумя последовательными гелиактическими восходами Сириуса.

сейчас идёт 7518 год от Сотворения Мира
в исламе 1430 год Хиджры
по буддийскому календарю сейчас 2549 год эры Нирвана
по календарю бахаи — 163 год
по еврейскому календарю сейчас 5769 год.

Юлием Цезарем Юлием Цезарем в 45 до н. э.

В 325 юлианский календарь был принят
Византией.

Юлий Цезарь

год был високосным.
В такие годы в февраль добавлялся дополнительный день.
Средняя продолжительность юлианского года составляла 365 дней и 6 часов. Это близко к продолжительности года астрономического (365 дней, 5 часов, 48 минут, 46,1 секунд), но всё же на 11 минут отличается от него.

(новый стиль), введён при папе Григории XIII 4 октября Современный календарь назван григори-анским (новый стиль), введён при папе Григории XIII 4 октября 1582 и заменил юлианский (старый стиль). В нем было изменено правило високосных лет.

Папа Григорий XIII

По-прежнему високосным оставался год,
номер которого кратен четырём, но
исключение делалось для тех лет, которые
были кратны 100. Отныне такие годы
были високосными только
тогда, когда делились ещё и на 400.

этом не кратен 100, либо кратен 400. Год не является високосным, если он не кратен 4, либо кратен 4, но при этом кратен 100 и не кратен 400.

Function LeapYear(y:integer):boolean;
Begin
if y mod 100 =0 then
if y mod 400=0 then LeapYear:=true
else LeapYear:=false
else
if y mod 4 =0 then LeapYear:=true
else LeapYear:=false
End;

Советской власти с 14 февраля 1918. Разница между старым и новым стилями составляла
в XVIII веке 11 суток,
в XIX веке — 12 суток,
в XX в XX- XXI веках — 13 суток.
В XXII веке — 14 суток,
поскольку в юлианском календаре 2100 год будет считаться високосным, а в григориан-ском — невисокосным, что увеличит разницу между календарями ещё на один день.

dy:integer;
Begin
with d do begin
year:=1; {счет числа лет}
repeat
if (LeapYear(year)) then dy:=366 else dy:=365;
y:=y-dy; year:=year+1 until (y<=0); {корректировка числа лет}
y:=y+dy; year:=year-1; {счет числа месяцев}
month:=1;
if y>31 then begin
repeat if (LeapYear(year)) and (month=2) then dy:=29 else dy:=dmm[month];
y:=y-dy; month:=month+1;
if month>12 then month:=1;
until (y<=0);

y>31 then begin
repeat
if (LeapYear(year)) and (month=2) then dy:=29
else dy:=dmm[month];
y:=y-dy; month:=month+1;
if month>12 then month:=1;
until (y<=0); {корректировка числа месяцев}
y:=y+dy; month:=month-1; if month=0 then month:=12;
end;
d.day:=y
end;
End;

mod 7;
l:=i-j; month:=3+(l+40) div 44; day:=l+28-31*(month div 4);
day:=day+13;
if day>31 then begin day:=day-31; month:=month+1;
end;
writeln('Пасха ',day,' ',month);writeln('----------------------------------');
Readln
End.