по объектно

Ответ от Gennady[гуру]
Доброго времени суток.Начнем с того, что в паскале (версия 7.0 это таки Turbo Pascal) отсутствует такое понятие, как класс. Там есть объект. С учетом этого решение может быть таким.program TstClass;type TDate = object {поля объекта Дата} Y,M,D : Word; {методы объекта} procedure SetDate(AY,AM,AD: Word); {установка даты} procedure Date(var AY,AM,AD: Word); {чтение даты} procedure AddDate(AD: Word); {прбавление дней} procedure SubDate(AD: Word); {вычитание дней} end;procedure TDate.SetDate(AY,AM,AD: Word);begin Y := AY; M := AM; D := AD;end;procedure TDate.Date(var AY,AM,AD: Word);begin AY := Y; AM := M; AD := D;end;procedure TDate.AddDate(AD: Word);begin D := D + AD;end;procedure TDate.SubDate(AD: Word);begin D := D - AD;end;var MyDate : TDate; Y,M,D : Word;begin MyDate.SetDate(2008,4,28); MyDate.AddDate(1); MyDate.Date(Y,M,D); WriteLn(Y:5,M:3,D:3); ReadLn;end.Поскольку распределения динамической памяти не производится, то можно обойтись без конструктора и деструктора объекта.Во-вторых, методы суммирования и вычитания дней реализованы схематично. Их надо доработать в плане анализа получившегося результата для соответствующей коррекции, при необходимости, значений месяца и года. Пример компилирован и проверен в работе. На экран было выведено 2008 4 29Удачи!