| Версия для печати темы
Нажмите сюда для просмотра этой темы в оригинальном формате |
| Форум программистов > Центр помощи > [Pascal]Описать функцию (записи) |
| Автор: oriks 19.3.2009, 23:08 |
| нужна помощь в написании программы. Задача такая: type day=1..31; month=1..12; year=1..2000; date=record d: day; m: month; y: year end; day_of_week=("пн", "вт", "ср", "чт", "пт", "сб", "вс"); Считая, что все даты даются по григорианскому календарю ("новому стилю"), описать функцию number_of_days(dat), подсчитывающую, сколько дней прошло от 1 января 1-го года от Р.Х. до даты dat. |
| Автор: volvo877 19.3.2009, 23:52 |
| Посчитай, сколько полных лет прошло (dat.year - 1), сколько среди них было високосных. Потом число лет умножь на 365 и прибавь кол-во високосных лет. Ну, а после этого задача сводится к подсчету "сколько дней прошло с 1-го января текущего года до даты dat", тебе для этого понадобится еще массив с числом дней в каждом месяце... Сделаешь сам, или перенести в "центр помощи"? |
| Автор: oriks 20.3.2009, 00:10 |
| в "центр помощи", если моно) |
| Автор: volvo877 20.3.2009, 13:02 |
| Для домашних заданий, курсовых, существует "Центр Помощи" Тема перенесена! |