 case of + сравнение чисел |
Правила раздела!
1. Заголовок или название темы должно быть информативным !
2. Все тексты фрагментов программ должны помещаться в теги [code] ... [/code] или [code=pas] ... [/code].
3. Прежде чем задавать вопрос, см. "FAQ" и используйте ПОИСК !
4. НЕ используйте форум для личного общения!
5. Самое главное - это раздел теоретический, т.е. никаких задач и программ (за исключением небольших фрагментов) - для этого есть отдельный раздел!
  |
| compiler |
 28.04.2007 18:18
Сообщение
#1
|
|
Человек  Группа: Пользователи Сообщений: 1 050 Пол: Мужской Реальное имя: Станислав Репутация:  3   |
Добрый день!
как можно(если можна) сравнить 2 числа с помощью case of. заранее благодарен. -------------------- Спасибо!
Удачи! |
   |
 
|
| mamont001 |
28.04.2007 18:26
Сообщение
#2
|
 Вожак стада Группа: Пользователи Сообщений: 179 Пол: Мужской Реальное имя: кирилл Репутация: 1 |
А обязательно case?
Если да,то
{♂☺☺☺☻☺☺☺♂}
case (x1<x2) of
true:{Если верно}
else {в противном случае}
{♂☺☺☺☻☺☺☺♂}
Если ты это имееш в виду... -------------------- Админ наш,
Иже еси на серверах! Да святится имя Твое, Да приидет Unix Твой, Да будет воля Твоя, Как на земле , так и на небе. Пинг наш насущный дай нам на сей день; И прости нам счета наши, как и мы оставляем их должникам нашим; И не введи нас во искушение виндовое, Но избавь нас от лукавого Билли. И да пребудет с нами сила твоя великая, Во имя Отца-админа, Сына-Пингвина, и духа мастдайного. Админь! |
|
|
|
| volvo |
28.04.2007 18:32
Сообщение
#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.
Только зачем? |
|
|
|
| compiler |
28.04.2007 19:03
Сообщение
#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 - 28.04.2007 19:04 -------------------- Спасибо!
Удачи! |
|
|
|
| volvo |
28.04.2007 19:08
Сообщение
#5
|
|
Гость |
Цитата наверно надо создавать свой объект...  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.
|
|
|
|
| Malice |
28.04.2007 19:10
Сообщение
#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 Не успел  Сообщение отредактировано: Malice - 28.04.2007 19:11 |
|
|
|
| compiler |
28.04.2007 19:18
Сообщение
#7
|
|
Человек Группа: Пользователи Сообщений: 1 050 Пол: Мужской Реальное имя: Станислав Репутация: 3 |
Цитата(volvo @ 28.04.2007 19:08) begin
...
end.
собственно еще что лучше писать через if или case, как показал volvo, с точки зрения стиля... Сообщение отредактировано: compiler - 28.04.2007 19:21 -------------------- Спасибо!
Удачи! |
|
|
|
|
1 чел. читают эту тему (гостей: 1, скрытых пользователей: 0)
Пользователей: 0
|
Текстовая версия | 18.07.2025 10:58 |