|
|
Регистрация Восстановить пароль |
Повторная активизация e-mail |
Регистрация | Задать вопрос |
Заплачу за решение |
Новые сообщения |
Сообщения за день |
Расширенный поиск |
Правила |
Всё прочитано |
|
Опции темы | Поиск в этой теме |
28.11.2016, 22:02 | #1 |
Пользователь
Регистрация: 17.11.2015
Сообщений: 62
|
[Pascal] Восточный календарь
Добрый день,
Условие: По восточному календарю каждый год имеет название животного с указанием его цвета. Циклическая последовательность смены названий годов и, соответственно, названий животных следующая: крыса, бык, тигр, заяц, дракон, змея, лошадь, овца, обезьяна, петух, собака, свинья, крыса, … . Циклическая последовательность смены цветов: белый, черный синий, красный, желтый … . Цвета меняются через каждые 2 года. Необходимо по заданному натуральному числу N (N<=3000) определить название года по восточному календарю. Входные данные: Входной файл input.txt содержит натуральное число N. Ограничения: N<=3000. Выходные данные: В выходной файл output.txt нужно вывести год знак - и его название. (возле тире пробелов не ставить!) Названия животных и цветов выводить на английском языке: крыса - rat, бык - bull, тигр - tiger, заяц - hare, дракон - dragon, змея -snake, лошадь - horse, овца - sheep, обезьяна - monkey, петух - rooster, собака - dog, свинья - pig; синий - blue, красный - red, желтый - yellow, белый - white, черный - black. Примеры: input.txt 2002 2003 2004 output.txt 2002-black horse 2003-black sheep 2004-blue monkey ___________________________________ _________________ Вообще вначале я хотел использовать case ... of для нахождения цвета и животного. Но с животным возникли трудности. Мой код Код:
Жду любой помощи по реализации данного куска кода, параллельно буду пытаться найти другие решения. Заранее спасибо! |
28.11.2016, 22:08 | #2 |
2 the Nation Glory
Старожил
Регистрация: 27.05.2014
Сообщений: 3,289
|
и найдешь в гугле, инфа 100%. Такую задачу я на олимпиаде в 2003 г решал.
Кто умер, но не забыт, тот бессмертен.
Лао-Цзы. |
28.11.2016, 22:26 | #3 | |
Пользователь
Регистрация: 17.11.2015
Сообщений: 62
|
Цитата:
Код:
|
|
28.11.2016, 23:11 | #4 |
Пользователь
Регистрация: 17.11.2015
Сообщений: 62
|
Модернизировал кусок кода с животным:
Код:
|
28.11.2016, 23:18 | #5 | |
Старожил
Регистрация: 23.10.2010
Сообщений: 2,318
|
Цитата:
Но 2001 mod 12 = 9. Как-то так, ...
Как-то так, ...
|
|
28.11.2016, 23:49 | #7 |
Старожил
Регистрация: 23.10.2010
Сообщений: 2,318
|
Так думаю, что следует разделить ветку определения животного и цвета.
Для животных и цвета я бы определил массивы слов и тогда Код:
Код:
PS: Первые элементы массивов должны соответствовать первому году. Как-то так, ...
Как-то так, ...
|
29.11.2016, 14:33 | #8 |
Пользователь
Регистрация: 17.11.2015
Сообщений: 62
|
Оказывается 1-й год н.э. по китайскому календарю это белый петух (
Пруфl). Пришлось вставлять "костыль": Код:
(С костылем прошла тест) Последний раз редактировалось artems67; 29.11.2016 в 14:38. |
29.11.2016, 14:49 | #9 |
Старожил
Регистрация: 17.11.2010
Сообщений: 18,922
|
Тут всего решения
Код:
Если бы архитекторы строили здания так, как программисты пишут программы, то первый залетевший дятел разрушил бы цивилизацию
|
Похожие темы | ||||
Тема | Автор | Раздел | Ответов | Последнее сообщение |
по дате рождения вывести восточный и западный гороскопы с краткой характеристикой и рисунками (Delphi) | dark999 | Помощь студентам | 6 | 22.04.2011 23:12 |
Задача про восточный календарь. | Fist_valera | Паскаль, Turbo Pascal, PascalABC.NET | 4 | 27.02.2011 16:42 |
Календарь | mineralkaaa | Общие вопросы Delphi | 5 | 11.09.2010 01:28 |
Григорианский календарь (Pascal) | Mish92(21-09) | Помощь студентам | 5 | 10.10.2009 20:30 |