По номеру года восточного календаря определить его название
Категория: Delphi/Pascal
2011-12-21 19:50:24
В восточном календаре принят 60-летний цикл, состоящий из 12-летних подциклов, обозначаемых названиями цвета: зеленый, красный, желтый, белый и черный. В каждом подцикле годы носят названия животных: крысы, коровы, тигра, зайца, дракона, змеи, лошади, овцы, обезьяны, курицы, собаки и свиньи. По номеру года определить его название, если 1984 год — начало цикла: «год зеленой крысы»
code: #pascal
Program Case19; Const Year : array[1..12] of string[10] = (('крысы'), ('коровы'), ('тигра'), ('зайца'), ('дракона'), ('змеи'), ('лошади'), ('овцы'), ('обезьяны'), ('курицы'), ('собаки'), ('свиньи')); Color : array[0..3] of string[10] = ( ('зеленый'), ('красный'), ('желтый'), ('черный') ); var i, god : integer; begin write('Введите год >= 1984 : '); readln(god); for i := 1 to 12 do begin write(1984+i -1, ' - ',Year[ i ], ' - '); writeLn( Color[((1984+i -1) mod 4)]); end; writeln('-------------------'); Write(god, ' это год: ', Year[(god - 1984+1) mod 12 ] , ' ', Color[(god mod 4)]); end.
автор: Zakirov Nail a.k.a. Zevsnet
Поделиться: