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

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

Небольшая кликабельная картинка, поясняющая, что хотел сказать автор задачи:

Решение:

program Case19;
var
  N:Integer;
begin
  Write('Введите год: ');
  Readln(N);
  Write('год ');

  case (N mod 10) of
   0,1: write('бел');
   2,3: write('черн');
   4,5: Write('зелён');
   6,7: Write('красн');
   8,9: Write('жёлт');
  end;
  case (N mod 12) of
   0..5,9..11: Write('ой ');
   6..8:Write('ого ');
  end;
  case ((N+8) mod 12) 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('свиньи');
  end;
end.

program Case19;

var

N:Integer;

begin

Write('Введите год: ');

Readln(N);

Write('год ');

case (N mod 10) of

0,1: write('бел');

2,3: write('черн');

4,5: Write('зелён');

6,7: Write('красн');

8,9: Write('жёлт');

end;

case (N mod 12) of

0..5,9..11: Write('ой ');

6..8:Write('ого ');

end;

case ((N+8) mod 12) 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('свиньи');

end;

end.

Решение от olegst1975:

program Case19;
var
 n,n1,n2:integer;
begin
  Write('Введите год: ');
  Readln(n);
  if n<1984 then n1:=11+(n-1983)mod 12 else n1:=(n-1984)mod 12;//номер животного
  if n<1984 then n2:=4+((n-1983)mod 10)div 2 else n2:=((n-1984)mod 10)div 2;// номер цвета
  write(n,' - год ');
  case n2 of //тут 2,3,4 - это тигр, заяц, дракон
   0:if n1 in[2,3,4] then write('зеленого ')else write('зеленой ');
   1:if n1 in[2,3,4] then write('красного ')else write('красной ');
   2:if n1 in[2,3,4] then write('желтого ')else write('желтой ');
   3:if n1 in[2,3,4] then write('белого ')else write('белой ');
   4:if n1 in[2,3,4] then write('черного ')else write('черной ');
  end;
  case n1 of
   0:writeln('крысы');
   1:writeln('коровы');
   2:writeln('тигра');
   3:writeln('зайца');
   4:writeln('дракона');
   5:writeln('змеи');
   6:writeln('лошади');
   7:writeln('овцы');
   8:writeln('обезьяны');
   9:writeln('курицы');
   10:writeln('собаки');
   11:writeln('свиньи');
  end;
end.

program Case19;

var

n,n1,n2:integer;

begin

Write('Введите год: ');

Readln(n);

if n<1984 then n1:=11+(n-1983)mod 12 else n1:=(n-1984)mod 12;//номер животного

if n<1984 then n2:=4+((n-1983)mod 10)div 2 else n2:=((n-1984)mod 10)div 2;// номер цвета

write(n,' - год ');

case n2 of //тут 2,3,4 - это тигр, заяц, дракон

0:if n1 in[2,3,4] then write('зеленого ')else write('зеленой ');

1:if n1 in[2,3,4] then write('красного ')else write('красной ');

2:if n1 in[2,3,4] then write('желтого ')else write('желтой ');

3:if n1 in[2,3,4] then write('белого ')else write('белой ');

4:if n1 in[2,3,4] then write('черного ')else write('черной ');

end;

case n1 of

0:writeln('крысы');

1:writeln('коровы');

2:writeln('тигра');

3:writeln('зайца');

4:writeln('дракона');

5:writeln('змеи');

6:writeln('лошади');

7:writeln('овцы');

8:writeln('обезьяны');

9:writeln('курицы');

10:writeln('собаки');

11:writeln('свиньи');

end;

end.

Другие задачи из раздела Case можно посмотреть здесь.

Комментарии 36

Кирилл

05.12.2014 в 20:16

что-то не ладится с соввпадением цвета в задачнике

Ответить
- Anton
  
  05.12.2014 в 20:43
  
  Да они меня здесь совсем запутали с зелёными крысами 🙂
  Было
  
  Delphi/Pascal
  
  case (N mod 60)div 12 of
  
  1
  
  case (N mod 60)div 12 of
  
  Стало:
  
  Delphi/Pascal
  
  case ((N+1) mod 5) of
  
  1
  
  case ((N+1) mod 5) of
  
  Ответить
  - Кирилл
    
    05.12.2014 в 21:01
    
    Всё равно не на всех хочет. 1850, 1833, 2040, 1819, например, не получается
    
    Ответить
    - Anton
      
      08.12.2014 в 15:01
      
      А что должно показывать в те года ?
      
      Ответить
      - olegst1975
        
        06.12.2015 в 11:41
        
        Действительно не ладится. Ведь при
        
        [crayon-6741920101849560611863 inline="true" ] case ((N+1) mod 5) of
        
        1
        2
        
        [crayon-6741920101849560611863 inline="true" ]
        case ((N+1) mod 5) of
        
        [/crayon]
        цвета меняются каждые пять лет, а нужно двенадцать.
        
        Ответить

program abc;
uses crt;

var g,i,cikl,Pcikl:word; 

begin
for i:=1 to 10 do begin
 textcolor(7);
 write('Введите год: ');
 textcolor(10);
 readln(g);
 writeln;
 textcolor(10);
 write(' год ');
 cikl:=(g-4)-trunc((g-4)/60)*60;
 if (cikl>=12) then begin 
                    Pcikl:=cikl div 12;
                    case Pcikl of
                    1:write('красн');
                    2:write('жёлт');
                    3:write('бел');
                    4:write('чёрн');
                    end;
                      case cikl mod 12 of
                      2,3,4:write('ого ');
                      else write('ой ');
                      end;
                        case cikl mod 12 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('свиньи');
                        end;
                    end
               else begin
                      write('зелён');
                      case cikl of
                      2,3,4:write('ого ');
                      else write('ой ');
                      end;
                      case cikl 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('свиньи');
                      end;
                    end;
                    
 writeln;
 writeln;
 textcolor(12);
 writeln('   КОНЕЦ');
 readkey;
 clrscr;
 end;
textcolor(12);
end.

program abc;

uses crt;

var g,i,cikl,Pcikl:word;

begin

for i:=1 to 10 do begin

textcolor(7);

write('Введите год: ');

textcolor(10);

readln(g);

writeln;

textcolor(10);

write(' год ');

cikl:=(g-4)-trunc((g-4)/60)*60;

if (cikl>=12) then begin

Pcikl:=cikl div 12;

case Pcikl of

1:write('красн');

2:write('жёлт');

3:write('бел');

4:write('чёрн');

end;

case cikl mod 12 of

2,3,4:write('ого ');

else write('ой ');

end;

case cikl mod 12 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('свиньи');

end;

end

else begin

write('зелён');

case cikl of

2,3,4:write('ого ');

else write('ой ');

end;

case cikl 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('свиньи');

end;

writeln;

textcolor(12);

writeln(' КОНЕЦ');

readkey;

clrscr;

end;

textcolor(12);

end.

Ответить

Вот код покороче

program case19;
uses crt;
var N:integer;
begin
writeln('Введите год');
read(N);
write(N);
case (N-4) mod 60 of 
0,1,2,3,4,5,6,7,8,9,10,11:write(' - год зелен');
12,13,14,15,16,17,18,19,20,21,22,23:write(' - год красн');
24,25,26,27,28,29,30,31,32,33,34,35:write(' - год желт');
36,37,38,39,40,41,42,43,44,45,46,47:write(' - год бел');
48,49,50,51,52,53,54,55,56,57,58,59:write(' - год черн');
end;
case (N-4) mod 12 of
0,1,5,6,7,8,9,10,11:write('ой ');
2,3,4:write('ого ');
end;
case (N-4) mod 12 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('свиньи ');
end;
readkey;
end.

program case19;

uses crt;

var N:integer;

begin

writeln('Введите год');

read(N);

write(N);

case (N-4) mod 60 of

0,1,2,3,4,5,6,7,8,9,10,11:write(' - год зелен');

12,13,14,15,16,17,18,19,20,21,22,23:write(' - год красн');

24,25,26,27,28,29,30,31,32,33,34,35:write(' - год желт');

36,37,38,39,40,41,42,43,44,45,46,47:write(' - год бел');

48,49,50,51,52,53,54,55,56,57,58,59:write(' - год черн');

end;

case (N-4) mod 12 of

0,1,5,6,7,8,9,10,11:write('ой ');

2,3,4:write('ого ');

end;

case (N-4) mod 12 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('свиньи ');

end;

readkey;

end.

Ответить

Можно изменить запись на:

case (N-4) mod 60 of 
 0..11:write(' - год зелен');
 12..23:write(' - год красн');
 24..35:write(' - год желт');
 36..47:write(' - год бел');
 48..59:write(' - год черн');
end;

case (N-4) mod 60 of

0..11:write(' - год зелен');

12..23:write(' - год красн');

24..35:write(' - год желт');

36..47:write(' - год бел');

48..59:write(' - год черн');

end;

И если уж так не прочь много писать … то можно избавиться ещё от

case (N-4) mod 12 of
0,1,5,6,7,8,9,10,11:write('ой ');
2,3,4:write('ого ');
end;

case (N-4) mod 12 of

0,1,5,6,7,8,9,10,11:write('ой ');

2,3,4:write('ого ');

end;

заменив

case (N-4) mod 12 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('свиньи ');
end;

case (N-4) mod 12 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('свиньи ');

end;

на

case (N-4) mod 12 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('ой свиньи ');
end;

case (N-4) mod 12 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('ой свиньи ');

end;

Ответить

olegst1975

06.12.2015 в 03:29

Конечно Александр этого не прочитает, но код не будет работать с 0,1,2 и 3 годами. При остальных — все отлично.

Ответить

Не мог пройти мимо. В решении отталкивался от разницы исследуемого года и 1984. Работает и с отрицательными числами.

[crayon-6741920101884373643923 inline="true" ]
var
 n,n1,n2:integer;
begin
  if n<1984 then n1:=11+(n-1983)mod 12 else n1:=(n-1984)mod 12;//номер животного
  if n<1984 then n2:=4+((n-1983)div 12)mod 5 else n2:=((n-1984)div 12)mod 5;// номер цвета
  write(n,' - год ');
  case n2 of //тут 2,3,4 - это тигр, заяц, дракон
  0:if (n1=2) or (n1=3) or (n1=4) then write('зеленого ')else write('зеленой ');
  1:if (n1=2) or (n1=3) or (n1=4) then write('красного ')else write('красной ');
  2:if (n1=2) or (n1=3) or (n1=4) then write('желтого ')else write('желтой ');
  3:if (n1=2) or (n1=3) or (n1=4) then write('белого ')else write('белой ');
  4:if (n1=2) or (n1=3) or (n1=4) then write('черного ')else write('черной ');
  end;
  case n1 of
   0:writeln('крысы');
   1:writeln('коровы');
   2:writeln('тигра');
   3:writeln('зайца');
   4:writeln('дракона');
   5:writeln('змеи');
   6:writeln('лошади');
   7:writeln('овцы');
   8:writeln('обезьяны');
   9:writeln('курицы');
   10:writeln('собаки');
   11:writeln('свиньи');
  end;
end.

[crayon-6741920101884373643923 inline="true" ]

var

n,n1,n2:integer;

begin

if n<1984 then n1:=11+(n-1983)mod 12 else n1:=(n-1984)mod 12;//номер животного

if n<1984 then n2:=4+((n-1983)div 12)mod 5 else n2:=((n-1984)div 12)mod 5;// номер цвета

write(n,' - год ');

case n2 of //тут 2,3,4 - это тигр, заяц, дракон

0:if (n1=2) or (n1=3) or (n1=4) then write('зеленого ')else write('зеленой ');

1:if (n1=2) or (n1=3) or (n1=4) then write('красного ')else write('красной ');

2:if (n1=2) or (n1=3) or (n1=4) then write('желтого ')else write('желтой ');

3:if (n1=2) or (n1=3) or (n1=4) then write('белого ')else write('белой ');

4:if (n1=2) or (n1=3) or (n1=4) then write('черного ')else write('черной ');

end;

case n1 of

0:writeln('крысы');

1:writeln('коровы');

2:writeln('тигра');

3:writeln('зайца');

4:writeln('дракона');

5:writeln('змеи');

6:writeln('лошади');

7:writeln('овцы');

8:writeln('обезьяны');

9:writeln('курицы');

10:writeln('собаки');

11:writeln('свиньи');

end;

end.

[/crayon]

Ответить

olegst1975

08.12.2015 в 17:56

Если хотим узнать хоть какой нибудь год кроме нулевого — в пятой строке нужно вставить: read(n). Забыл))

Ответить
- Anton
  
  09.12.2015 в 08:38
  
  Спасибо.
  Поправил.
  
  Ответить
  - olegst1975
    
    09.12.2015 в 14:53
    
    Еще выше.. до if.5-я строка будет самое оно.
    
    Ответить
    - Anton
      
      09.12.2015 в 14:57
      
      Забыл применить изменения 🙁
      
      Ответить

обнаружил, что в моём решении не правильно определялся цвет.
Поправил:
Было:

  case ((N+1) mod 5) of
   0: write('зелен');
   1: write('крас');
   2: Write('желт');
   3: Write('бел');
   4: Write('черн ');
  end;

case ((N+1) mod 5) of

0: write('зелен');

1: write('крас');

2: Write('желт');

3: Write('бел');

4: Write('черн ');

end;

Стало:

  case (N mod 10) of
   0,1: write('бел');
   2,3: write('черн');
   4,5: Write('зелён');
   6,7: Write('красн');
   8,9: Write('жёлт');
  end;

case (N mod 10) of

0,1: write('бел');

2,3: write('черн');

4,5: Write('зелён');

6,7: Write('красн');

8,9: Write('жёлт');

end;

Ответить

olegst1975

08.03.2016 в 13:57

Не помогло. Вот результаты
1984 — год зелёной крысы
1985 — год зелёной коровы
1986 — год красного тигра
1987 — год красного зайца
1988 — год жёлтого дракона
1989 — год жёлтой змеи
1990 — год белой лошади
1991 — год белой овцы
1992 — год черной обезьяны
1993 — год черной курицы
1994 — год зелёной собаки
1995 — год зелёной свиньи

Ответить

именно … 🙂
Вот даже картинку нашёл:
Восточный гороскоп

Ответить

Нет, ну так нельзя формулировать задачи) Антон, поздравляю, все остальные в комментах решали и решили(!), что цвет «длится» 12 лет. Поправил с учетом вновь открывшихся обстоятельств(строки с 5 по 13):

[crayon-6741920101746220093891 inline="true" ]
if n<1984 then n1:=11+(n-1983)mod 12 else n1:=(n-1984)mod 12;//номер животного
  if n<1984 then n2:=4+((n-1983)mod 10)div 2 else n2:=((n-1984)mod 10)div 2;// номер цвета
  write(n,' - год ');
  case n2 of //тут 2,3,4 - это тигр, заяц, дракон
  0:if n1 in[2,3,4] then write('зеленого ')else write('зеленой ');
  1:if n1 in[2,3,4] then write('красного ')else write('красной ');
  2:if n1 in[2,3,4] then write('желтого ')else write('желтой ');
  3:if n1 in[2,3,4] then write('белого ')else write('белой ');
  4:if n1 in[2,3,4] then write('черного ')else write('черной ');

[crayon-6741920101746220093891 inline="true" ]

if n<1984 then n1:=11+(n-1983)mod 12 else n1:=(n-1984)mod 12;//номер животного

if n<1984 then n2:=4+((n-1983)mod 10)div 2 else n2:=((n-1984)mod 10)div 2;// номер цвета

write(n,' - год ');

case n2 of //тут 2,3,4 - это тигр, заяц, дракон

0:if n1 in[2,3,4] then write('зеленого ')else write('зеленой ');

1:if n1 in[2,3,4] then write('красного ')else write('красной ');

2:if n1 in[2,3,4] then write('желтого ')else write('желтой ');

3:if n1 in[2,3,4] then write('белого ')else write('белой ');

4:if n1 in[2,3,4] then write('черного ')else write('черной ');

[/crayon]

Ответить

да сам в шоке… час убил чтоб поставить точку в этом вопросе 🙂 притом большая часть была поиск гороскопов, и как всё таки они правильно считаются 🙂
Поправил ваше решение.
Было:

if n<1984 then n1:=11+(n-1983)mod 12 else n1:=(n-1984)mod 12;//номер животного
 if n<1984 then n2:=4+((n-1983)div 12)mod 5 else n2:=((n-1984)div 12)mod 5;// номер цвета
 write(n,' - год ');
 case n2 of //тут 2,3,4 - это тигр, заяц, дракон
   0:if (n1=2) or (n1=3) or (n1=4) then write('зеленого ')else write('зеленой ');
   1:if (n1=2) or (n1=3) or (n1=4) then write('красного ')else write('красной ');
   2:if (n1=2) or (n1=3) or (n1=4) then write('желтого ')else write('желтой ');
   3:if (n1=2) or (n1=3) or (n1=4) then write('белого ')else write('белой ');
   4:if (n1=2) or (n1=3) or (n1=4) then write('черного ')else write('черной ');

if n<1984 then n1:=11+(n-1983)mod 12 else n1:=(n-1984)mod 12;//номер животного

if n<1984 then n2:=4+((n-1983)div 12)mod 5 else n2:=((n-1984)div 12)mod 5;// номер цвета

write(n,' - год ');

case n2 of //тут 2,3,4 - это тигр, заяц, дракон

0:if (n1=2) or (n1=3) or (n1=4) then write('зеленого ')else write('зеленой ');

1:if (n1=2) or (n1=3) or (n1=4) then write('красного ')else write('красной ');

2:if (n1=2) or (n1=3) or (n1=4) then write('желтого ')else write('желтой ');

3:if (n1=2) or (n1=3) or (n1=4) then write('белого ')else write('белой ');

4:if (n1=2) or (n1=3) or (n1=4) then write('черного ')else write('черной ');

Стало:

 if n<1984 then n1:=11+(n-1983)mod 12 else n1:=(n-1984)mod 12;//номер животного
  if n<1984 then n2:=4+((n-1983)mod 10)div 2 else n2:=((n-1984)mod 10)div 2;// номер цвета
  write(n,' - год ');
  case n2 of //тут 2,3,4 - это тигр, заяц, дракон
  0:if n1 in[2,3,4] then write('зеленого ')else write('зеленой ');
  1:if n1 in[2,3,4] then write('красного ')else write('красной ');
  2:if n1 in[2,3,4] then write('желтого ')else write('желтой ');
  3:if n1 in[2,3,4] then write('белого ')else write('белой ');
  4:if n1 in[2,3,4] then write('черного ')else write('черной ');

if n<1984 then n1:=11+(n-1983)mod 12 else n1:=(n-1984)mod 12;//номер животного

if n<1984 then n2:=4+((n-1983)mod 10)div 2 else n2:=((n-1984)mod 10)div 2;// номер цвета

write(n,' - год ');

case n2 of //тут 2,3,4 - это тигр, заяц, дракон

0:if n1 in[2,3,4] then write('зеленого ')else write('зеленой ');

1:if n1 in[2,3,4] then write('красного ')else write('красной ');

2:if n1 in[2,3,4] then write('желтого ')else write('желтой ');

3:if n1 in[2,3,4] then write('белого ')else write('белой ');

4:if n1 in[2,3,4] then write('черного ')else write('черной ');

Ответить

Я решил задачу так)
Ооооочень много писал)
Дело в том, что смещая года зодиака в отрицательную сторону на 3 порядка мы получаем верный результат.
Не совсем понимаю почему так получается

var
a,b,c,d:integer;
begin
  
readln(a);
d:=((a) mod 60);
c:=((d-1) div 12)+1;
b:=c;

c:=((d-1) mod 12)-2;
d:=c;
if (d<=0) then c:=12+d;
a:=b;
if (d<=0) then b:=a-1;
if (b=0) then b:=5;
 case b of
 
 1:begin
 
 if c=12 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('зелёный год курицы');
 if c=11 then write('зелёный год собаки');
 
 end;
 
 2:begin
 if c=12 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('красный год курицы');
 if c=11 then write('красный год собаки');
 end;
 
 3:begin
 if c=12 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('желтый год курицы');
 if c=11 then write('желтый год собаки');
 end;
 
 4:begin
 if c=12 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('белый год курицы');
 if c=11 then write('белый год собаки');
 end;
 
 5:begin
 if c=12 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('черный год курицы');
 if c=11 then write('черный год собаки');
 end;
 
 end;
end.

var

a,b,c,d:integer;

begin

readln(a);

d:=((a) mod 60);

c:=((d-1) div 12)+1;

b:=c;

c:=((d-1) mod 12)-2;

d:=c;

if (d<=0) then c:=12+d;

a:=b;

if (d<=0) then b:=a-1;

if (b=0) then b:=5;

case b of

1:begin

if c=12 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('зелёный год курицы');

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

end;

2:begin

if c=12 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('красный год курицы');

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

end;

3:begin

if c=12 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('желтый год курицы');

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

end;

4:begin

if c=12 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('белый год курицы');

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

end;

5:begin

if c=12 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('черный год курицы');

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

end;

end.

Ответить

Евгений

12.05.2016 в 14:16

В этом алгоритме ответы совпадают с ответом в Pascal учебнике.

Ответить
- Anton
  
  12.05.2016 в 14:22
  
  а можно по подробнее про ответы в учебнике? потому как данный алгоритм, точно не совместим с реальностью, то есть как на самом деле идут цвета в году. 🙂
  
  Ответить
  - Евгений
    
    12.05.2016 в 14:40
    
    Вот ответ в учебнике
    
    а на самом деле 2001 год это год белой змеи)))))
    
    Ответить
    - Anton
      
      12.05.2016 в 14:53
      
      да … не даром к этой задаче столько комментариев 🙂 не все могут её решить правильно 🙂 даже авторы некоторых задачников…
      И это не столько сложность задачи, сколько не полнота её описания..
      
      Ответить
  - Евгений
    
    12.05.2016 в 14:55
    
    Прочёл на вики, что начала 60 летнего цикла переносили несколько раз.
    По-этому ответ в задачнике не совпадает.
    
    Ответить
    - Anton
      
      12.05.2016 в 15:13
      
      в задании из задачника чётко указан 1984 год как начало цикла… так что это не оправдание 🙂
      
      Ответить
      - Евгений
        
        12.05.2016 в 15:24
        
        Однако, ответ в задачнике не правильный)
        А значит, что цикл опять перенесли)
        У меня ответы с задачнком совпадают, а вот с реалиями нет XD
        
        Ответить
        
        Anton
        
        12.05.2016 в 15:40
        
        Значит, там ответы кардинально отличаются от календаря.
        Цвета в календаре идут по два одинаковых. То есть :
        зелёный, зелёный, красный, красный, жёлтый, жёлтый, белый, белый, синий, синий.
        А у вас в решении 12 зелёных подряд, потом 12 красных подряд, и т.д.
        То есть в корне отличается с реальностью…
        
        Ответить
Евгений

12.05.2016 в 14:34

Но не совпадают с календарём)))

Ответить
- Anton
  
  12.05.2016 в 14:37
  
  А приведите пример ответов? и ещё бы с названием учебника…
  
  Ответить
  - Евгений
    
    12.05.2016 в 14:49
    
    Это скорее задачник)
    
    Ответить
    - Anton
      
      12.05.2016 в 14:52
      
      Да, спасибо увидел комментарий выше.
      
      Ответить

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

Chinagoroskop

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.

Ответить

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

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.

Ответить

Евгений

13.05.2016 в 10:29

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

Ответить
- Anton
  
  13.05.2016 в 10:34
  
  Не надо самобичеваний, всё будет хорошо 🙂
  
  Ответить

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

Комментарии:

Комментарии 36

Добавить комментарий Отменить ответ