Презентація на тему:
Задачі на розрахунок дат

Задачі про дати НВК "Школа-гімназія "Сихівська" НВК "Школа-гімназія "Сихівська"

Задача З клавіатури вводиться номер року. Визначити, чи він високосний. номер кратний 4, але не кратний 100, або кратний 100 та кратний 400 1996, 2004, 2012 Так 1600, 2000 Так 1700, 1500, 2100 Ні НВК "Школа-гімназія "Сихівська" r mod 4 = 0 r mod 100 0 r mod 400 = 0 r mod 100 = 0 НВК "Школа-гімназія "Сихівська"

program data; var r,k: integer; begin write('Vvedit rik'); readln(r); if ((r mod 4=0) and (r mod 100 0) or (r mod 400 =0)) then k:=1 else k:=0; if k=1 then writeln(‘Vysokosnyy’) else writeln (‘Ne vysokosnyy’); readln; end. НВК "Школа-гімназія "Сихівська" НВК "Школа-гімназія "Сихівська"

Задача 1 Чи коректна дата, введена з клавіатури? Місяців - 12 Днів у місяці – не більше 31 1,3,5,7,8,10,12 місяці : по 31 дню 4,6,9,11 місяці: по 30 днів 2 місяць: 28 або 29 днів (у високосний рік) K – показник високосності НВК "Школа-гімназія "Сихівська" НВК "Школа-гімназія "Сихівська"

program data; var d,m,r,k: integer; begin write(' Vvedit den '); readln(d); write(' Vvedit misyac '); readln(m); write(' Vvedit rik '); readln(r); if ((r mod 4=0) and (r mod 100 0) or (r mod 400 =0)) then k:=1 else k:=0; if ((m=1) or (m=3) or (m=5) or (m=7) or (m=8) or (m=10) or (m=12)) and (d>31) then writeln ('incorrect'); if ((m=2) and (k=1) and (d>29)) then writeln ('incorrect'); if ((m=2) and (k=0) and (d>28)) then writeln ('incorrect'); if ((m=4) or (m=6) or (m=9) or (m=11)) and (d>30) then writeln ('incorrect'); if m>12 then writeln ('incorrect'); readln; end. НВК "Школа-гімназія "Сихівська" НВК "Школа-гімназія "Сихівська"

Задача 2 Визначити скільки днів пройшло від початку року та скільки днів залишилось до кінця року НВК "Школа-гімназія "Сихівська" НВК "Школа-гімназія "Сихівська"

program data1; var d,m,r,k,n: integer; begin write(' Vvedit den '); readln(d); write(' Vvedit misyac '); readln(m); write(' Vvedit rik '); readln(r); if ((r mod 4=0) and (r mod 100 0) or (r mod 400 =0)) then k:=1 else k:=0; if m=1 then n:=d; if m=2 then n:=31+d; if m=3 then n:=31+28+k+d; if m=4 then n:=31+28+k+31+d; if m=5 then n:=31+28+k+31+30+d; if m=6 then n:=31*3+28+k+30+d; if m=7 then n:=31*3+28+k+30*2+d; if m=8 then n:=31*4+28+k+30*2+d; if m=9 then n:=31*5+28+k+30*2+d; if m=10 then n:=31*5+28+k+30*3+d; if m=11 then n:=31*6+28+k+30*3+d; if m=12 then n:=31*6+28+k+30*4+d; writeln(n, ‘ dniv proyshlo'); k:=365+k-n; writeln (n,' dniv do kincya roku'); readln; end. НВК "Школа-гімназія "Сихівська" НВК "Школа-гімназія "Сихівська"

Задача 3 Визначити наступну дату Звичайний день: День+1 Кінець місяця: День = 1 Місяць+1 Кінець року: День=1 Місяць=1 Рік+1 НВК "Школа-гімназія "Сихівська" НВК "Школа-гімназія "Сихівська"

program data; var d,m,r,k: integer; begin write(' day '); readln(d); write(' month '); readln(m); write(' year '); readln(r); if ((r mod 4=0) and (r mod 100 0) or (r mod 400 =0)) then k:=1 else k:=0; if ((m=1) and (d=31)) then begin m:=m+1; d:=0; end; if ((m=2) and (k=1) and (d=29)) then begin m:=m+1; d:=0; end; if ((m=2) and (k=0) and (d=28)) then begin m:=m+1; d:=0; end; if ((m=3) and (d=31)) then begin m:=m+1; d:=0; end; if ((m=4) and (d=30)) then begin m:=m+1; d:=0; end; if ((m=5) and (d=31)) then begin m:=m+1; d:=0; end; if ((m=6) and (d=30)) then begin m:=m+1; d:=0; end; if ((m=7) and (d=31)) then begin m:=m+1; d:=0; end; if ((m=8) and (d=31)) then begin m:=m+1; d:=0; end; if ((m=9) and (d=30)) then begin m:=m+1; d:=0; end; if ((m=10) and (d=31)) then begin m:=m+1; d:=0; end; if ((m=11) and (d=30)) then begin m:=m+1; d:=0; end; if ((m=12) and (d=31)) then begin m:=1; d:=1; r:=r+1 end else d:=d+1; writeln ('next day is ',d,'.',m,'.',r); readln; end. НВК "Школа-гімназія "Сихівська" НВК "Школа-гімназія "Сихівська"

Задача 4 Скільки днів пройшло між датами (спочатку вводимо ранішу дату, потім пізнішу) Визначити високосність обох років Визначити скільки днів залишилось до кінця року (перша дата) Визначити скільки днів пройшло від початку року (друга дата) У циклі визначити скільки разів по 365 або 366 днів слід додати до кількості днів НВК "Школа-гімназія "Сихівська" НВК "Школа-гімназія "Сихівська"