Вывод числа месяца (Pacal)

[[Smarik]]

Здравствуйте помогите составить алгоритм работы над программой
"Составить программу которая по номеру дня в году выводит число месяца в общепринятой форме"
Как я понял нужно ввести например 117 день 2005 года программа должна выдить номер месяца этого дня.

[Карась]

Наипростейшая программа.. а у Вас какие мысли?

[Stilet]

нужно ввести например 117 день 2005 года программа должна выдить номер месяца этого дня

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

[[Smarik]]

Я вообще представлял ето с помощью оператора выбора так вроде бы легче, но затруднялся как раз на счет высакосного года, попробую с помощью массивов.

[Stilet]

представлял ето с помощью оператора выбора

Тоже вариант, только не очень мобильный

[[Smarik]]

Задача действительно очень простая...только вопрос как лучше просчитать высокосный год и как его высчитывать вообще?

program kalendar;
uses crt;
var chislo,god,vysok:integer;
begin
clrscr;
writeln('vvedite chislo:');
readln(chislo);
writeln('vvedite god');
readln(god);
if chislo - 31<=0 then writeln('January')
else
begin
if chislo - 59<=0 then writeln('February')
else
begin
if chislo - 90<=0 then writeln('March')
else
begin
if chislo - 120<=0 then writeln('April')
else
begin
if chislo - 151<=0 then writeln('May')
else
begin
if chislo - 181<=0 then writeln('June')
else
begin
if chislo - 212<=0 then writeln('August')
else
begin
if chislo - 243<=0 then writeln('Avgust')
else
begin
if chislo - 273<=0 then writeln('September')
else
begin
if chislo - 304<=0 then writeln('October')
else
begin
if chislo - 334<=0 then writeln('November')
else
begin
if chislo - 365<=0 then writeln('December')
else  writeln('Net takogo mesyaca');
end;
end;
end;
end;
end;
end;
end;
end;
end;
end;
end;
readln;
end.

[Stilet]

И это работает!!??

[[Smarik]]

Естественно =)

[Serge_Bliznykov]

вот код для определения високосный ли год:

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

[[Smarik]]

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

вот код для определения високосный ли год:

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

Высокосный год найти ето одно...как его прнименить в моем коде ведь после февраля все месяцы сдвигаются на 1 день...а для вычисления года ничего придумывать не стоит он вводится с клавиатуры