Программа на определение следующего дня+квартал Опции

[1111]

Люди пожайлуста помогите мне решить следующию задачу. Надо написать программу на определение даты следующего дня + квартал(с использованием перечисляемого типа). Вот что у меня получилось только с ошибками и без кварьала

Код

Program gdgf;
function ndm(d:integer; m:byte; y:word):byte;
var
dz:integer;
mz:integer;
yz:integer;
BEGIN
writeln('vvedite daty');
readln(d,m,y)
if m=2 then
if (y mod 4=0) and (y mod 100<>0) or (y mod 400=0)
then ndm=29 else ndm=28
else
if m in [1,3,5,8,10,12]
then ndm=31 else ndm=30;
end;
if d<ndm(m,y) then begin dz=d+1; mz=m; yz=y; end
else if m<>12 then begin dz=1; mz=m+1; yz=y; end
else begin dz=1; mz=1; yz=y+1; end;
writeln('zavta bydet chiclo'dz,'meciac'mz,'god'yz);
end.

где d,m,y - сегодняшний день, месяц и год dz, mz, yz - завтрашние день, месяц и год.


Сообщение отредактировано: 1111 - 15.10.2007 17:18

[volvo]

Ты вопросы задаешь, или утверждаешь?

Если вопросы - то ответ будет таким: кто ж тебе мешает сделать еще проще? Умеешь - делай. У меня более просто не получится. Куда же проще - полная программа из 35 строк... Или ты хочешь в одну строку решить?