IPB
ЛогинПароль:

> Правила раздела!

1. Заголовок или название темы должно быть информативным !
2. Все тексты фрагментов программ должны помещаться в теги [code] ... [/code] или [code=pas] ... [/code].
3. Прежде чем задавать вопрос, см. "FAQ" и используйте ПОИСК !
4. НЕ используйте форум для личного общения!
5. Самое главное - это раздел теоретический, т.е. никаких задач и программ (за исключением небольших фрагментов) - для этого есть отдельный раздел!

 
 Ответить  Открыть новую тему 
> case of + сравнение чисел
сообщение
Сообщение #1


Человек
*****

Группа: Пользователи
Сообщений: 1 050
Пол: Мужской
Реальное имя: Станислав

Репутация: -  3  +


Добрый день!
как можно(если можна) сравнить 2 числа с помощью case of.
заранее благодарен.


--------------------
Спасибо!
Удачи!
 Оффлайн  Профиль  PM 
 К началу страницы 
+ Ответить 
сообщение
Сообщение #2


Вожак стада
***

Группа: Пользователи
Сообщений: 179
Пол: Мужской
Реальное имя: кирилл

Репутация: -  1  +


А обязательно case?
Если да,то

{♂☺☺☺☻☺☺☺♂}
case (x1<x2) of
true:{Если верно}
else {в противном случае}
{♂☺☺☺☻☺☺☺♂}


Если ты это имееш в виду...


--------------------
Админ наш,
Иже еси на серверах!
Да святится имя Твое,
Да приидет Unix Твой,
Да будет воля Твоя,
Как на земле , так и на небе.
Пинг наш насущный дай нам на сей день;
И прости нам счета наши, как и мы оставляем их должникам нашим;
И не введи нас во искушение виндовое,
Но избавь нас от лукавого Билли.
И да пребудет с нами сила твоя великая,
Во имя Отца-админа, Сына-Пингвина, и духа мастдайного. Админь!
 Оффлайн  Профиль  PM 
 К началу страницы 
+ Ответить 
сообщение
Сообщение #3


Гость






Можно:
var a, b: double;
begin
a := 23.2; b := 23.4;
case byte((a - b) > 0) of
0:
case byte((a - b) < 0) of
1: writeln('a < b');
0: writeln('a = b');
end;


1: writeln('a > b');
end;
end.

Только зачем?
 К началу страницы 
+ Ответить 
сообщение
Сообщение #4


Человек
*****

Группа: Пользователи
Сообщений: 1 050
Пол: Мужской
Реальное имя: Станислав

Репутация: -  3  +


здорово было бы если можно было написать
var a, b: double;
begin
a := 23.2; b := 23.4;
case (a сравн b) of
0:writeln('a > b');
1: writeln('a < b');
2: writeln('a = b');
end;
end.


читабильно (по-крайне мере для меня)... наверно надо создавать свой объект... но тогда это будет не понятно другим..

Сообщение отредактировано: compiler -


--------------------
Спасибо!
Удачи!
 Оффлайн  Профиль  PM 
 К началу страницы 
+ Ответить 
сообщение
Сообщение #5


Гость






Цитата
наверно надо создавать свой объект...
blink.gif blink.gif
var a, b: double;
begin
a := 23.4; b := 23.4;

case byte((a - b) > 0) + 2 * byte((a - b) < 0) of
0: writeln('a = b');
1: writeln('a > b');
2: writeln('a < b');
end;
end.
 К началу страницы 
+ Ответить 
сообщение
Сообщение #6


Профи
****

Группа: Пользователи
Сообщений: 705
Пол: Мужской

Репутация: -  20  +


Цитата(compiler @ 28.04.2007 20:03) *

здорово было бы если можно было написать

case byte(a>=b)-byte(a<=b)+1 of
0: writeln ('<');
1: writeln ('=');
2: writeln ('>');
end;


ps Не успел smile.gif

Сообщение отредактировано: Malice -
 Оффлайн  Профиль  PM 
 К началу страницы 
+ Ответить 
сообщение
Сообщение #7


Человек
*****

Группа: Пользователи
Сообщений: 1 050
Пол: Мужской
Реальное имя: Станислав

Репутация: -  3  +


Цитата(volvo @ 28.04.2007 19:08) *

begin
...
end.

спасибо

собственно еще что лучше писать через if или case, как показал volvo, с точки зрения стиля...

Сообщение отредактировано: compiler -


--------------------
Спасибо!
Удачи!
 Оффлайн  Профиль  PM 
 К началу страницы 
+ Ответить 

 Ответить  Открыть новую тему 
1 чел. читают эту тему (гостей: 1, скрытых пользователей: 0)
Пользователей: 0

 





- Текстовая версия 1.11.2020 3:35
500Gb HDD, 6Gb RAM, 2 Cores, 7 EUR в месяц — такие хостинги правда бывают
Связь с администрацией: bu_gen в домене octagram.name