Pascal-Формирование сл дня.

[ОДИНОЧЕСТВО В СЕТИ]

2 russian stalker
а 2000 не кратно 400 случайно ?

Високосным считается каждый кратный 4 год

а вот с этим согласна

[anGeee]

Бред, разве 2000 год не високосный? 
Високосным считается каждый кратный 4 год

Как это у вас так получилось, что он не високосный ?
На самых первых лекциях мне это именно так объясняли, как я и написал + интернет это только подтверждает ^^

[russian-stalker]

Хм, всегда думал что каждый 4 год независимо делится он 100 или на 400 - високосный. Ну в общем автор темы темы допишет сам это

[Айдар]

Все работает кроме 1, при вводе год 2009 месяц 2 день 28 выводит 29 день вместо 1 марта.

[anGeee]

Все работает кроме 1, при вводе год 2009 месяц 2 день 28 выводит 29 день вместо 1 марта.

Ну, видимо, в этом участке кода

if day>month[m] then
begin
  day:=1;
  inc(m);
end;

условие надо заменить на

if day>=month[m] then

[Serge_Bliznykov]

условие надо заменить на
Код:
if day>=month[m] then

ДА НИ В КОЕМ РАЗЕ!!!

ошибка у russian-stalker была вот здесь:

If (year mod 4 = 0) then
  month[2]:=29 
else
  month[2]:=28;

в високосном году в феврале 29 дней!

p.s.

Сообщение от russian-stalker

Хм, всегда думал что каждый 4 год независимо делится он 100 или на 400 - високосный.

Это не так. Вы ошибались. Хотя, с другой стороны, для практических целей об этом можно и не думать. Т.к. ближайшие года, где правило делимости на четыре не делало год високосным - это 1900 год и 2100 год. Согласитесь, что нам с вами не обязательно учитывать, что 2100 год будет не високосным )
p.p.s встроенный в Винду календарь, например, не даст Вам выставить не тот, ни другой год!

[Айдар]

Такой вопрос влияют ли тут, булевские переменные или их можно просто удалить?

[Serge_Bliznykov]

Айдар, булевские переменные здесь служать только одной цели - проверить, чтобы пользователь ввёл корректное значение даты. попробуйте, например, задать для даты 33 или 45 число. программа будет выдать сообщение об ошибке и в цикле заставлять Вас вводить повторно, пока не будет введено корректное значение.
Если Вам это не нужно - то можно смело выбрасывать и булевские переменные и циклы при вводе данных!