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

@TAMB · Регистрация: 10.02.2010

Студворк — интернет-сервис помощи студентам

В старояпонском календаре был принят 12-летний цикл. Годы внутри цикла носили названия животных: крысы, коровы, тигра, зайца, дракона, змеи, лошади, овцы, обезьяны, курицы, собаки и свиньи. Написать программу, которая вводит номер некоторого года и печатает его название по старояпонскому календарю. (Справка: 1996 г. — год Крысы — начало очередного цикла.)

Помогите пожалуйста! очень нужно, зачет не поставят

@Пуфыстик185 · 20.12.2010, 23:05

сама эту задачу прождала огого скоко в итоге сама решила)) лови))

Visual Basic
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
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
Sub Goroskop()
 
Dim Year As Integer
 
Year = InputBox ("Введите год", "Организация ввода")
 
Select Case Year Mod 12
 
Case 0
 
MsgBox "Год Обезьяны", , "Результат"
 
Case 1
 
MsgBox "Год Петуха", , "Результат"
 
Case 2
 
MsgBox "Год Собаки", , "Результат"
 
Case 3
 
MsgBox "Год Свиньи", , "Результат"
 
Case 4
 
MsgBox "Год Крысы", , "Результат"
 
Case 5
 
MsgBox "Год Коровы", , "Результат"
 
Case 6
 
MsgBox "Год Тигра", , "Результат"
 
Case 7
 
MsgBox "Год Зайца", , "Результат"
 
Case 8
 
MsgBox "Год Дракона", , "Результат"
 
Case 9
 
MsgBox "Год Змеи", , "Результат"
 
Case 10
 
MsgBox "Год Лошади", , "Результат"
 
Case 11
 
MsgBox "Год Овцы", , "Результат"
 
Case 12
 
End Select
 
End Sub

@Sasha_Smirnov · 21.12.2010, 17:51

Вот тоже

Visual Basic
1
2
3
4
5
6
7
Sub ЯпонскийГод()
  On Error Resume Next
  MsgBox "Год " & _
  Choose(Abs(Val(InputBox("Год №...", "Японский номер года", Year(Now)))) Mod 12 + 1, _
  "обезьяны", "курицы", "собаки", "свиньи", "крысы", "коровы", _
  "тигра", "зайца", "дракона", "змеи", "лошади", "овцы"), vbInformation
End Sub

Правда, для лет до нашей эры сей код непригоден.

Добавлено через 11 часов 32 минуты
И ещё так, чтоб выдавал на английском (если в момент выполнения не выбран русский язык):

Visual Basic
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
Sub JapaneeseYear()
Select Case Application.Keyboard
Case Is = 68748313
  If MsgBox("Год " & _
  Choose(Abs((Val(InputBox("Год №...", "Японский номер года", Year(Now)))) - 0.5) Mod 12 + 1, _
  "обезьяны", "курицы", "собаки", "свиньи", "крысы", "коровы", "тигра", "зайца", _
  "дракона", "змеи", "лошади", "овцы"), vbInformation + vbOKCancel) = vbOK Then
  Call JapaneeseYear
  End If
Case Else
  If MsgBox("The year of a " & _
  Choose(Abs((Val(InputBox("Year #...", "Gregorian year number", Year(Now)))) - 0.5) Mod 12 + 1, _
  "monkey", "hen", "hound (dog)", "pig", _
  "rat (mouse)", "cow (bull, bullock, ox, taurus)", "tiger", "hare (rabbit)", _
  "dragon", "serpent (viper; snake)", "horse", "ram"), vbInformation + vbOKCancel) = vbOK Then
  Call JapaneeseYear
  End If
'http://lingvo.yandex.ru/Taurus/с%20английского/LingvoUniversal/
End Select
End Sub

Частично (для каждого 12-го года) охватывает и года до нашей эры. Лучше не придумал.

На рисунках вот этот (удачный) случай и представлен — для 11 года до н. э. Хотя... кому это надо!

@Sasha_Smirnov · 23.12.2010, 00:58

Убавлено через 23 часа 57 минут

Сообщение от Sasha_Smirnov

С «донашей» эрой не разобрался...

Разобрался!

Visual Basic
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
Sub JapaneseGod()
 
Static НомерГода
Dim BeforeChristmas As Boolean, ЗверьГода, animals()
animals = Array("обезьяны", "курицы", "собаки", "свиньи", "крысы", "коровы", _
                "тигра", "зайца", "дракона", "змеи", "лошади", "овцы")
 
If НомерГода = Empty Then
    НомерГода = Year(Date)      ' инициализация переменной НомерГода текущим годом
Else: НомерГода = НомерГода + 1 ' следующий год при следующем запуске; Word открыт
End If
 
НомерГода = Val(InputBox("Год №...", "Японский номер года", НомерГода))
BeforeChristmas = НомерГода < 0
 
If IsNumeric(НомерГода) Then
    ЗверьГода = IIf(НомерГода < 0, (13 - Abs(НомерГода)) Mod 12, НомерГода Mod 12)
    If MsgBox(Abs(НомерГода) & " год " & IIf(BeforeChristmas, "до н. э. ", "") & _
    " — это год " & animals(ЗверьГода) & ".", _
    vbInformation + vbAbortRetryIgnore) = vbRetry Then ЯпонскийГод ' повтор теста
End If
 
End Sub

Добавлено через 33 минуты
Вместо 13 надо использовать что-нибудь типа 12 * 1000000 + 1.

Более изящную конструкцию найти не успел...

@Sasha_Smirnov · 23.12.2010, 05:39

Сообщение от Sasha_Smirnov

Более изящную конструкцию найти не успел...

А вот и успел!

Visual Basic
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
Sub ЯпонскийГод()
Static НомерГода
Dim BeforeChristmas As Boolean, ЗверьГода, animals()
    animals = Array("обезьяны", "курицы", "собаки", "свиньи", "крысы", "коровы", _
                    "тигра", "зайца", "дракона", "змеи", "лошади", "овцы")
    
    If НомерГода = Empty Then
        НомерГода = Year(Date)      ' инициализация переменной НомерГода текущим годом
    Else: НомерГода = НомерГода + 1 ' следующий год при следующем запуске; Word открыт
    End If
    
    НомерГода = Val(InputBox("Год №...", "Японский номер года", НомерГода))
    BeforeChristmas = НомерГода < 0
    
    If IsNumeric(НомерГода) Then
        ЗверьГода = IIf(НомерГода < 0, (13 + НомерГода Mod 12) Mod 12, НомерГода Mod 12)
        If InputBox(Abs(НомерГода) & " год " & IIf(BeforeChristmas, "до н. э. ", "") & _
    "— это год " & animals(ЗверьГода) & ".", , "Выход: Cancel") <> Empty Then ЯпонскийГод
    End If
End Sub

@Vlanib · 23.12.2010, 07:27

Sasha_Smirnov, я смотрю вы так увлеклись этой вобщем то тривиальной задачей.

Вот вам еще доп. инфа к размышлению.

В древнем японском календаре был принят 60-летний цикл, состоящий из пяти 12-летних подциклов. Подциклы означались названиями цветов: зеленый, красный, желтый, белый и черный. Внутри каждого подцикла годы носили названия животных: крыса, корова, тигр, заяц, дракон, змея, лошадь, овца, обезьяна, курица, собака и свинья. Например, 1984 год – год начала очередного цикла – назывался годом зеленой крысы.
Составить программу, которая по заданному номеру года нашей эры N выводит его название по древнему японскому календарю с учетом цвета.
Доводите уже ваш код со совершенства. Справитесь?

@Sasha_Smirnov · 23.12.2010, 23:51

Не вопрос. Был бы спрос!

Visual Basic
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
Sub FunnyYear()
Static НомерГода
Dim BeforeChristmas As Boolean, КакойГод, ЗверьГода, ЦветЗверя, animals(), colours()
    animals = Array("обезьяны", "курицы", "собаки", "свиньи", "крысы", "коровы", _
                    "тигра", "зайца", "дракона", "змеи", "лошади", "овцы")
    colours = Array("красно", "жёлто", "бело", "черно", "зелёно")
    
    If НомерГода = Empty Then
        НомерГода = Year(Date)      ' инициализация переменной НомерГода текущим годом
    Else: НомерГода = НомерГода + 1 ' следующий год при следующем запуске; Word открыт
    End If
    
    НомерГода = Val(InputBox("Год №...", "Японский номер года", НомерГода))
    BeforeChristmas = НомерГода < 0
    
If IsNumeric(НомерГода) Then
    ЗверьГода = IIf(НомерГода < 0, (13 + НомерГода Mod 12) Mod 12, НомерГода Mod 12)
    ЦветЗверя = IIf(НомерГода < 0, (6 + НомерГода Mod 5) Mod 5, НомерГода Mod 5)
    
    If InputBox(Abs(НомерГода) & " год " & IIf(BeforeChristmas, "до н. э. ", "") & _
    "— это год " & colours(ЦветЗверя) & animals(ЗверьГода) & ".", _
    "Сегодня " & WeekdayName(Weekday(Now), , vbMonday) & " " & Day(Now) & "-е", _
    "Выход: Cancel") <> Empty Then
    Call FunnyYear
    End If
End If
End Sub

Падежи прикручивайте сами. (А выше есть английский вариант — там с этим проще.)

@raptile · 25.12.2010, 07:27

Привет, а вы можете ету же программу написать для паскаля?

В старояпонском календаре был принят 12-летний цикл. Годы внутри цикла носили названия животных: крысы, коровы, тигра, зайца, дракона, змеи, лошади, овцы, обезьяны, курицы, собаки и свиньи. Написать программу, которая вводит номер некоторого года и печатает его название по старояпонскому календарю. (Справка: 1996 г. — год Крысы — начало очередного цикла.)

@Sasha_Smirnov · 25.12.2010, 23:11

Ету? Ну да, могу. А вы?

Но вы там уже, наверно, рождество во всю гуляете... А паскаль у меня не установлен!

Так что используйте сообщение #2 от Пуфыстик185 — только в терминах паскаля.

@Sasha_Smirnov · 27.12.2010, 00:44

Сделал нормально согласование в падеже.

Visual Basic
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
Sub AnnualRotation()
Static НомерГода
Dim КакойГод, ЗверьГода%, ЦветЗверя%, Цвет_РодПадеж$, XYanimal(), XYcolour()
 
XYanimal = Array("Xобезьяны", "Xкурицы", "Xсобаки", "Xсвиньи", "Xкрысы", "Xкоровы", _
                "Yтигра", "Yзайца", "Yдракона", "Xзмеи", "Xлошади", "Xовцы")
XYcolour = Array("красно", "жёлто", "бело", "чёрно", "зелёно")
    
    If НомерГода = Empty Then
        НомерГода = Year(Date)      ' инициализация переменной НомерГода текущим годом
    Else: НомерГода = НомерГода + 1 ' следующий год при следующем запуске; Word открыт
    End If
    
    НомерГода = Val(InputBox("Год №...", "Японский номер года", НомерГода))
    
If IsNumeric(НомерГода) Then
    ЗверьГода = IIf(НомерГода < 0, (13 + НомерГода Mod 12) Mod 12, НомерГода Mod 12)
    ЦветЗверя = IIf(НомерГода < 0, (6 + НомерГода Mod 5) Mod 5, НомерГода Mod 5)
    If Left(XYanimal(ЗверьГода), 1) = "X" Then Цвет_РодПадеж = "й" Else Цвет_РодПадеж = "го"
    
    If InputBox(Abs(НомерГода) & " год " & IIf(НомерГода < 0, "до н. э. ", "") & _
        "— это год " & _
        XYcolour(ЦветЗверя) & Цвет_РодПадеж & " " & Mid(XYanimal(ЗверьГода), 2) & ".", _
        "Сегодня " & WeekdayName(Weekday(Now, vbMonday)) & " " & Day(Now) & "-е", _
        "Выход: Cancel") <> Empty Then
        Call AnnualRotation
    End If
End If
End Sub

@Sasha_Smirnov · 07.04.2011, 17:58

Испытали?

@Alex77755 · 07.04.2011, 22:00

Все так бросились отвечать, что даже не прочитали вопрос:

Написать программу, которая вводит номер некоторого года

не надо определять год, гороскоп и п.р.!
А надо ввести номер года!
Правда непонятно зачем..........

@Sasha_Smirnov · 07.04.2011, 23:46

Ну моя и вводит! Текущий номер года [Year(Now)]. Ok только нажать, это да.

Зато как выводит!..

@kudpro · 29.06.2011, 23:31

Требуется помощь=)

Как заметил мои препод в задании:

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

Вы не заметили, что есть12 подциклов по названиям цвета. То есть 1984 год зеленой крысы, 1985 год зеленой коровы, 1986 год зеленого тигра, и т.д. ... Начиная с 1996 год будет красной крысы, 1997 год красной коровы и т.д.

Следовательно ваша программа выводит немного не так.
Из всего вытекает вопрос как это продправить?=)

Добавлено через 13 часов 27 минут
Поднимем темку вверх

@Gibboustooth · 30.06.2011, 10:34

Код

Visual Basic
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
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
Function YearName(Year As Integer) As String
'Определяем имя года в японском календаре
   Dim iYearDelta As Integer 'Разница между введеным годом и годом начала отсчета
   Dim iPosCycle As Integer  'Номер года в текущем 60-летнем цикле
   Dim iAnimal As Integer    'Номер животного
   Dim iColor As Integer     'Номер цвета
   Dim sColor As String      'Имя животного
   Dim sAnimal As String     'Имя цвета
 
   Const StartYear As Integer = 1983 'Год начала отсчета
 
   iYearDelta = Year - StartYear
   
   iPosCycle = Abs(iYearDelta) Mod 60
   'Если введен год, меньший года начала отсчета, считать позицию надо с конца цикла
   If iYearDelta <= 0 Then iPosCycle = 60 - iPosCycle
   
   iColor = (iPosCycle - 1) \ 12 + 1
   iAnimal = iPosCycle Mod 12
   
   'Считаем цвет года без окончания, так как еще не знаем рода
   Select Case iColor
      Case 1: sColor = "зелено"
      Case 2: sColor = "красно"
      Case 3: sColor = "желто"
      Case 4: sColor = "бело"
      Case 5: sColor = "черно"
   End Select
   
   Select Case iAnimal
      Case 0: sAnimal = "свиньи"
      Case 1: sAnimal = "крысы"
      Case 2: sAnimal = "коровы"
      Case 3: sAnimal = "тигра"
      Case 4: sAnimal = "зайца"
      Case 5: sAnimal = "дракона"
      Case 6: sAnimal = "змеи"
      Case 7: sAnimal = "лошади"
      Case 8: sAnimal = "овцы"
      Case 9: sAnimal = "обезьяны"
      Case 10: sAnimal = "курицы"
      Case 11: sAnimal = "собаки"
   End Select
   
   'В зависимости от рода животного добавляем к цвету окончание
   Select Case iAnimal
      Case 3, 4, 5: sColor = sColor & "го"
      Case Else: sColor = sColor & "й"
   End Select
   
   YearName = "Год " & sColor & " " & sAnimal
End Function

@kudpro · 30.06.2011, 13:15

Доработанная программа
Пригодиться кому-то

@Gibboustooth · 30.06.2011, 13:26

Сообщение от kudpro

Доработанная программа
Пригодиться кому-то

Зачем вы взяли правильную формулу, внесли в нее ошибку и даже не проверили результат?

Значение константы "StartYear" должно быть 1983, а не 1984.

@kudpro · 30.06.2011, 13:29

Я заметил это еще до вашего сообщения=) И перезалил!

@Sasha_Smirnov · 03.12.2011, 08:14

Ну и я перезалил.

Visual Basic
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
Sub AnnualRotation()
Static НомерГода
Dim ЗверьГода%, ЦветЗверя%, Цвет_РодПадеж$, XYanimal(), XYcolour(), сообщение$
 
XYanimal = Array("Xобезьяны", "Xкурицы", "Xсобаки", "Xсвиньи", "Xкрысы", "Xкоровы", _
                "Yтигра", "Yзайца", "Yдракона", "Xзмеи", "Xлошади", "Xовцы")
XYcolour = Array("чёрно", "зелёно", "красно", "жёлто", "бело") 'уточнить последовательность!
    
    If НомерГода = Empty Then
        НомерГода = Year(Date)      ' инициализация переменной НомерГода текущим годом
    Else: НомерГода = НомерГода + 1 ' следующий год при следующем запуске; Word открыт
    End If
    
    НомерГода = Val(InputBox("Ввод: OK", "Номер года (до нашей эры — отрицательный)", НомерГода))
    
If IsNumeric(НомерГода) Then
ЗверьГода = IIf(НомерГода < 0, (13 + НомерГода Mod 12) Mod 12, НомерГода Mod 12)
ЦветЗверя = IIf(НомерГода < 0, 4 - ((50 - НомерГода) Mod 60) \ 12, ((8 + НомерГода) Mod 60) \ 12) ' в др. версии: , (6 + НомерГода Mod 5) Mod 5, НомерГода Mod 5)
    
    If Left(XYanimal(ЗверьГода), 1) = "X" Then Цвет_РодПадеж = "й" Else Цвет_РодПадеж = "го"
    
    сообщение = Abs(НомерГода) & " год " & IIf(НомерГода < 0, "до н. э. ", "") & "— это год " & _
    XYcolour(ЦветЗверя) & Цвет_РодПадеж & " " & Mid(XYanimal(ЗверьГода), 2) & "."
    
    If InputBox(сообщение & vbCr & vbCr & "Выход: Cancel; новый год: OK.", _
        "Сегодня " & WeekdayName(Weekday(Now, vbMonday)), НомерГода + 1) <> Empty Then
        Selection.TypeText Chr(13) & сообщение
        Call AnnualRotation
    End If
End If
End Sub

@Alex77755 · 03.12.2011, 19:30

То есть 1984 год зеленой крысы, 1985 год зеленой коровы, 1986 год зеленого тигра,

Если верить википедии:
1984 - деревянной синей крысы
1985 - деревянного синего быка
1986 - огненного красного тигра
Ну и так далее..

Новые блоги и статьи Все статьи Все блоги /
делаю науч статью по влиянию грибов на сукцессию anaschu 13.03.2026 прикрепляю статью	SDL3 для Desktop (MinGW): Создаём пустое окно с нуля для 2D-графики на SDL3, Си и C++ 8Observer8 10.03.2026 Содержание блога Финальные проекты на Си и на C++: hello-sdl3-c. zip hello-sdl3-cpp. zip Результат:	Установка CMake и MinGW 13.1 для сборки С и C++ приложений из консоли и из Qt Creator в EXE 8Observer8 10.03.2026 Содержание блога MinGW - это коллекция инструментов для сборки приложений в EXE. CMake - это система сборки приложений. Здесь описаны базовые шаги для старта программирования с помощью CMake и. . .	Как дизайн сайта влияет на конверсию: 7 решений, которые реально повышают заявки Neotwalker 08.03.2026 Многие до сих пор воспринимают дизайн сайта как “красивую оболочку”. На практике всё иначе: дизайн напрямую влияет на то, оставит человек заявку или уйдёт через несколько секунд. Даже если у вас. . .
Модульная разработка через nuget packages DevAlt 07.03.2026 Сложившийся в . Net-среде способ разработки чаще всего предполагает монорепозиторий в котором находятся все исходники. При создании нового решения, мы просто добавляем нужные проекты и имеем. . .	Модульный подход на примере F# DevAlt 06.03.2026 В блоге дяди Боба наткнулся на такое определение: В этой книге («Подход, основанный на вариантах использования») Ивар утверждает, что архитектура программного обеспечения — это структуры,. . .	Управление камерой с помощью скрипта OrbitControls.js на Three.js: Вращение, зум и панорамирование 8Observer8 05.03.2026 Содержание блога Финальная демка в браузере работает на Desktop и мобильных браузерах. Итоговый код: orbit-controls-threejs-js. zip. Сканируйте QR-код на мобильном. Вращайте камеру одним пальцем,. . .	SDL3 для Web (WebAssembly): Синхронизация спрайтов SDL3 и тел Box2D 8Observer8 04.03.2026 Содержание блога Финальная демка в браузере. Итоговый код: finish-sync-physics-sprites-sdl3-c. zip На первой гифке отладочные линии отключены, а на второй включены:. . .

@TAMB 2 / 2 / 0 Регистрация: 10.02.2010 Сообщений: 50

	Программа старояпонский календарь 20.12.2010, 18:44. Показов 9072. Ответов 24 Метки нет (Все метки) В старояпонском календаре был принят 12-летний цикл. Годы внутри цикла носили названия животных: крысы, коровы, тигра, зайца, дракона, змеи, лошади, овцы, обезьяны, курицы, собаки и свиньи. Написать программу, которая вводит номер некоторого года и печатает его название по старояпонскому календарю. (Справка: 1996 г. — год Крысы — начало очередного цикла.) Помогите пожалуйста! очень нужно, зачет не поставят 2

@Vlanib Частенько бываю 750 / 331 / 42 Регистрация: 20.06.2007 Сообщений: 854
	23.12.2010, 07:27
	Sasha_Smirnov, я смотрю вы так увлеклись этой вобщем то тривиальной задачей. Вот вам еще доп. инфа к размышлению. В древнем японском календаре был принят 60-летний цикл, состоящий из пяти 12-летних подциклов. Подциклы означались названиями цветов: зеленый, красный, желтый, белый и черный. Внутри каждого подцикла годы носили названия животных: крыса, корова, тигр, заяц, дракон, змея, лошадь, овца, обезьяна, курица, собака и свинья. Например, 1984 год – год начала очередного цикла – назывался годом зеленой крысы. Составить программу, которая по заданному номеру года нашей эры N выводит его название по древнему японскому календарю с учетом цвета. Доводите уже ваш код со совершенства. Справитесь? 0

@raptile 0 / 0 / 1 Регистрация: 21.12.2010 Сообщений: 22
	25.12.2010, 07:27
	Привет, а вы можете ету же программу написать для паскаля? В старояпонском календаре был принят 12-летний цикл. Годы внутри цикла носили названия животных: крысы, коровы, тигра, зайца, дракона, змеи, лошади, овцы, обезьяны, курицы, собаки и свиньи. Написать программу, которая вводит номер некоторого года и печатает его название по старояпонскому календарю. (Справка: 1996 г. — год Крысы — начало очередного цикла.) 0

@Sasha_Smirnov 5562 / 1370 / 150 Регистрация: 08.02.2009 Сообщений: 4,109 Записей в блоге: 30
	25.12.2010, 23:11
	Ету? Ну да, могу. А вы? Но вы там уже, наверно, рождество во всю гуляете... А паскаль у меня не установлен! Так что используйте сообщение #2 от Пуфыстик185 — только в терминах паскаля. 0

@Sasha_Smirnov 5562 / 1370 / 150 Регистрация: 08.02.2009 Сообщений: 4,109 Записей в блоге: 30
	07.04.2011, 17:58
	Испытали? 0

@Sasha_Smirnov 5562 / 1370 / 150 Регистрация: 08.02.2009 Сообщений: 4,109 Записей в блоге: 30
	07.04.2011, 23:46
	Ну моя и вводит! Текущий номер года [Year(Now)]. Ok только нажать, это да. Зато как выводит!.. 0

@kudpro 28 / 3 / 1 Регистрация: 12.05.2011 Сообщений: 60
	29.06.2011, 23:31
	Требуется помощь=) Как заметил мои препод в задании: В древнем японском календаре был принят 60-летний цикл, состоящий из пяти 12-летних подциклов. Подциклы озна-чались названиями цветов: зеленый, красный, желтый, белый и черный. Внутри каждого подцикла годы носили названия жи-вотных: крыса, корова, тигр, заяц, дракон, змея, лошадь, овца, обезьяна, курица, собака и свинья. Например, 1984 год – год на-чала очередного цикла – назывался годом зеленой крысы. Вы не заметили, что есть12 подциклов по названиям цвета. То есть 1984 год зеленой крысы, 1985 год зеленой коровы, 1986 год зеленого тигра, и т.д. ... Начиная с 1996 год будет красной крысы, 1997 год красной коровы и т.д. Следовательно ваша программа выводит немного не так. Из всего вытекает вопрос как это продправить?=) Добавлено через 13 часов 27 минут Поднимем темку вверх 0

@kudpro 28 / 3 / 1 Регистрация: 12.05.2011 Сообщений: 60
	30.06.2011, 13:29
	Я заметил это еще до вашего сообщения=) И перезалил! 0