Автор Макс Брейлян задал вопрос в разделе Другие языки и технологии
блин, пожалуйста помогите, надо очень срочно. Как в паскале по номеру месяца вывести количество дней месяца? и получил лучший ответ
Ответ от Михаил Калюжный[активный]
Case - оператор, забиваешь условие <номер месяца>: <кол-во дней месяца>. у меня где-то была эта программа, найду - скину в ЛЧ.
Ответ от Андрей Борисов[гуру]
case NomMonth of
1: CountDay:=31;
2: CountDay:=28;
...
12: CountDay:=31;
end;
Writeln(Day);
case NomMonth of
1: CountDay:=31;
2: CountDay:=28;
...
12: CountDay:=31;
end;
Writeln(Day);
Ответ от Бугаев Сергей Дмитриевич[гуру]
Без указания года невозможно выяснить, является ли он високосным, поэтому неизвестно количество дней в феврале данного года. Вот функция, не учитывающая високосность года:
function getMonthDaysCount(MonthNumber: integer): integer;
begin
if ((MonthNumber <= 7) and (MonthNumber mod 2 = 1)) or ((MonthNumber >= 8) and (MonthNumber mod 2 = 0) then
getMonthDaysCount := 31
else
getMonthDaysCount := 30;
if (MonthNumber = 2) then getMonthDaysCount := 28;
end;
Без указания года невозможно выяснить, является ли он високосным, поэтому неизвестно количество дней в феврале данного года. Вот функция, не учитывающая високосность года:
function getMonthDaysCount(MonthNumber: integer): integer;
begin
if ((MonthNumber <= 7) and (MonthNumber mod 2 = 1)) or ((MonthNumber >= 8) and (MonthNumber mod 2 = 0) then
getMonthDaysCount := 31
else
getMonthDaysCount := 30;
if (MonthNumber = 2) then getMonthDaysCount := 28;
end;
Ответ от Нихто =)[новичек]
Сейчас понятие "Паскаль" несколько размытое, поэтому напишу "несколько ответов в одном".
Для Паскаль типа Tubo Pascal 7.0 один из вариантов (взято с ) :
...
const DaysInMonth : array[1..12] of integer = (31,28,31,30,31,30,31,31,30,31,30,31);
...
var
Month, Day: Integer;
begin
Day := DaysInMonth[Month];
...
Для FreePascal или Delphi есть функция DaysInMonth (см. или ):
FreePascal - function DaysInMonth(const AValue: TDateTime): Word;
Delphi - function DaysInMonth (Year: Integer; Month: Integer): Integer;
Сейчас понятие "Паскаль" несколько размытое, поэтому напишу "несколько ответов в одном".
Для Паскаль типа Tubo Pascal 7.0 один из вариантов (взято с ) :
...
const DaysInMonth : array[1..12] of integer = (31,28,31,30,31,30,31,31,30,31,30,31);
...
var
Month, Day: Integer;
begin
Day := DaysInMonth[Month];
...
Для FreePascal или Delphi есть функция DaysInMonth (см. или ):
FreePascal - function DaysInMonth(const AValue: TDateTime): Word;
Delphi - function DaysInMonth (Year: Integer; Month: Integer): Integer;
Ответ от 22 ответа[гуру]
Привет! Вот подборка тем с похожими вопросами и ответами на Ваш вопрос: блин, пожалуйста помогите, надо очень срочно. Как в паскале по номеру месяца вывести количество дней месяца?