VPF::Оператор case - Форум программистов

PIF

Дата 30.6.2005, 12:46 (ссылка)

(нет голосов)

Загрузка ...

Шустрый

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

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

Здравствуйте! Скажите пожалуйста как правильно записать следующий код:

Код


case volum of
0.025: error_V:=0.1;
0.05: error_V:=0.1;
0.1: error_V:=0.2;
0.2: error_V:=0.2;
0.25: error_V:=0.2;
0.5: error_V:=0.3;
1: error_V:=0.6;
else error_v:=0;
end;

Выдает ошибку:
[Error] Unit1.pas(569): Ordinal type required
[Error] Unit1.pas(570): Incompatible types: 'Integer' and 'Extended'

Это сообщение отредактировал(а) Girder - 30.6.2005, 13:21

Satana

Дата 30.6.2005, 12:50 (ссылка)

(нет голосов)

Загрузка ...

Опытный

Профиль
Группа: Участник
Сообщений: 564
Регистрация: 15.9.2004
Где: Ставрополь, СЗ ра йон

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

в кейсе могут быть только Integer в качестве разделителя

--------------------

Работай на себя
www.abalentsev.com - Сайт портфолио.
www.pokushau.ru - Рецепты со всего мира.

Akella

Дата 30.6.2005, 13:19 (ссылка)

(нет голосов)

Загрузка ...

Творец

Профиль
Группа: Модератор
Сообщений: 18485
Регистрация: 14.5.2003
Где: Корусант

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

а какого типа переменная volume?
больше кода, господа, не стесняйтесь

Girder

Дата 30.6.2005, 13:22 (ссылка)

(нет голосов)

Загрузка ...

Лентяй 2

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

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

Код

case trunc(volum*1000) of
 25: error_V:=0.1;
 50: error_V:=0.1;
 100: error_V:=0.2;
 200: error_V:=0.2;
 250: error_V:=0.2;
 500: error_V:=0.3;
 1000: error_V:=0.6;
else error_v:=0;
end;

PIF пользуйся тегами Code!

--------------------

Как слышим, так и пишим.
Истина где-то там...

mvdr

Дата 30.6.2005, 13:25 (ссылка)

(нет голосов)

Загрузка ...

физик

Профиль
Группа: Участник
Сообщений: 1349
Регистрация: 31.12.2004
Где: Волгоград, Россия

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

Код


volum_new:=volum*1000;

case volum_new of
25: error_V:=0.1;
50: error_V:=0.1;
100: error_V:=0.2;
200: error_V:=0.2;
250: error_V:=0.2;
500: error_V:=0.3;
1000: error_V:=0.6;
else error_v:=0;
end;

Это сообщение отредактировал(а) Femida - 30.6.2005, 13:26

--------------------

Появляюсь редко, но часто метко

Изображать идиота сложнее, чем изображать умного: полезнее и не каждому дано

0 Пользователей читают эту тему (0 Гостей и 0 Скрытых Пользователей)
0 Пользователей:
« Предыдущая тема \| Delphi: Общие вопросы \| Следующая тема »