задача с записью

[|v||v|<<IpShot]

Мне нужно решить задачу через запись,но я не знаю что отнести к записи
Задача:определить дату завтрашнего дня если известна сегодняшняя дата.
заранее огромное спасибо =)

[Stilet]

Ну в запись ты можешь вставить дату:
Типа

Dates=record
 Year,Month,Day:byte;
end;

[Serge_Bliznykov]

ну, и могут потребоваться функции (выдернул из Turbo Professional (c) TurboPower Software)

  function IsLeapYear(Year : Integer) : Boolean;
    {-Return True if Year is a leap year}
  begin
    IsLeapYear := (Year mod 4 = 0) and (Year mod 4000 <> 0) and
      ((Year mod 100 <> 0) or (Year mod 400 = 0));
  end;

  function DaysInMonth(Month, Year : Integer) : Integer;
    {-Return the number of days in the specified month of a given year}
  begin
    if Word(Year) < 100 then
      Inc(Year, 1900);
    case Month of
      1, 3, 5, 7, 8, 10, 12 :
        DaysInMonth := 31;
      4, 6, 9, 11 :
        DaysInMonth := 30;
      2 :
        DaysInMonth := 28+Ord(IsLeapYear(Year));
    else
      DaysInMonth := 0;
    end;
  end;

[puporev]

Year,Month,Day:byte;

Для Year тип byte не пойдет, нужно Word.

[|v||v|<<IpShot]

спс большое попробую

[Stilet]

нужно Word.

Логично, просто я от 2000 отталкивался

[|v||v|<<IpShot]

еще 1 вопросик что делает Ord?

DaysInMonth := 28+Ord(IsLeapYear(Year));

stilet если можешь оставь номер аси плз так удобней спрашивать =)

[Serge_Bliznykov]

DaysInMonth := 28+Ord(IsLeapYear(Year));

ну, не понимаете как это написано - так Вы же логику понимаете - по русски тут написано так
в феврале месяце к 28 дням прибавить 1, если год високосный.
Как это работает.
Функция IsLeapYear возращает логическое значение (тип boolean) - т.е. она может быть True (год Year високосный) или False (не високосный)/
функция ORD - возращает порядковый номер.
Для логической переменной будет 0 или 1.
попробуйте запустить программу:

  WriteLn( Ord(True) );
  WriteLn( Ord(False) );

получите:
1
0

всё равно непонятно? :-)
Тогда данный оператор можно не выпендриваться и заменить так:

if IsLeapYear(Year) then  DaysInMonth := 29
 else DaysInMonth := 28;

[|v||v|<<IpShot]

спс разжевал и в ротик положил прям =)

[|v||v|<<IpShot]

здравствуйте.
напомните пожалуйста как исполняется переход на нужную строку с помощью label и еще gosub вроде или goto я за лето все забыл=).
P.S. желательно показать на примере.
зарание большое спс.