Даны числа A,B,C обозначающие дату.Найти номер этого дня от начала года.

[naty7773]

Я не могу точно понять как это делать.Заранее большое спасибо!

[Mandrivnyk]

На самом деле, ничего сложного.
Массив из 12 элементов -- количество дней в месяцах.
Проверка на високосность года.
Суммирование.
Все.

[Serge_Bliznykov]

неясно, на каком языке программирования.

вот решение на Паскаль, разбирайтесь:

const
   DaysInMonth: array[1..12] of Byte =
     (31, 28, 31, 30, 31, 30, 31, 31, 30, 31, 30, 31);

var
  a,b,c : integer;
  i, kDays  : integer;

begin
  WriteLn;
  Write('VVedite datu v vide treh chisel (den` mesac god):');
  Readln(a,b,c);

  {проверка корректности введённой даты!}
  if (c<1700) or (c>3000) then
  begin
    WriteLn('Tokoy god nedopustim!');
    Halt(101)
  end;
  if (b<1) or (b>12) then
  begin
    WriteLn('Net takih mesacev v nashem kalendare!');
    Halt(102)
  end;
  if (a<1) or (a>(DaysInMonth[b] + ord((b=2) and (c mod 4 = 0)))) then
  begin
    WriteLn('Net stolko dney v mesace!');
    Halt(103)
  end;


  kDays := 0;


  for i:=1 to b-1 do
  begin
      Inc(kDays, DaysInMonth[i]);
      {поправка на високосный год} 
      if (i=2) and (c mod 4 = 0) then  Inc(kDays); 
  end;

  Inc(kDays, a);

  WriteLn('Количество дней с 1.01.',c,' равно ', kDays);

  Readln;

end.

[Mandrivnyk]

  for i:=1 to b-1 do
  begin
      Inc(kDays, DaysInMonth[i]);
      {поправка на високосный год} 
      if (i=2) and (c mod 4 = 0) then  Inc(kDays); 
  end;

Прошу прощения, проверка не совсем корректна -)

if (i=2) and (((c mod 4 = 0) and (c mod 100 <> 0)) or (c mod 400 = 0))

вот корректное условие (подчеркнутая часть -- собственно проверка на високосность -- год является високосным, если он кратен 4 и при этом не кратен 100, либо кратен 400)

[Serge_Bliznykov]

Mandrivnyk, вы правы.
если уж быть СОВСЕМ точными, то нужно ещё учесть 4000 цикл:

вот полный текст проверки (выдернул из Turbo Power (Turbo Professional /
Object Professional )

  {*                    OPDATE.PAS 1.21                    *}
  {*     Copyright (c) TurboPower Software 1988, 1992.     *}

  function IsLeapYear(Year : Integer) : Boolean;
    {-Return True if Year is a leap year}
  begin
    IsLeapYear := (Year mod 4 = 0) and (Year mod 4000 <> 0) and
      ((Year mod 100 <> 0) or (Year mod 400 = 0));
  end;

но упрощенная проверка (которую я использовал) для XX и XXI веков вполне допустима (в настоящий период с 1901 года по 2099 все високосные года - номер года банально кратен 4-м):

1600  Високосный
1700  не високосный
1800  не високосный
1900  не високосный
2000  Високосный
2100  не високосный
2200  не високосный
2300  не високосный
2400  Високосный
2500  не високосный
2600  не високосный

[Mandrivnyk]

Сообщение от Serge_Bliznykov

Mandrivnyk, вы правы.
если уж быть СОВСЕМ точными, то нужно ещё учесть 4000 цикл:

вот полный текст проверки (выдернул из Turbo Power (Turbo Professional /
Object Professional )


но упрощенная проверка (которую я использовал) для XX и XXI веков вполне допустима (в настоящий период с 1901 года по 2099 все високосные года - номер года банально кратен 4-м):

Убедил! -))