Форум программистов
 
О проблемах, например, с регистрацией пишите сюда - alarforum@yandex.ru, проверяйте папку спам! Обязательно пройдите активизацию e-mail, а тут можно восстановить пароль.

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

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


Ответ
 
Опции темы
Старый 04.06.2009, 22:41   #1
VADOS2009-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.
Напишите прогу так как она должна быть
VADOS2009-1 вне форума Ответить с цитированием
Старый 05.06.2009, 00:09   #2
diliana
Форумчанин
 
Аватар для diliana
 
Регистрация: 23.05.2009
Сообщений: 119
По умолчанию

используй интервалы допустимых значений, например

1999..2010: writeln('green');
2011..2023: writeln('red');
diliana вне форума Ответить с цитированием
Ответ

Здесь нужно купить рекламу за 20 тыс руб в месяц! ) пишите сюда - alarforum@yandex.ru
Без учёта ботов - 20000 человек в день, 350000 в месяц.

Опции темы


Похожие темы
Тема Автор Раздел Ответов Последнее сообщение
помогите пожалуйста !!!очень срочно!! lenchik-1098 Помощь студентам 0 04.06.2009 19:43
Очень срочно критически мало времени Пожалуйста, очень надеюсь на вашу помощь. Задачки на Паскале VADOS2009-1 Помощь студентам 0 02.06.2009 23:00
[Delphi] Помогите выявить ошибки в задаче! Пожалуйста! Очень срочно! OtimJ Помощь студентам 3 23.12.2008 13:23
Исправте ошибки в проге для Делфи! Toxass Общие вопросы Delphi 2 17.12.2008 02:01
Найдите, пожалуйта,ошибки в задаче!очень срочно! Wia Помощь студентам 2 06.12.2008 20:02


Проекты отопления, пеллетные котлы, бойлеры, радиаторы
интернет магазин respective.ru
Пеллетный котёл Emtas
котлы EMTAS
Здесь нужно купить рекламу за 7 тыс руб в месяц! )
пишите сюда - alarforum@yandex.ru
ИКС 840