Главная страница
    Top.Mail.Ru    Яндекс.Метрика
Форум: "Начинающим";
Текущий архив: 2008.01.06;
Скачать: [xml.tar.bz2];

Вниз

Почему 0.20 <= 0.20 ложь???   Найти похожие ветки 

 
Zheksik ©   (2007-12-07 18:55) [0]

Имеется цикл:


while 0.15 <= 0.20 do
  begin
  ...
  ...+0.01
  end;


Почему 0.20 не входит в этот цикл???


 
Плохиш ©   (2007-12-07 19:02) [1]

0.2000000001 <= 0.20 = false


 
Goric ©   (2007-12-07 19:06) [2]

http://www.delphikingdom.com/asp/viewitem.asp?catalogid=374


 
Zheksik ©   (2007-12-07 19:07) [3]

я тоже думал, что так, но я делал так: при а := 0.20 и b := 0.20;

RoundTo(a, -2);
RoundTo(b, -2);


Эффект тот же


 
DeBUGger13   (2007-12-07 19:10) [4]

В http://www.delphimaster.ru/nuts/nuts.html
КАК НЕ Входит? еще как входит!!
И 0.20 и 256 и 1024 и...
Книжки надо умные читать и думать тоже иногда...


 
Zheksik ©   (2007-12-07 19:14) [5]

DeBUGger13   (07.12.07 19:10) [4]
игнор


 
Efir   (2007-12-07 19:22) [6]

Если это это так напрягает, то сделай так:

while 0.15 <= 0.205 do
 begin
 ...
 ...+0.01
 end;


 
Zheksik ©   (2007-12-07 19:26) [7]

Efir   (07.12.07 19:22) [6]
я так в принципе и сделал, но кажется, что это не очень правильно, а значит может вылезти где угодно...


 
Efir   (2007-12-07 19:31) [8]

Ну так и использовать в циклах сравнение float переменных тоже не очень правильно. Ведь уже написали, что

> 0.2000000001 <= 0.20 = false


 
@!!ex ©   (2007-12-07 20:11) [9]

> [7] Zheksik ©   (07.12.07 19:26)

ПОмойму первое чему учат в программировании, так это тому, что дробные числа нельзя сравнивать напрямую. Всегд сравнивают отличие на фиксированную E.


 
@!!ex ©   (2007-12-07 20:11) [10]

Под Е имелось ввиду Эпсилон.


 
homm ©   (2007-12-07 21:28) [11]

> [5] Zheksik ©   (07.12.07 19:14)
> DeBUGger13   (07.12.07 19:10) [4]
> игнор

Заклинание не подействовало :)


> while 0.15 <= 0.20 do
>  begin
>  ...
>  ...+0.01
>  end;

while a <= 20 do begin
  x := a / 100;
.....
  inc(a);
end;


 
Amoeba ©   (2007-12-09 19:33) [12]

Автору вопроса читать эту статью до полного просветления:
http://www.delphikingdom.com/asp/viewitem.asp?catalogid=374


 
homm ©   (2007-12-09 20:09) [13]

> [12] Amoeba ©   (09.12.07 19:33)
> Автору вопроса читать эту статью до полного просветления:

Это ты во втором посте прочитал, ага?


 
Amoeba ©   (2007-12-09 20:18) [14]


> homm ©   (09.12.07 20:09) [13]
>
> > [12] Amoeba ©   (09.12.07 19:33)
> > Автору вопроса читать эту статью до полного просветления:
>
>
> Это ты во втором посте прочитал, ага?

Я читал эту статью еще в 2001 году.


 
homm ©   (2007-12-09 20:21) [15]

> [14] Amoeba ©   (09.12.07 20:18)
> Я читал эту статью еще в 2001 году.

Дак еще нужно было кроме статьи и второй пост прочитать ;)


 
Amoeba ©   (2007-12-09 23:00) [16]


> homm ©   (09.12.07 20:21) [15]
>
> > [14] Amoeba ©   (09.12.07 20:18)
> > Я читал эту статью еще в 2001 году.
>
> Дак еще нужно было кроме статьи и второй пост прочитать
> ;)
>

Читал. Но поскольку после него обсуждение зачем-то продолжилось, хотя ветку уже нужно было закрывать, посчитал не лишним еще раз напомнить об этой публикации.



Страницы: 1 вся ветка

Форум: "Начинающим";
Текущий архив: 2008.01.06;
Скачать: [xml.tar.bz2];

Наверх





Память: 0.48 MB
Время: 0.01 c
11-1182345030
nikfel
2007-06-20 17:10
2008.01.06
Как изменить цвет линии.


2-1197161141
O.Snopok
2007-12-09 03:45
2008.01.06
Как приостановить выполнение процедуры до изменения Clipboard


2-1197273900
Alexandr Malygin
2007-12-10 11:05
2008.01.06
Edit


15-1196257475
em240
2007-11-28 16:44
2008.01.06
.net+производительность gui приложений


2-1197028876
Мурзик
2007-12-07 15:01
2008.01.06
Как удалить выделенный контрол?





Afrikaans Albanian Arabic Armenian Azerbaijani Basque Belarusian Bulgarian Catalan Chinese (Simplified) Chinese (Traditional) Croatian Czech Danish Dutch English Estonian Filipino Finnish French
Galician Georgian German Greek Haitian Creole Hebrew Hindi Hungarian Icelandic Indonesian Irish Italian Japanese Korean Latvian Lithuanian Macedonian Malay Maltese Norwegian
Persian Polish Portuguese Romanian Russian Serbian Slovak Slovenian Spanish Swahili Swedish Thai Turkish Ukrainian Urdu Vietnamese Welsh Yiddish Bengali Bosnian
Cebuano Esperanto Gujarati Hausa Hmong Igbo Javanese Kannada Khmer Lao Latin Maori Marathi Mongolian Nepali Punjabi Somali Tamil Telugu Yoruba
Zulu
Английский Французский Немецкий Итальянский Португальский Русский Испанский