0 / 0 / 0
Регистрация: 30.01.2012
Сообщений: 18
1

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

01.02.2012, 16:53. Показов 6081. Ответов 1
Метки нет (Все метки)

Точно помню, что эту прогу делали ещё в школе вместе с классом, но это было давно.

Восточный календарь принят 60-летним циклом состоящий из 5-ти 12-летних подциклов.
Подциклы обозначаются цветами:
Зелёный-красный-жёлтый-белый-чёрный.
Внутри каждого подцикла годы носили названия животных:
Крыса-бык-тигр-кролик-дракон-змея-лошадь-баран-обезъяна-петух-собака-свинья.
Написать программу, которая запрашивала номер года и печатала его название по восточному календарю.
Для проверки:
2012 - Чёрный Дракон
1966 - Красная Лошадь
1984 - Зелёная Крыса
При этом известны следующие формулы:
c=((year+6) mod10+2)( div 2
k=(year+8) mod 12+1
c-цвет
k-номер животного

Сказали, что можно сделать через CASE
__________________
Помощь в написании контрольных, курсовых и дипломных работ здесь
0
Лучшие ответы (1)
Programming
Эксперт
94731 / 64177 / 26122
Регистрация: 12.04.2006
Сообщений: 116,782
01.02.2012, 16:53
Ответы с готовыми решениями:

Восточный календарь
Составить программу, которая определяет, на какой год восточного календаря приходится какой – либо...

Восточный календарь
в восточном календаре принят 60=-летний цикл, состоящий из 12-летних подциклов, обозночаемых...

Доработать программу: восточный календарь
В восточном календаре года носят названия животных: крыса быка тигра зайца дракона змеи лошади овцы...

По номеру года определить и напечатать его название (восточный календарь)
В старом японском календаре был принят 60-летний цикл. Как раз для выхода на пенсию. Он состоял из...

1
15 / 15 / 7
Регистрация: 01.02.2012
Сообщений: 47
02.02.2012, 13:04 2
Лучший ответ Сообщение было отмечено mart1z как решение

Решение

Цитата Сообщение от mart1z Посмотреть сообщение
Сказали, что можно сделать через CASE
Pascal
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
Program AHB;
 uses crt;
 var
 year,k,a:integer;
 begin
 clrscr;
 Writeln('Введите год: ГГГГ');
 readln (year);
 k:=((((year+6) mod 10)+2)div 2);
 a:=((year+8) mod 12+1);
 Write (year);
 case k of
 1: Write (' Зелёный ');
 2: Write (' Красный ');
 3: Write (' Жёлтый ');
 4: Write (' Белый ');
 5: Write (' Чёрный ');
 end;
 Case a of
 1: Write (' Крыса ');
 2: Write (' Бык ');
 3: Write (' Тигр ');
 4: Write (' Кролик ');
 5: Write (' Дракон ');
 6: Write (' Змея ');
 7: Write (' Лошадь ');
 8: Write (' Баран ');
 9: Write (' Обезьяна ');
 10: Write (' Петух ');
 11: Write (' Собака ');
 12: Write (' Свинья ');
 end;
 Writeln;
 readkey;
 end.
Ну, как то так... у вас уже всё было для написания, наверное кроме желания
1
IT_Exp
Эксперт
87844 / 49110 / 22898
Регистрация: 17.06.2006
Сообщений: 92,604
02.02.2012, 13:04

Восточный календарь
Нужна помощь,ну или кто может написать код программы,про Восточный календарь! Сам текст: В...

Восточный Календарь
Давным давно, в одной альтернативной вселенной, в восточном календаре был принят 6060-летний цикл,...

задание 7. Восточный календарь
не могу разобраться и сделать задание кто поможет? В восточных календарях был принят 60-летний...

Восточный календарь: вывести название года
Давным давно, в одной альтернативной вселенной, в восточном календаре был принят 60-летний цикл,...

Восточный календарь: ввести животное, вывести годы
помогите,пожалуйста,с задачей! вводим в консоле животное - получаем года, которые соответствуют...

Восточный календарь. По номеру года определить его название
В восточном календаре принят 60-летний цикл, состоящий из 12 - летних подциклов, обозначаемых...


Искать еще темы с ответами

Или воспользуйтесь поиском по форуму:
2
Ответ Создать тему
Опции темы

КиберФорум - форум программистов, компьютерный форум, программирование
Powered by vBulletin® Version 3.8.9
Copyright ©2000 - 2021, vBulletin Solutions, Inc.