О ВОСТОЧНОМ КАЛЕНДАРНОМ ЦИКЛЕ

[L.An.gert]

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

[L.An.gert]

Нашла на форуме похожый вопрос - там предлагался вариант написания через switch. В моем случае пришлось бы прописывать 60 раз, т.ч. прошу более интересных идей решения=)

[osichev]

вряд ли кто тебе напишит код

[osichev]

но задача интересная

[L.An.gert]

а я и не прошу код, я прошу подать идею

[osichev]

а какой год считать началом цикла

[eoln]

function God(x: word): string;
const
  Color: array[0..4] of string = ('зеленый', 'красный', 'желтый', 'белый', 'черный');
  Zver: array[0..11] of string =
    ('крысы', 'коровы', 'тигра', 'зайца', 'дракона', 'змеи',
     'лошади', 'овцы', 'обезьяны', 'курицы', 'собаки', 'свиньи');
  N = 1984;
var
  k: word;
begin
  k := (60 + (x - N) mod 60) mod 60;
  result := Color[k div 12] + ' ' + Zver[k mod 12]
end;

(x - N) mod 60 даёт смещение в цикле относительно его начала
На случай если смещение отрицательно (для даты ранее 1984 г.), то прибавим один цикл и снова найдём остаток.
Сейчас, например, судя по вышенаписанному, однако год "желтый тигра". Чтобы не было названий типа "белый змея" и т.п. делаем 2 массива цветов, и если (k mod 12) in [номера животных мужского рода в массиве] то цвета из первого массива, иначе из второго.

[osichev]

1984 ? а концом?

[L.An.gert]

я подозреваю что 2044

[L.An.gert]

Сообщение от eoln

function God(x: word): string;
const
  Color: array[0..4] of string = ('зеленый', 'красный', 'желтый', 'белый', 'черный');
  Zver: array[0..11] of string =
    ('крысы', 'коровы', 'тигра', 'зайца', 'дракона', 'змеи',
     'лошади', 'овцы', 'обезьяны', 'курицы', 'собаки', 'свиньи');
  N = 1984;
var
  k: word;
begin
  k := (60 + (x - N) mod 60) mod 60;
  result := Color[k div 12] + ' ' + Zver[k mod 12]
end;

(x - N) mod 60 даёт смещение в цикле относительно его начала
На случай если смещение отрицательно (для даты ранее 1984 г.), то прибавим один цикл и снова найдём остаток.
Сейчас, например, судя по вышенаписанному, однако год "желтый тигра". Чтобы не было названий типа "белый змея" и т.п. делаем 2 массива цветов, и если (k mod 12) in [номера животных мужского рода в массиве] то цвета из первого массива, иначе из второго.

ух, ты! я тоже пыталась через mod/div писать, спасибо большое за подсказку, огромнейшее спасибо за решение проблемы с падежами - как раз столкнулась. СПАСИБО ОГРОМНОЕ