Форум программистов
 

Восстановите пароль или Зарегистрируйтесь на форуме, о проблемах и с заказом рекламы пишите сюда - alarforum@yandex.ru, проверяйте папку спам!

Вернуться   Форум программистов > Delphi программирование > Паскаль, Turbo Pascal, PascalABC.NET
Регистрация

Восстановить пароль
Повторная активизация e-mail

Купить рекламу на форуме - 42 тыс руб за месяц

Ответ
 
Опции темы Поиск в этой теме
Старый 03.02.2014, 23:25   #1
schibeki
Пользователь
 
Регистрация: 27.11.2013
Сообщений: 67
По умолчанию Программа через Case

В китайском гороскопе года носят следующие названия: крыса, корова, тигр, заяц, дракон, змея, лошадь, овца, обезьяна, петух, собака, свинья. Учитывая, что 1996 - год крысы, написать программу, определяющую названия года по его номеру.
schibeki вне форума Ответить с цитированием
Старый 03.02.2014, 23:35   #2
Serge_Bliznykov
Старожил
 
Регистрация: 09.01.2008
Сообщений: 26,238
По умолчанию

Код:
repeat
  WriteLn('Введите год (>=1996) : ');
  Readln(Year);
until Year>=1996;
case (Year-1996) mod 12 of
 0: YearName := 'год крысы';
 1: YearName := 'год коровы';
 2: YearName := 'год тигра';
...
 11: YearName := 'год свиньи';
end;
WriteLn(YearName);
Serge_Bliznykov вне форума Ответить с цитированием
Старый 03.02.2014, 23:40   #3
eval
Подтвердите свой е-майл
 
Регистрация: 29.08.2012
Сообщений: 4,022
По умолчанию

Serge_Bliznykov этот автор сюда сейчас всю методичку вывалит, в лес его надо, а не помогать
eval вне форума Ответить с цитированием
Старый 03.02.2014, 23:45   #4
Serge_Bliznykov
Старожил
 
Регистрация: 09.01.2008
Сообщений: 26,238
По умолчанию

я больше не буду!
Serge_Bliznykov вне форума Ответить с цитированием
Ответ


Купить рекламу на форуме - 42 тыс руб за месяц

Опции темы Поиск в этой теме
Поиск в этой теме:

Расширенный поиск


Похожие темы
Тема Автор Раздел Ответов Последнее сообщение
Программа с case vika18 Общие вопросы Delphi 3 26.02.2013 09:11
Управление циклом через case-инструкцию Nomicos Помощь студентам 2 09.07.2012 23:45
Программа с case. badname47 Паскаль, Turbo Pascal, PascalABC.NET 6 07.03.2012 10:40
Написать программу через case!!! glebochek Паскаль, Turbo Pascal, PascalABC.NET 2 08.12.2011 15:53
не работают процедуры через case of sproject Помощь студентам 3 22.03.2010 14:46