Комментарии: Решаем задачи Абрамян на Паскале. Case19

Автор: Anton

Anton — Fri, 13 May 2016 06:34:21 +0000

В ответ на Евгений. Не надо самобичеваний, всё будет хорошо :)

Автор: Евгений

Евгений — Fri, 13 May 2016 06:29:27 +0000

В ответ на Anton. Потому что я только 8 дней учу pascal и покачто я тупой XD.

Автор: Anton

Anton — Fri, 13 May 2016 03:50:39 +0000

Ну да… много буковок 🙂
но зачем тогда эти страшные вычисления?
почему не так:

var
a,d:integer;
begin
 
readln(a);
d:=(a mod 60);
 
 case d of
  0: write('белый год обезьяны');
  1: write('белый год курицы');
  2: write('чёрный год собаки');
  3: write('чёрный год свиньи');
  4: write('зелёный год крысы');
  5: write('зелёный год коровы');
  6: write('красный год тигра');
  7: write('красный год зайца');
  8: write('жёлтый год дракона');
  9: write('жёлтый год змеи');
  10: write('белый год лошади');
  11: write('белый год овцы');
  12: write('чёрный год обезьяны');
  13: write('чёрный год курицы');
  14: write('зелёный год собаки');
  15: write('зелёный год свиньи');
  16: write('красный год крысы');
  17: write('красный год коровы');
  18: write('жёлтый год тигра');
  19: write('жёлтый год зайца');
  20: write('белый год дракона');
  21: write('белый год змеи');
  22: write('чёрный год лошади');
  23: write('чёрный год овцы');
  24: write('зелёный год обезьяны');
  25: write('зелёный год курицы');
  26: write('красный год собаки');
  27: write('красный год свиньи');
  28: write('желтыйй год крысы');
  29: write('желтый год коровы');
  30: write('белый год тигра');
  31: write('белый год зайца');
  32: write('чёрный год дракона');
  33: write('чёрный год змеи');
  34: write('зелёный год лошади');
  35: write('зелёный год овцы');
  36: write('красный год обезьяны');
  37: write('красый год курицы');
  38: write('желтый год собаки');
  39: write('желтый год свиньи');
  40: write('белый год крысы');
  41: write('белый год коровы');
  42: write('чёрный год тигра');
  43: write('чёрный год зайца');
  44: write('зелёный год дракона');
  45: write('зелёный год змеи');
  46: write('краснй год лошади');
  47: write('красный год овцы');
  48: write('жёлтый год обезьяны');
  49: write('жёлтый год курицы');
  50: write('белый год собаки');
  51: write('белый год свиньи');
  52: write('чёрный год крысы');
  53: write('чёрный год коровы');
  54: write('зелёный год тигра');
  55: write('зелёный год зайца');
  56: write('красный год дракона');
  57: write('красный год змеи');
  58: write('жёлтый год лошади');
  59: write('жёлтый год овцы'); 
 end;
end.

var

a,d:integer;

begin

readln(a);

d:=(a mod 60);

case d of

0: write('белый год обезьяны');

1: write('белый год курицы');

2: write('чёрный год собаки');

3: write('чёрный год свиньи');

4: write('зелёный год крысы');

5: write('зелёный год коровы');

6: write('красный год тигра');

7: write('красный год зайца');

8: write('жёлтый год дракона');

9: write('жёлтый год змеи');

10: write('белый год лошади');

11: write('белый год овцы');

12: write('чёрный год обезьяны');

13: write('чёрный год курицы');

14: write('зелёный год собаки');

15: write('зелёный год свиньи');

16: write('красный год крысы');

17: write('красный год коровы');

18: write('жёлтый год тигра');

19: write('жёлтый год зайца');

20: write('белый год дракона');

21: write('белый год змеи');

22: write('чёрный год лошади');

23: write('чёрный год овцы');

24: write('зелёный год обезьяны');

25: write('зелёный год курицы');

26: write('красный год собаки');

27: write('красный год свиньи');

28: write('желтыйй год крысы');

29: write('желтый год коровы');

30: write('белый год тигра');

31: write('белый год зайца');

32: write('чёрный год дракона');

33: write('чёрный год змеи');

34: write('зелёный год лошади');

35: write('зелёный год овцы');

36: write('красный год обезьяны');

37: write('красый год курицы');

38: write('желтый год собаки');

39: write('желтый год свиньи');

40: write('белый год крысы');

41: write('белый год коровы');

42: write('чёрный год тигра');

43: write('чёрный год зайца');

44: write('зелёный год дракона');

45: write('зелёный год змеи');

46: write('краснй год лошади');

47: write('красный год овцы');

48: write('жёлтый год обезьяны');

49: write('жёлтый год курицы');

50: write('белый год собаки');

51: write('белый год свиньи');

52: write('чёрный год крысы');

53: write('чёрный год коровы');

54: write('зелёный год тигра');

55: write('зелёный год зайца');

56: write('красный год дракона');

57: write('красный год змеи');

58: write('жёлтый год лошади');

59: write('жёлтый год овцы');

end;

end.

Автор: Евгений

Евгений — Thu, 12 May 2016 20:20:19 +0000

А вот версия, которая показывает года в соответствии с этим календарём

var
a,b,c,d:integer;
begin

readln(a);
d:=((a-1900) mod 60);
c:=((d) div 12);
b:=c;

c:=((d) mod 12);

 case b of
 
 0:begin
 
 if c=11 then write('белый год свиньи');
 if c=0 then write('белый год крысы');
 if c=1 then write('белый год коровы');
 if c=2 then write('чёрный год тигра');
 if c=3 then write('чёрный год зайца');
 if c=4 then write('зелёный год дракона');
 if c=5 then write('зелёный год змеи');
 if c=6 then write('краснй год лошади');
 if c=7 then write('красный год овцы');
 if c=8 then write('жёлтый год обезьяны');
 if c=9 then write('жёлтый год курицы');
 if c=10 then write('белый год собаки');
 
 end;
 1:begin
 
 if c=11 then write('чёрный год свиньи');
 if c=0 then write('чёрный год крысы');
 if c=1 then write('чёрный год коровы');
 if c=2 then write('зелёный год тигра');
 if c=3 then write('зелёный год зайца');
 if c=4 then write('красный год дракона');
 if c=5 then write('красный год змеи');
 if c=6 then write('жёлтый год лошади');
 if c=7 then write('жёлтый год овцы');
 if c=8 then write('белый год обезьяны');
 if c=9 then write('белый год курицы');
 if c=10 then write('чёрный год собаки');
 
 end;
 
 2:begin
 if c=11 then write('зелёный год свиньи');
 if c=0 then write('зелёный год крысы');
 if c=1 then write('зелёный год коровы');
 if c=2 then write('красный год тигра');
 if c=3 then write('красный год зайца');
 if c=4 then write('жёлтый год дракона');
 if c=5 then write('жёлтый год змеи');
 if c=6 then write('белый год лошади');
 if c=7 then write('белый год овцы');
 if c=8 then write('чёрный год обезьяны');
 if c=9 then write('чёрный год курицы');
 if c=10 then write('зелёный год собаки');
 end;
 3:begin
 if c=11 then write('красный год свиньи');
 if c=0 then write('красный год крысы');
 if c=1 then write('красный год коровы');
 if c=2 then write('жёлтый год тигра');
 if c=3 then write('жёлтый год зайца');
 if c=4 then write('белый год дракона');
 if c=5 then write('белый год змеи');
 if c=6 then write('чёрный год лошади');
 if c=7 then write('чёрный год овцы');
 if c=8 then write('зелёный год обезьяны');
 if c=9 then write('зелёный год курицы');
 if c=10 then write('красный год собаки');
 end;
 
 4:begin
 if c=11 then write('желтый год свиньи');
 if c=0 then write('желтыйй год крысы');
 if c=1 then write('желтый год коровы');
 if c=2 then write('белый год тигра');
 if c=3 then write('белый год зайца');
 if c=4 then write('чёрный год дракона');
 if c=5 then write('чёрный год змеи');
 if c=6 then write('зелёный год лошади');
 if c=7 then write('зелёный год овцы');
 if c=8 then write('красный год обезьяны');
 if c=9 then write('красый год курицы');
 if c=10 then write('желтый год собаки');
 end;
 
 
 end;
end.

var

a,b,c,d:integer;

begin

readln(a);

d:=((a-1900) mod 60);

c:=((d) div 12);

b:=c;

c:=((d) mod 12);

case b of

0:begin

if c=11 then write('белый год свиньи');

if c=0 then write('белый год крысы');

if c=1 then write('белый год коровы');

if c=2 then write('чёрный год тигра');

if c=3 then write('чёрный год зайца');

if c=4 then write('зелёный год дракона');

if c=5 then write('зелёный год змеи');

if c=6 then write('краснй год лошади');

if c=7 then write('красный год овцы');

if c=8 then write('жёлтый год обезьяны');

if c=9 then write('жёлтый год курицы');

if c=10 then write('белый год собаки');

end;

1:begin

if c=11 then write('чёрный год свиньи');

if c=0 then write('чёрный год крысы');

if c=1 then write('чёрный год коровы');

if c=2 then write('зелёный год тигра');

if c=3 then write('зелёный год зайца');

if c=4 then write('красный год дракона');

if c=5 then write('красный год змеи');

if c=6 then write('жёлтый год лошади');

if c=7 then write('жёлтый год овцы');

if c=8 then write('белый год обезьяны');

if c=9 then write('белый год курицы');

if c=10 then write('чёрный год собаки');

end;

2:begin

if c=11 then write('зелёный год свиньи');

if c=0 then write('зелёный год крысы');

if c=1 then write('зелёный год коровы');

if c=2 then write('красный год тигра');

if c=3 then write('красный год зайца');

if c=4 then write('жёлтый год дракона');

if c=5 then write('жёлтый год змеи');

if c=6 then write('белый год лошади');

if c=7 then write('белый год овцы');

if c=8 then write('чёрный год обезьяны');

if c=9 then write('чёрный год курицы');

if c=10 then write('зелёный год собаки');

end;

3:begin

if c=11 then write('красный год свиньи');

if c=0 then write('красный год крысы');

if c=1 then write('красный год коровы');

if c=2 then write('жёлтый год тигра');

if c=3 then write('жёлтый год зайца');

if c=4 then write('белый год дракона');

if c=5 then write('белый год змеи');

if c=6 then write('чёрный год лошади');

if c=7 then write('чёрный год овцы');

if c=8 then write('зелёный год обезьяны');

if c=9 then write('зелёный год курицы');

if c=10 then write('красный год собаки');

end;

4:begin

if c=11 then write('желтый год свиньи');

if c=0 then write('желтыйй год крысы');

if c=1 then write('желтый год коровы');

if c=2 then write('белый год тигра');

if c=3 then write('белый год зайца');

if c=4 then write('чёрный год дракона');

if c=5 then write('чёрный год змеи');

if c=6 then write('зелёный год лошади');

if c=7 then write('зелёный год овцы');

if c=8 then write('красный год обезьяны');

if c=9 then write('красый год курицы');

if c=10 then write('желтый год собаки');

end;

end.

Автор: Anton

Anton — Thu, 12 May 2016 11:40:28 +0000

В ответ на Евгений. Значит, там ответы кардинально отличаются от календаря. Цвета в календаре идут по два одинаковых. То есть : зелёный, зелёный, красный, красный, жёлтый, жёлтый, белый, белый, синий, синий. А у вас в решении 12 зелёных подряд, потом 12 красных подряд, и т.д. То есть в корне отличается с реальностью...

Автор: Евгений

Евгений — Thu, 12 May 2016 11:24:38 +0000

В ответ на Anton. Однако, ответ в задачнике не правильный) А значит, что цикл опять перенесли) У меня ответы с задачнком совпадают, а вот с реалиями нет XD

Автор: Anton

Anton — Thu, 12 May 2016 11:13:49 +0000

В ответ на Евгений. в задании из задачника чётко указан 1984 год как начало цикла... так что это не оправдание :)

Автор: Евгений

Евгений — Thu, 12 May 2016 10:55:56 +0000

В ответ на Anton. Прочёл на вики, что начала 60 летнего цикла переносили несколько раз. По-этому ответ в задачнике не совпадает.

Автор: Anton

Anton — Thu, 12 May 2016 10:53:20 +0000

В ответ на Евгений. да ... не даром к этой задаче столько комментариев :) не все могут её решить правильно :) даже авторы некоторых задачников... И это не столько сложность задачи, сколько не полнота её описания..

Автор: Anton

Anton — Thu, 12 May 2016 10:52:13 +0000

В ответ на Евгений. Да, спасибо увидел комментарий выше.