Старояпонский календарь - Turbo Pascal
Формулировка задачи:
26. В старояпонском календаре был принят 60-летний цикл, состоявший из пяти 12-летних подциклов. Подциклы обозначались названиями цвета: зеленый, красный, желтый, белый и черный. Внутри каждого подцикла годы носили названия животных: крысы, коровы, тигра, зайца, дракона, змеи, лошади, овцы, обезьяны, курицы, собаки и свиньи. 1984 – год зеленой крысы – был началом очередного цикла. Напишите программу, которая вводит номер некоторого года нашей эры и печатает его название по старояпонскому календарю.
Решение задачи: «Старояпонский календарь»
textual
Листинг программы
uses crt; var n,i,m,g,gg:integer; begin writeln('vvedite god'); readln(n); if n > 1983 then begin while n>1983 do n:=n-60; m:=n-1923; end else begin while n<1983 do n:=n+60; m:=n-1983; end; g:=(m div 12)+1; gg:=m mod 12; case g of 1: write('zeleno'); 2: write('krasno'); 3: write('zelto'); 4: write('belo'); 5: write('cherno'); 6: write('cherno'); end; case gg of 1: write('j krusu'); 2: write('j korovu'); 3: write('go tigra'); 4: write('go zajca'); 5: write('go drakona'); 6: write('j zmei'); 7: write('j loshadi'); 8: write('j ovcu'); 9: write('j obizjanu'); 10: write('j kyricu'); 11: write('j sobaki'); 0: write('j svinji'); end; readln; end.
ИИ поможет Вам:
- решить любую задачу по программированию
- объяснить код
- расставить комментарии в коде
- и т.д