Главная

Определить количество дней в году

ср, 11/20/2013 - 13:40 — tech
Задача: 

Определить количество дней в году, который вводит пользователь.

В високосном годе - 366 дней, тогда как в обычном 365. Високосными годами являются все года делящиеся нацело на 4 за исключением столетий, которые не делятся нацело на 400.

Алгоритм решения задачи: 
  • Проверям делится ли год на 4. Если нет, то год уже невисокосный.
  • Если год делится на 4, то проверям делится ли он на 100. Если нет, то год однозначно високосный.
  • Если год делится на 100, но при этом не делится на 400, то год невисокосный.
Программа на языке Паскаль:  

var
    year: word;
 
begin
    write('Input year: '); readln(year);
 
    if year mod 4 = 0 then
                if (year mod 100 = 0) and (year mod 400  0) then
                        year := 365
                else
                        year := 366
        else
                year := 365;
 
        writeln('The number of days in the year: ', year);
end.

Примеры выполнения программы:

Input year: 2012
The number of days in the year: 366

Input year: 1913
The number of days in the year: 365

  • Добавить комментарий