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

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

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

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

Ответ
 
Опции темы
Старый 04.06.2009, 23: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, 01:09   #2
diliana
Форумчанин
 
Аватар для diliana
 
Регистрация: 24.05.2009
Сообщений: 119
По умолчанию

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

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


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