сторояпонский календарь

[Janette]

Прошу помощи с написанием программки на паскале... Заранее огромное спасибо!

Напишите программу, которая по номеру года определяет его название по старояпонскому календарю, если известно, что 1984 г. - год крысы, последовательность изменения: крыса, корова, тигр, заяц, дракон, змея, лошадь, овца, обезьяна, курица, собака, свинья.

При решении задачи обязательно использовать диапазонный или перечисляемый типы данных.

[alexBlack]

Непонятно в чем же тут помощь ? В том, что за вас делаем ? Так это скорее медвежья услуга.

// Такое использование диапазонных типов устроит ?
type
   TYear = 1 .. 2100;

function YearName(Year:TYear):String;
const ListNames : array [0..11] of String =
          ('крыса', 'корова', 'тигр', 'заяц', 'дракон', 'змея',
           'лошадь', 'овца', 'обезьяна', 'курица', 'собака', 'свинья');
var N:0..11;
begin
   N := abs(Year - 1984) mod 12;
   if (Year < 1984) and (N <> 0) then N := 12 - N;
   YearName := ListNames[N];
end;

// Можно конечно извратиться и сделать через перечислимые
type
   JapanNames = (jnKs, jnKr, jnTg, jnZj, jnDr, jnZm, jnLo, jnOv, jnOb, jnKu, jnSb, jnSv);

function YearName1(Year:TYear):String;
const ListNames : array [JapanNames] of String =
          ('крыса', 'корова', 'тигр', 'заяц', 'дракон', 'змея',
           'лошадь', 'овца', 'обезьяна', 'курица', 'собака', 'свинья');
var N:0..11;
begin
   N := abs(Year - 1984) mod 12;
   if (Year < 1984) and (N <> 0) then N := 12 - N;
   YearName1 := ListNames[JapanNames(N)];
end;