ребят, помогите пожалуйста нужно для курсовика сделать задачу иллюстрирующию применение вот этого модуля
Код:
1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 | Unit Calendar;
Interface
Type
Days=(Mon,The,Wed,Thu,Fri,Sat,Sun);
WorkingDays=Mon..Fri;
Months=(Jan,Feb,Mar,Apr,May,June,July,Aug,Sept,Oct,Nov,Decem);
Summer=June..Aug;
Autumn=Sept..Nov;
Spring=Mar..May;
DayNo=1..31;
YearNo=2000..2200;
Date=record
Day: DayNo;
Month: Months;
Year:YearNo;
End;
Implementation
End.
|
задача может быть любой главное просто показать как рабоает этот модуль....помогите пожалуйста!!!!!!!!!!!!!
сразу огромное спасибо!!!!!
и извиняюсь если что не так сказала....
02.05.2006, 13:32
перенос модуля Pascal в Delphi
Линейный вид
