|
|
Регистрация Восстановить пароль |
Регистрация | Задать вопрос |
Заплачу за решение |
Новые сообщения |
Сообщения за день |
Расширенный поиск |
Правила |
Всё прочитано |
|
Опции темы | Поиск в этой теме |
04.06.2009, 23:41 | #1 |
Пользователь
Регистрация: 02.06.2009
Сообщений: 33
|
Найдите ошибки и исправте??? Пожалуйста Очень срочно
Помогите пожалуйста доделать задачку!!! Очень СРОЧНО
Дано 5 цветов: зелёный, красный, жёлтый, белый и чёрный. Например 1984 год - год начала очередного цыкла - называлса годом зелёной крысы. а) значение n >- 1984 б) n может быть любым натуральным числом. На скока я понял условие нада шоб вводиш год а оно выводит назавание. Вот ето название изи сборника. Использовать нада Условный оператор!!! В старояпонском календаре был принят 60 летний цикл, состоящий из пяти 12-летних подцыклов. Позцыклы обозначались цветом: зелёный, красный, жёлтый, белый и чёрный. Внутри кажного подцыкла , года носили название животных (крыса корова тигр заяц дракон змея лошадь овца обезьяна курица собака и свинья). Например 1984 год - год начала очередного цыкла - называлса годом зелёной крысы. Составить програму которая по заданому номеру года нашей еры печатает его название по старояпонскому календарю. Расмотреть такие случаи: а) значение n >- 1984 б) n может быть любым натуральным числом. Вот то шо я сам пробовал но шото не очень помогите: program year; var g:integer; begin writeln('Vvedite g='); readln(g); case g of 1999:writeln('zayac'); 2000:writeln('drakon'); 2001:writeln('zmeya'); 2002:writeln('loshad'); 2003:writeln('ovca'); 2004:writeln('mavpa'); 2005:writeln('kyrica'); 2006:writeln('sobala'); 2007:writeln('svininya'); 2008:writeln('krusa'); 2009:writeln('korova'); 2010:writeln('tigr'); end; readln; end. Напишите прогу так как она должна быть |
05.06.2009, 01:09 | #2 |
Форумчанин
Регистрация: 24.05.2009
Сообщений: 119
|
используй интервалы допустимых значений, например
1999..2010: writeln('green'); 2011..2023: writeln('red'); |
Похожие темы | ||||
Тема | Автор | Раздел | Ответов | Последнее сообщение |
помогите пожалуйста !!!очень срочно!! | lenchik-1098 | Помощь студентам | 0 | 04.06.2009 20:43 |
Очень срочно критически мало времени Пожалуйста, очень надеюсь на вашу помощь. Задачки на Паскале | VADOS2009-1 | Помощь студентам | 0 | 03.06.2009 00:00 |
[Delphi] Помогите выявить ошибки в задаче! Пожалуйста! Очень срочно! | OtimJ | Помощь студентам | 3 | 23.12.2008 13:23 |
Исправте ошибки в проге для Делфи! | Toxass | Общие вопросы Delphi | 2 | 17.12.2008 02:01 |
Найдите, пожалуйта,ошибки в задаче!очень срочно! | Wia | Помощь студентам | 2 | 06.12.2008 20:02 |