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

disel 
DIM color$(9), NAME$(11)
DATA "belo","cherno","zeleno","krasno","zhelto"
DATA "j obezjany","j kuricy","j sobaki","j svini","j krysy","j korovy"
DATA "go tigra","go zajca","go drakona","j zmei","j loshadi","j ovcy"
FOR i = 0 TO 4
    READ color$(i * 2)
    color$(i * 2 + 1) = color$(i * 2)
NEXT
FOR i = 0 TO 11: READ NAME$(i): NEXT
INPUT "vvedite god"; gg
PRINT color$(gg MOD 10); NAME$(gg MOD 12)

Похожие записи/страницы: