процедура paskal - Составить программу, которая бы считала, когда Вам исполниться 5000 и 7000 дней

[mirstat75]

У меня проблема с задачей на Paskal. Условие следующее:Составить программу, которая бы считала, когда Вам исполниться 5000 и 7000 дней. Но меня поставило в тупик одно из условий:составить процедуру для нахождения даты в прошлом, то есть даты, которая была за (n) дней до указанной даты. Как эту процудуру написать????

[s-andriano]

А как бы Вы решали эту задачу, будь у Вас вместо компьютера карандаш и лист бумаги?

[Poma][a]

с задачей на Paskal.

Пишется Pascal.

У меня проблема с задачей на Paskal.

А мы тут при чем? Почему я должен оторваться от учебы и решать Ваши проблемы?
Интерес? Его нет. Ваша задача не щекочет нервы. От её решения не словишь очередную дозу кайфа. Хорошее отношение? К человеку, который не счел нужным поздороваться и попросить помощи? Деньги? Хорошая шутка.

// Возможно я чрезмерно суров (песня такая попалась)

Не понимаю почему я решил помочь Вам..

const
	mday : array[1..12] of Byte = (
		31, 29, 31, 30, 31, 30, 31, 31, 30, 31, 30, 31
	);

procedure NextDay (var d, m, y : Integer);
	
function IsLeapYear (y : Integer) : Boolean;
begin
	Result := (y mod 400 = 0) or (y mod 4 = 0) and (y mod 100 <> 0)
end;

begin
	Inc (d);

	if (d > mday[m]) or
	   not IsLeapYear (y) and (m = 2) and (d = 29) then begin
			Inc (m);
			d := 1;
			if m > 12 then begin
					Inc (y);
					m := 1
			end
	end
	
end;

Таким же макаром можно сделать и процедуру PreviousDay.

[Serge_Bliznykov]

Сообщение от Poma][a

Не понимаю почему я решил помочь Вам..

можно и так.

Но, хочу отметить, что существует и другой подход к решению подобных задач:
используя формат даты, когда дата кодируется числом дней (как TDateTime) или число секунд (как в UnixTime), прошедших от некой заданной даты.
В этом случае, очевидно, что достаточно просто к дате рождения в таком формате прибавить заданное число (дней/секунд) и полученное число перевести в привычную дату (число, месяц, год). и всё.

ТУТ, например, готовое решение такой задачи на Паскале...

[Mad_Cat]

А мы тут при чем? Почему я должен оторваться от учебы и решать Ваши проблемы?
Интерес? Его нет. Ваша задача не щекочет нервы. От её решения не словишь очередную дозу кайфа. Хорошее отношение? К человеку, который не счел нужным поздороваться и попросить помощи? Деньги? Хорошая шутка.

эх, молодежь!!!
когда и я был таким потом мне кто-то написал

Не хочешь решать - не решай! И не жди никогда спасибо за сделанное!