Определить название месяца этого дня.

[darkkhan]

С начала 2000 года по некоторый день прошло n месяцев и m дней. Определить название месяца этого дня.

Помогите ребята плиз? завтра сдать нада.....я чайник в этом деле

[_Engine_]

В году 12 месяцев, определить номер месяца, название которого вам необходимо вывести - элементарно, к тому же, насколько я понимаю, число дней можно проигнорировать, есло оно меньше 31 в любом месяце, если его номер не равен 2 и меньше 29 если равен 2. Как-то так.

[darkkhan]

да как то так но записать мне не судьба как будто

[darkkhan]

кстати число дней проигнорить нельзя

[_Engine_]

Пиши, что у тебя получается. Посмотрим

[darkkhan]

слушай броу, конечно не твоё дело, но если сможешь, напиши пожалуйста эту задачу, я сестре делаю......у неё 10задач блин не выгребу.....заранее спасибо

[Serge_Bliznykov]

и что, готовое решение поможет?
ой сомневаюсь..

ладно, попробуем:

const
  MonthName : array[1..12] of string[8] =
('Январь','Февраль','Март','Апрель','Май','Июнь','Июль',
'Август','Сентябрь','Октябрь','Ноябрь','Декабрь');  

{*                    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;


  function DaysInMonth(Month, Year : Integer) : Integer;
    {-Return the number of days in the specified month of a given year}
  begin
    case Month of
      1, 3, 5, 7, 8, 10, 12 :
        DaysInMonth := 31;
      4, 6, 9, 11 :
        DaysInMonth := 30;
      2 :
        DaysInMonth := 28+Ord(IsLeapYear(Year));
    else
      DaysInMonth := 0;
    end;
  end;
  
var
  n, m, NomMonth, Year, NomDay, TempNomDay, CurMonth : integer;

begin
  WriteLn('Ввведите количество месяцев N и количество дней M: ');
  Readln(n, m);

  if (n<0) or (m<0) then begin
    WriteLn('Должны быть целые положительные числа!');
    Halt(1);
  end;

  Year := 2000 + (n div 12);
  NomMonth := n mod 12 + 1;

  while (m>0) and (m>DaysInMonth(NomMonth, Year)) do
  begin
    m := m - DaysInMonth(NomMonth, Year);
    inc(NomMonth);
    if NomMonth>12 then begin
      NomMonth := 1;
      inc(Year);
    end;
  end;

  WriteLn('Название месяца будет : '+MonthName[NomMonth],
      '  кстати, год будет : ',Year:1);
  Readln;
  
end.

NB. количество месяцев прибавляется, а потом прибавляются дни.
например, 1 месяц 1 день - это будет Февраль.
а 0 месяцев 31 день - это Январь.
а 12 месяцев 1 день - это будет 1 января 2001 года.



ДОБАВЛЕНО
А если бы я раньше увидел эту тему
и понял, что Вы вместо того, чтобы учиться, искать похожие примеры и что-то сделать самостоятельно,
лишь кросспостингом пытаетесь форумчан вынудить решиь Вам эту задачу,
не стал бы пример решения писать...