Помогите с заданием в Паскале

[Saaashka]

Составьте программу, которая по номеру дня в году выводит число и месяц в об-щепринятой форме (например, 33-й день года — 2 февраля).

[igroman]

Простейший вариант с помощью условий if then else.

if (DenGoda < 31) xor (DenGoda =31) then
Writeln(DenGoda + 'Января')
else if ((DenGoda > 31) and (DenGoda < 61)) xor (DenGoda = 61) then
begin
DenGoda := DenGoda - 31;
Writeln(DenGoda - 31 + 'Февраля');
end
else
и т.д.

[Greblin]

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

const dayinmonth: array[1..12] of integer =
  (31, 28, 31, 30, 31, 30, 31, 31, 30, 31, 30, 31);
      monthname: array[1..12] of string =
  ('yanvarya', 'fevralya', 'marta', 'aprelya',
   'maya', 'iyunya', 'iyulya', 'avgusta',
   'sentyabrya', 'oktyabrya', 'noyabrya', 'dekabrya');

var i: integer;
    number: integer;
    day: integer;
    month: string;

begin
readln(number);
i := 1;
while number > dayinmonth[i] do
  begin
  number := number - dayinmonth[i];
  i := i + 1;
  end;
month := monthname[i];
day := number;
writeln(day,' ',month);
end.

[Serge_Bliznykov]

а если добавить переменную year и после главного begin написать так:

  WriteLn('Ukagite god i nomer dnya');
  Readln(Year, Number);
  if (Year mod 4 = 0)
          and (Year mod 4000 <> 0) and
            ((Year mod 100 <> 0) or (Year mod 400 = 0)) then
     dayinmonth[2] := 29;
...

то и в високосные года будет работать... :-)

[puporev]

and (Year mod 4000 <> 0) and

Это пожалуй много будет, понимаю что опечатка, можно не отвечать.

[Serge_Bliznykov]

Код я взял в TPDate (c) by TurboPower.

И это не опечатка!
http://answers.yahoo.com/question/in...AADjUh5&show=7
http://calendars.wikia.com/wiki/Leap_year

Хотя, безусловно Вы правы, для наших расчётов это можно точно опустить... ;-))))

[puporev]

Вот код по второй Вашей ссылке.

if year mod 400 eq 0 then leap
else if year mod 100 eq 0 then no_leap
else if year mod 4 eq 0 then leap
else no_leap