Задача по оператору case.

[IvanKyzyl]

Нужна программа, которая по введённому году определит какому животному он соответствует. Например 2012 - год Дракона. Также нужно учесть что каждые 12 лет животные повторяются.

Работаю на FreePascal.

[Stilet]

С потолка:

const god:array[1..12] of string=('Дракон','Тигрь','Крот','Мышка','Рыбка',
'Таракан','Жаба','Филин','Амеба','Пенницилин','Лошадка','Минотавр');
var i:integer;
begin
 i:=2016; Допустим это введенный год
 writeln('Сейчас год ',god[(i-2012) mod 12]); readln;
end.

Идея понятна?

[TinMan]

Виталик, две поправочки..

Первая - массив надо нумеровать не от 1 до 12, а от 0 до 11 (возможные результаты операции mod).

const god:array[0..11] of string=('Дракон','Тигрь','Крот','Мышка','Рыбка',
'Таракан','Жаба','Филин','Амеба','Пенницилин','Лошадка','Минотавр');

Второе - такой код будет неправильно работать (точнее, совсем не будет работать) с годами, меньшими 2012. Нужно сделать оффсет на какое-то количество циклов, типа так:

  writeln('Сейчас год ',god[(i-2012+12*1000) mod 12]); readln;

- тут есть запас на тысячу циклов в прошлое (12000 лет). На мой взгляд, такого запаса должно быть достаточно..

P.S.
Я по твоему гороскопу - рыбка )). Но было опасно близко к таракану, я аж спугнулси.. ))

[bonjovi]

эммм....... Вообще тема называется "Задача на оператор case" ! Всё можно сделать намного проще!

var a:integer;

Begin
Readln(a);
Case a mod 12 of
   0:Writeln('Обезьяна');
   1:Writeln('Петух');
   2:Writeln('Собака');
   3:Writeln('Свинья');
   4:Writeln('Крыса');
   5:Writeln('Бык');
   6:Writeln('Тигр');
   7:Writeln('Кролик');
   8:Writeln('Дракон');
   9:Writeln('Змея');
   10:Writeln('Лошадь');
   11:Writeln('Коза');
end
end.