|
|
Регистрация Восстановить пароль |
Повторная активизация e-mail |
Регистрация | Задать вопрос |
Заплачу за решение |
Новые сообщения |
Сообщения за день |
Расширенный поиск |
Правила |
Всё прочитано |
|
Опции темы | Поиск в этой теме |
17.06.2008, 09:29 | #1 |
Пользователь
Регистрация: 11.06.2008
Сообщений: 13
|
Помогите с заданием в Паскале
Составьте программу, которая по номеру дня в году выводит число и месяц в об-щепринятой форме (например, 33-й день года — 2 февраля).
|
17.06.2008, 13:39 | #2 |
Пользователь
Регистрация: 25.05.2008
Сообщений: 75
|
Простейший вариант с помощью условий if then else.
if (DenGoda < 31) xor (DenGoda =31) then Writeln(DenGoda + 'Января') else if ((DenGoda > 31) and (DenGoda < 61)) xor (DenGoda = 61) then begin DenGoda := DenGoda - 31; Writeln(DenGoda - 31 + 'Февраля'); end else и т.д. |
17.06.2008, 14:14 | #3 |
Меркантильный кю
Участник клуба
Регистрация: 02.02.2008
Сообщений: 1,001
|
Ну зачем же так сложно. Вот весь код. Конечно, по хорошему, надо предусмотреть ещё високосный год, но автору это вроде не требуется
Код:
Росли вроде умными, выросли дурнями... (c)А.Васильев
|
17.06.2008, 20:42 | #4 |
Старожил
Регистрация: 09.01.2008
Сообщений: 26,229
|
а если добавить переменную year и после главного begin написать так:
Код:
|
17.06.2008, 21:47 | #5 | |
Старожил
Регистрация: 13.10.2007
Сообщений: 2,740
|
Цитата:
|
|
18.06.2008, 16:03 | #6 |
Старожил
Регистрация: 09.01.2008
Сообщений: 26,229
|
Код я взял в TPDate (c) by TurboPower.
И это не опечатка! http://answers.yahoo.com/question/in...AADjUh5&show=7 http://calendars.wikia.com/wiki/Leap_year Хотя, безусловно Вы правы, для наших расчётов это можно точно опустить... ;-)))) |
18.06.2008, 16:06 | #7 | |
Старожил
Регистрация: 13.10.2007
Сообщений: 2,740
|
Вот код по второй Вашей ссылке.
Цитата:
|
|
Похожие темы | ||||
Тема | Автор | Раздел | Ответов | Последнее сообщение |
помогите с заданием | slim5 | Помощь студентам | 1 | 18.06.2008 08:50 |
Помогите с заданием... | flait111 | Помощь студентам | 4 | 14.12.2007 16:49 |
Помогите с заданием подсчета! | werser | Microsoft Office Excel | 6 | 08.12.2007 18:58 |
Помогите с заданием для зачёта! | RatwielleR | Помощь студентам | 4 | 15.01.2007 16:02 |