Технический форум
Вернуться   Технический форум > Программирование > Форум программистов > Помощь студентам


Ответ
 
Опции темы Опции просмотра
Старый 20.12.2008, 21:37   #1 (permalink)
Bingooo
Новичок
 
Регистрация: 20.12.2008
Сообщений: 3
Сказал(а) спасибо: 0
Поблагодарили 0 раз(а) в 0 сообщениях
Репутация: 10
По умолчанию Скоро сессия, выручайте!

В восточном календаре принят 60-летний цикл, состоящий из 12-летних подциклов, обозначаемых названиями цвета: зеленый, красный, желтый, белый и черный. В каждом подцикле годы носят названия животных: крысы, коровы, тигра, зайца, дракона, змеи, лошади, овцы, обезьяны, курицы, собаки и свиньи. По номеру года вывести его название, если 1984 год был началом цикла — годом зеленой крысы
Bingooo вне форума   Ответить с цитированием

Старый 20.12.2008, 21:37
Helpmaster
Member
 
Аватар для Helpmaster
 
Регистрация: 08.03.2016
Сообщений: 0

Я думаю, что было бы очень полезно почитать аналогичные обсуждения

Fallout: New Vegas
Скоро экзамен. Спасите!
Моя сессия в ваших руках
Горит сессия, помогите!

Старый 20.12.2008, 22:26   #2 (permalink)
Vladimir_S
Специалист
 
Аватар для Vladimir_S
 
Регистрация: 27.08.2008
Адрес: Санкт-Петербург
Сообщений: 26,874
Сказал(а) спасибо: 318
Поблагодарили 542 раз(а) в 183 сообщениях
Репутация: 101510
По умолчанию

Не знаю, сколь это Вам поможет, но когда-то я сделал для себя такую программку, она тщательно выверена и абсолютно рабочая. Есть отличия:

1. У Вас зеленый цвет, у меня - синий.
2. Помимо цветов, выводятся стихии (огонь, вода и т.п.).
3. В задаче перебор цветов (стихий) задан неправильно. На самом деле в восточном календаре цвет (стихия) не меняется в течение двух лет подряд.
4. За базовый принят не 1984, а год, номер которого кратен 60. Так удобнее.
5. В исходной программе учитываются годы до Н.Э. (легко убрать).

Текст программы:

{ Это для перевода текущего года в восточную символику }
CONST
Matter_Color:ARRAY[0..9] of STRING[16]=('Металл Белый ',
'Металл Белый ',
'Вода Черный ',
'Вода Черный ',
'Дерево Синий ',
'Дерево Синий ',
'Огонь Красный',
'Огонь Красный',
'Земля Желтый ',
'Земля Желтый ');

Animal:ARRAY[0..11] of STRING[8]=('Обезьяна',
'Курица ',
'Пес ',
'Свинья ',
'Мышь ',
'Корова ',
'Тигр ',
'Заяц ',
'Дракон ',
'Змея ',
'Конь ',
'Овца ');

VAR
CurYear, Mod1, Mod2, Mod3:Integer;

BEGIN
WRITELN('Годы до Н.Э. вводите со знаком "-";');
WRITELN('для выхода из программы введите нулевой год.');
WRITELN;
REPEAT
WRITE('Введите год: '); READLN(CurYear);
IF CurYear<>0 THEN
BEGIN
IF CurYear<0 THEN Mod1:=61+(CurYear mod 60) ELSE
Mod1:=CurYear mod 60;
Mod2:=Mod1 mod 10;
Mod3:=Mod1 mod 12;
IF CurYear<0 THEN
WRITELN(CurYear*(-1):8,' до Н.Э. ',Animal[Mod3],' ',
Matter_Color[Mod2])
ELSE
WRITELN(CurYear:8,' Н.Э. ',Animal[Mod3],' ',
Matter_Color[Mod2]);
END;
UNTIL CurYear=0;
END.
Vladimir_S вне форума   Ответить с цитированием
Ads

Яндекс

Member
 
Регистрация: 31.10.2006
Сообщений: 40200
Записей в дневнике: 0
Сказал(а) спасибо: 0
Поблагодарили 0 раз(а) в 0 сообщениях
Репутация: 55070
Ответ

Опции темы
Опции просмотра

Ваши права в разделе
Вы не можете создавать новые темы
Вы не можете отвечать в темах
Вы не можете прикреплять вложения
Вы не можете редактировать свои сообщения

BB коды Вкл.
Смайлы Вкл.
[IMG] код Выкл.
HTML код Выкл.
Trackbacks are Вкл.
Pingbacks are Вкл.
Refbacks are Выкл.




Часовой пояс GMT +4, время: 06:04.

Powered by vBulletin® Version 6.2.5.
Copyright ©2000 - 2014, Jelsoft Enterprises Ltd.