[Pascal] Восточный календарь

[artems67]

Добрый день,

Условие:


По восточному календарю каждый год имеет название животного с указанием его цвета. Циклическая последовательность смены названий годов и, соответственно, названий животных следующая: крыса, бык, тигр, заяц, дракон, змея, лошадь, овца, обезьяна, петух, собака, свинья, крыса, … . Циклическая последовательность смены цветов: белый, черный синий, красный, желтый … . Цвета меняются через каждые 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 для нахождения цвета и животного. Но с животным возникли трудности.

Мой код

Program Vostok_kalendar;
uses crt;

var n,x,i:integer;
    k:byte;
    s:string[25];
    f:text;

begin
clrscr;
assign(f,'input.txt');
reset(f);
readln(f,n);
close(f);
s:='-';
x:= n mod 10; {Определяем последную цифру у числа N}
case x of {В зависимости от значения последней цифры x числа N выбирается цвет}
0,1:s:=s+'white '; {Цвет меняется каждые 2 года!}
2,3:s:=s+'black ';
4,5:s:=s+'blue ';
6,7:s:=s+'red ';
8,9:s:=s+'yellow ';
end;
k:=0;
for i:=1 to n do {С этим циклом ПРОБЛЕМА!Работает не так как я предпологал}
  begin
    if (k = 12) or (i mod 10 = 0)then k:=1
      else k:=k+1;
    write('i= ',i,' ');writeln('k= ',k,' ')
  end;
case k of {Определения животного по счетчику k}
1:s:=s+'rat'; {Животное меняется каждый год! Цикл составляет 12 лет!}
2:s:=s+'bull';
3:s:=s+'tiger';
4:s:=s+'hare';
5:s:=s+'dragon';
6:s:=s+'snake';
7:s:=s+'horse';
8:s:=s+'sheep';
9:s:=s+'monkey';
10:s:=s+'rooster';
11:s:=s+'dog';
12:s:=s+'pig';
end;
assign(f,'output.txt');rewrite(f);
write(f,n,s); close(f);
end.

Проблема в цикле определения животного для числа N. Согласно восточному календарю цикл смены животных длится 12 лет. 1-крыса 2-бык ... 12-свинья и всё заново. Моя задумка заключалась в том что, начиная с 1 года (белый крыса) и до года N прогонять эти 12 лет через счетчик k и на 13 год менять счетчик k=1. Таким образом по задумке в k должно оставаться число цикла, который потом в case определяет животного. Но с большимми числами, пример 19** и 21** и т.д. начинает косячно работать, выдавая неверное животное.

Жду любой помощи по реализации данного куска кода, параллельно буду пытаться найти другие решения.

Заранее спасибо!

[Aleksandr H.]

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

параллельно буду пытаться найти другие решения

и найдешь в гугле, инфа 100%. Такую задачу я на олимпиаде в 2003 г решал.

[artems67]

Сообщение от Aleksandr H.

и найдешь в гугле, инфа 100%. Такую задачу я на олимпиаде в 2003 г решал.

Да, вы правы, реализация в 1 строчку

k:=(n-3) mod 12;

Только почему именно 3 вычитаем. Я не совсем понял, так как код выложен был без комментариев. А ещё не доконца уверен в остатке от деления на 12, к примеру числа 2004 (2004-3=2001 mod 12) просто остаток у меня на калькуляторе получился 75, а 2004-blue monkey (monkey - 9). Хотя в файл верный ответ выводи. + эта строчка не будет корректно работать если n=1.

[artems67]

Модернизировал кусок кода с животным:

if n < 12 then k:=n
  else if n = 12 then k:=0
    else  k:= (n-3) mod 12; 
case k of {Определения животного по k}
0:s:=s+'pig';
1:s:=s+'rat'; {Животное меняется каждый год! Цикл составляет 12 лет!}
2:s:=s+'bull';
3:s:=s+'tiger';
4:s:=s+'hare';
5:s:=s+'dragon';
6:s:=s+'snake';
7:s:=s+'horse';
8:s:=s+'sheep';
9:s:=s+'monkey';
10:s:=s+'rooster';
11:s:=s+'dog';
end;

Запустил программу на тест и погорел на 20 тесте, очень обидно. Набрал 95 % ((

[ViktorR]

...к примеру числа 2004 (2004-3=2001 mod 12) просто остаток у меня на калькуляторе получился 75...

Это как? Т.е. 75 на 12 не делится? Вроде как остаток получится 3.
Но 2001 mod 12 = 9.

Как-то так, ...

[artems67]

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

Это как? Т.е. 75 на 12 не делится? Вроде как остаток получится 3.
Но 2001 mod 12 = 9.

Как-то так, ...

Я разобрался уже. Только тест прога моя не приходит. Вроде все предусмотрел.

[ViktorR]

Так думаю, что следует разделить ветку определения животного и цвета.
Для животных и цвета я бы определил массивы слов и тогда

k := Year MOD 12; {k - индекс в массиве животных}

Так как цветов пять и они повторяются дважды, то следующий цикл цветов приходит через 10 лет

Color := Year MOD 10; {Индекс в массиве цветов}

Размерность массива для животных 12, а для цвета - 10 (повторил бы цвета).

PS: Первые элементы массивов должны соответствовать первому году.


Как-то так, ...

[artems67]

Оказывается 1-й год н.э. по китайскому календарю это белый петух (
Пруфl). Пришлось вставлять "костыль":

 if n = 1 then k:=10

чтобы прога прошла последний тест с n=1 . Это поменяло кардинально восприятие мною этой задачи, я снова перестал понимать как грамотно решить эту задачу.

(С костылем прошла тест)

[Аватар]

Тут всего решения

const cYear: array[0..11] of String = ('monkey','rooster','dog','pig','rat','bull','tiger','hare','dragon','snake','horse','sheep');
      cColor: array[0..4] of String = ('white','black','blue','red','yellow');
...
  g:=2017;
  i:=g mod 12;
  j:=(g mod 10) div 2;
  //cColor[j]+' '+cYear[i] - результат