Добавить материал и получить бесплатное свидетельство о публикации в СМИ
Эл. №ФС77-60625 от 20.01.2015
Свидетельство о публикации

Автоматическая выдача свидетельства о публикации в официальном СМИ сразу после добавления материала на сайт - Бесплатно

Добавить свой материал

За каждый опубликованный материал Вы получите бесплатное свидетельство о публикации от проекта «Инфоурок»

(Свидетельство о регистрации СМИ: Эл №ФС77-60625 от 20.01.2015)

Инфоурок / Информатика / Презентации / Презентация по информатике на тему "Календари и календарные задачи"
ВНИМАНИЮ ВСЕХ УЧИТЕЛЕЙ: согласно Федеральному закону № 313-ФЗ все педагоги должны пройти обучение навыкам оказания первой помощи.

Дистанционный курс "Оказание первой помощи детям и взрослым" от проекта "Инфоурок" даёт Вам возможность привести свои знания в соответствие с требованиями закона и получить удостоверение о повышении квалификации установленного образца (180 часов). Начало обучения новой группы: 28 июня.

Подать заявку на курс
  • Информатика

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

библиотека
материалов
Календарь -система счисления больших промежутков времени, основанная на пери...
Каждая мировая религия основывала свой календарь согласно Древнеславянскому...
Счёт года с 1 января был введён в Риме Юлием Цезарем в 45 до н. э. В 325 юли...
Год по юлианскому календарю содержал  365 дней, каждый четвёртый год был вис...
Современный календарь назван григори-анским (новый стиль), введён при папе Г...
Год является високосным, если он кратен 4 и при этом не кратен 100, либо кра...
Григорианский календарь введён при Советской власти с 14 февраля 1918. Разни...
Календари: юлианский григорианский исламский еврейский французской революции,...
Определение даты по числу дней от 01.01.01 Procedure DateN(y:longint; var d:d...
y:=y+dy; year:=year-1; {счет числа месяцев} month:=1; if y>31 then begin rep...
Пятницы 13 Program TaskCalendar2; Uses CRT; Type date=record day,month,year:...
for i:=yb to ye do begin DateN(i,d); {день недели } k:=i mod 7; {если остато...
Пасхалии Program Easter; Uses CRT; Var g,y,i,j,l,month,day:integer; BeginClrS...
14 1

Подайте заявку сейчас на любой интересующий Вас курс переподготовки, чтобы получить диплом со скидкой 50% уже осенью 2017 года.


Выберите специальность, которую Вы хотите получить:

Обучение проходит дистанционно на сайте проекта "Инфоурок".
По итогам обучения слушателям выдаются печатные дипломы установленного образца.

ПЕРЕЙТИ В КАТАЛОГ КУРСОВ

Описание презентации по отдельным слайдам:

№ слайда 1
Описание слайда:

№ слайда 2 Календарь -система счисления больших промежутков времени, основанная на пери
Описание слайда:

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

№ слайда 3 Каждая мировая религия основывала свой календарь согласно Древнеславянскому
Описание слайда:

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

№ слайда 4 Счёт года с 1 января был введён в Риме Юлием Цезарем в 45 до н. э. В 325 юли
Описание слайда:

Счёт года с 1 января был введён в Риме Юлием Цезарем в 45 до н. э. В 325 юлианский календарь был принят Византией. Юлий Цезарь

№ слайда 5 Год по юлианскому календарю содержал  365 дней, каждый четвёртый год был вис
Описание слайда:

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

№ слайда 6 Современный календарь назван григори-анским (новый стиль), введён при папе Г
Описание слайда:

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

№ слайда 7 Год является високосным, если он кратен 4 и при этом не кратен 100, либо кра
Описание слайда:

Год является високосным, если он кратен 4 и при этом не кратен 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;

№ слайда 8 Григорианский календарь введён при Советской власти с 14 февраля 1918. Разни
Описание слайда:

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

№ слайда 9 Календари: юлианский григорианский исламский еврейский французской революции,
Описание слайда:

Календари: юлианский григорианский исламский еврейский французской революции, советский, вьетнамский, древнегреческий, древнеегипетский, древнеиндийский, древнеперсидский, иранский, бахаи, майя, китайский, японский, ханаанейский, шумерский и др.

№ слайда 10 Определение даты по числу дней от 01.01.01 Procedure DateN(y:longint; var d:d
Описание слайда:

Определение даты по числу дней от 01.01.01 Procedure DateN(y:longint; var d:date); Var 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);

№ слайда 11 y:=y+dy; year:=year-1; {счет числа месяцев} month:=1; if y&gt;31 then begin rep
Описание слайда:

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:=y+dy; month:=month-1; if month=0 then month:=12; end; d.day:=y end; End;

№ слайда 12 Пятницы 13 Program TaskCalendar2; Uses CRT; Type date=record day,month,year:
Описание слайда:

Пятницы 13 Program TaskCalendar2; Uses CRT; Type date=record day,month,year:integer; end; dw=array[0..6] of string[3]; Var d:date; yb,ye,i:longint; k:integer; ………………………. Begin ClrScr; with d do begin write('year ='); readln(year); day:=1; month:=1; yb:=NumberOfDays(d); if (LeapYear(year)) then ye:=yb+366 else ye:=yb+365;

№ слайда 13 for i:=yb to ye do begin DateN(i,d); {день недели } k:=i mod 7; {если остато
Описание слайда:

for i:=yb to ye do begin DateN(i,d); {день недели } k:=i mod 7; {если остаток =6, то это Fri} if (k=6) and (day=13) then writeln(13,' ',month,' Fri'); end; end; readln; End.

№ слайда 14 Пасхалии Program Easter; Uses CRT; Var g,y,i,j,l,month,day:integer; BeginClrS
Описание слайда:

Пасхалии Program Easter; Uses CRT; Var g,y,i,j,l,month,day:integer; BeginClrScr; write('Год='); readln(y); g:=y mod 19;i:=(g*19+15) mod 30; j:=(y+y div 4+i) 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.


Подайте заявку сейчас на любой интересующий Вас курс переподготовки, чтобы получить диплом со скидкой 50% уже осенью 2017 года.


Выберите специальность, которую Вы хотите получить:

Обучение проходит дистанционно на сайте проекта "Инфоурок".
По итогам обучения слушателям выдаются печатные дипломы установленного образца.

ПЕРЕЙТИ В КАТАЛОГ КУРСОВ

Автор
Дата добавления 22.07.2016
Раздел Информатика
Подраздел Презентации
Просмотров162
Номер материала ДБ-145760
Получить свидетельство о публикации
Похожие материалы

Включите уведомления прямо сейчас и мы сразу сообщим Вам о важных новостях. Не волнуйтесь, мы будем отправлять только самое главное.
Специальное предложение
Вверх