Модераторы: volvo877, Snowy, MetalFan
  

Поиск:

Ответ в темуСоздание новой темы Создание опроса
> Case 
:(
    Опции темы
119040
Дата 15.5.2007, 20:40 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Новичок



Профиль
Группа: Участник
Сообщений: 44
Регистрация: 22.1.2007

Репутация: нет
Всего: нет



Как мне записать оператор кэйс чтобы был выбор
1) -100 <= x < 0
2) 0 <= x < 100
3) 100 <= X < 200
4) Все остальные случаи

Помогите плжалуйста!!! (!!!!!!) дело стоит на месте
PM MAIL   Вверх
Snaiper
Дата 15.5.2007, 21:04 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Новичок



Профиль
Группа: Участник
Сообщений: 36
Регистрация: 14.5.2007

Репутация: нет
Всего: нет



Прописывай так:


Код

Var n,x:integer;
Begin
writeln('Введите n');
readln(n);
case n of
-100..0: (прописываешь итог);
0..100: (прописываешь итог);
100..200: (прописываешь итог);
end;
end.



И всё!!!

Это сообщение отредактировал(а) volvo877 - 16.5.2007, 11:44
PM MAIL   Вверх
Alexeis
Дата 15.5.2007, 21:06 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Амеба
Group Icon


Профиль
Группа: Админ
Сообщений: 11743
Регистрация: 12.10.2005
Где: Зеленоград

Репутация: нет
Всего: 459



119040, а учебники на что?

Код

  case x of
  -100..-1 : ;
     0..99 : ;
  100..199 : ;
  else ;
  end;


Добавлено через 1 минуту и 47 секунд
Snaiper, так работать не будет. Это не С++. Тут не могут быть пересекающиеся диапазоны. 

Не забывайте про подсветку кода.


--------------------
Vit вечная память.

Обсуждение действий администрации форума производятся только в этом форуме

гениальность идеи состоит в том, что ее невозможно придумать
PM ICQ Skype   Вверх
Snaiper
Дата 15.5.2007, 21:12 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Новичок



Профиль
Группа: Участник
Сообщений: 36
Регистрация: 14.5.2007

Репутация: нет
Всего: нет



Работать будет. он берёт из первого условия которому он подлежит
если 100 то берёт из 2-го условия!
PM MAIL   Вверх
Alexeis
Дата 15.5.2007, 21:18 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Амеба
Group Icon


Профиль
Группа: Админ
Сообщений: 11743
Регистрация: 12.10.2005
Где: Зеленоград

Репутация: нет
Всего: 459



Snaiper, вы не спорьте а проверьте сначала свой код...


--------------------
Vit вечная память.

Обсуждение действий администрации форума производятся только в этом форуме

гениальность идеи состоит в том, что ее невозможно придумать
PM ICQ Skype   Вверх
Snaiper
Дата 15.5.2007, 21:26 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Новичок



Профиль
Группа: Участник
Сообщений: 36
Регистрация: 14.5.2007

Репутация: нет
Всего: нет



Я не спорю. Я всегда сначало проверяю потом говорю и пишу. Код рабочий, программа работает. Но ваше замечание по поводу диапозона тоже верно и уточняет программу.
PM MAIL   Вверх
119040
Дата 15.5.2007, 21:45 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Новичок



Профиль
Группа: Участник
Сообщений: 44
Регистрация: 22.1.2007

Репутация: нет
Всего: нет



Спасибо! Ну и бред этот ваш Поскаль-палоскаль  smile 

Это сообщение отредактировал(а) 119040 - 15.5.2007, 21:45
PM MAIL   Вверх
Alexeis
Дата 15.5.2007, 22:12 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Амеба
Group Icon


Профиль
Группа: Админ
Сообщений: 11743
Регистрация: 12.10.2005
Где: Зеленоград

Репутация: нет
Всего: 459



Snaiper, хм.. и в правду Turbo Pascal проглатывает smile


--------------------
Vit вечная память.

Обсуждение действий администрации форума производятся только в этом форуме

гениальность идеи состоит в том, что ее невозможно придумать
PM ICQ Skype   Вверх
119040
Дата 16.5.2007, 13:23 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Новичок



Профиль
Группа: Участник
Сообщений: 44
Регистрация: 22.1.2007

Репутация: нет
Всего: нет



 smile и готово smile 
PM MAIL   Вверх
  
Ответ в темуСоздание новой темы Создание опроса
Правила форума "Delphi"
THandle
Rrader
volvo877

Запрещается!

1. Обсуждать и делится взломанными компонентами или программным обеспечением

2. Публиковать ссылки на варез

3. Оффтопить

  • Действия модераторов можно обсудить здесь
  • С просьбами о написании курсовой, реферата и т.п. обращаться сюда
  • Вопросы по реализации алгоритмов рассматриваются здесь
  • 90% ответов на свои вопросы можно найти в DRKB (Delphi Russian Knowledge Base) - крупнейшем в рунете сборнике материалов по Дельфи

Если Вам понравилась атмосфера форума, заходите к нам чаще! С уважением, THandle, Rrader, volvo877.

 
0 Пользователей читают эту тему (0 Гостей и 0 Скрытых Пользователей)
0 Пользователей:
« Предыдущая тема | Object Pascal: кроссплатформенные технологии | Следующая тема »


 




[ Время генерации скрипта: 0.0569 ]   [ Использовано запросов: 22 ]   [ GZIP включён ]


Реклама на сайте     Информационное спонсорство

 
По вопросам размещения рекламы пишите на vladimir(sobaka)vingrad.ru
Отказ от ответственности     Powered by Invision Power Board(R) 1.3 © 2003  IPS, Inc.