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

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

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

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

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

Закрытая тема
Ваша тема закрыта, почему это могло произойти? Возможно,
Нет наработок или кода, если нужно готовое решение - создайте тему в разделе Фриланс и оплатите работу.
Название темы включает слова - "Помогите", "Нужна помощь", "Срочно", "Пожалуйста".
Название темы слишком короткое или не отражает сути вашего вопроса.
Тема исчерпала себя, помните, один вопрос - одна тема
Прочитайте правила и заново правильно создайте тему.
 
Опции темы Поиск в этой теме
Старый 03.10.2011, 19:05   #21
Диман56
Форумчанин
 
Регистрация: 02.11.2010
Сообщений: 103
По умолчанию

Я тут) возьмусь за 3 задач 2 тоже пострараюсь попроще решить, но попозже)
Диман56 вне форума
Старый 03.10.2011, 19:06   #22
Анастасия12
Пользователь
 
Регистрация: 03.10.2011
Сообщений: 93
По умолчанию

да ты только одну попробуй которая про месяцаа) если не сложно Дим?)
Анастасия12 вне форума
Старый 03.10.2011, 19:12   #23
Диман56
Форумчанин
 
Регистрация: 02.11.2010
Сообщений: 103
По умолчанию

Program pr3;
var a:integer;
BEGIN
writeln('Введите номер месяца:');
readln(a);
IF (a>=1) and (a<=2) or (a=12)
THEN writeln('Зима')
ELSE
IF (a>=3) and (a<=5)
THEN
writeln('Весна')
ELSE
IF (a>=6) and (a<=8)
THEN
writeln('Лето')
ELSE
IF (a>=9) and (a<=11)
THEN
writeln('Осень')
ELSE
writeln('Не знаю я такого времени года!!!');
END.
Диман56 вне форума
Старый 03.10.2011, 19:13   #24
Диман56
Форумчанин
 
Регистрация: 02.11.2010
Сообщений: 103
По умолчанию

Да не сложно, Настюш))
Диман56 вне форума
Старый 03.10.2011, 19:17   #25
Анастасия12
Пользователь
 
Регистрация: 03.10.2011
Сообщений: 93
По умолчанию

writeln('Не знаю я такого времени года!!!'); что это?
вместо я незнаю того времени года что можно другое надо написать)
Анастасия12 вне форума
Старый 03.10.2011, 19:17   #26
JUDAS
фонатик DELPHI
Форумчанин
 
Аватар для JUDAS
 
Регистрация: 14.01.2008
Сообщений: 714
По умолчанию

Код:
Program pr3;
 var a:integer;
 BEGIN
 writeln('Введите номер месяца:'); readln(a);
 if (a<1) or (a>12) then 
 begin
  writeln('Игратся будешь вдома !!!');
  exit;
 end;
  if (a<3)  then writeln('Зима') else
  if a<6 then writeln('Весна')  else
  if a<9 then writeln('Лето')  else
  if a<12 then writeln('Осень')  else
  if a=12 then writeln('Зима');

 END.
тут поменьше текста. Девушке же набирать Дим
Цитата:
что можно другое надо написать)
ВОт и пишите Настюш, мы же программисты, а не телепаты, мысли что там написать не читаем )
95% сбоев и ошибок приложений, находится в полу метрах от монитора

Последний раз редактировалось JUDAS; 03.10.2011 в 19:29.
JUDAS вне форума
Старый 03.10.2011, 19:18   #27
Диман56
Форумчанин
 
Регистрация: 02.11.2010
Сообщений: 103
По умолчанию

Просто "защита от дурака")))) Если ты введёшь 45, то что тебе должно вывести?) Зима?))
Диман56 вне форума
Старый 03.10.2011, 19:19   #28
Диман56
Форумчанин
 
Регистрация: 02.11.2010
Сообщений: 103
По умолчанию

Цитата:
Сообщение от JUDAS Посмотреть сообщение
Код:
Program pr3;
 var a:integer;
 BEGIN
 writeln('Введите номер месяца:'); readln(a);
 if a<3 then writeln('Зима') else
  if a<6 then writeln('Весна')  else
  if a<9 then writeln('Лето')  else
  if a<12 then writeln('Осень')  else
  if a=12 then writeln('Зима') else
 writeln('Не знаю я такого времени года!!!');
 END.
тут поменьше текста. Девушке же набирать Дим
А если набрать -1?)То это ж зима будет)
Диман56 вне форума
Старый 03.10.2011, 19:20   #29
Анастасия12
Пользователь
 
Регистрация: 03.10.2011
Сообщений: 93
По умолчанию

ошибку выдаёт в пятой строке
Анастасия12 вне форума
Старый 03.10.2011, 19:21   #30
Диман56
Форумчанин
 
Регистрация: 02.11.2010
Сообщений: 103
По умолчанию

У меня ошибку выдаёт?)
Диман56 вне форума
Закрытая тема


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

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

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


Похожие темы
Тема Автор Раздел Ответов Последнее сообщение
Паскаль, Борланд Паскаль-в чем разница??? Vremya-Dengy Паскаль, Turbo Pascal, PascalABC.NET 13 31.05.2011 18:23
паскаль и турбо паскаль Евгения Игоревна Помощь студентам 6 05.05.2011 14:31
Паскаль KoTЭ Фриланс 2 18.06.2010 13:28
Паскаль Vanta11a Помощь студентам 2 28.05.2008 16:27