Главная страница
Top.Mail.Ru    Яндекс.Метрика
Текущий архив: 2007.03.25;
Скачать: CL | DM;

Вниз

Real and integer   Найти похожие ветки 

 
Юрий_К   (2007-02-26 22:51) [0]

Что-то с вычислениями на D7 не то происходит у меня. Это у меня только так? Просьба повторить и сказать, у вас правильно считает?

var
xmin, xmax : Single;
nX : Integer; d1: double;
begin
  // изначально было в коде d1 := (XMax - XMin) / nX;
   d1 := (XMax - XMin); // XMax = 99 ; XMin = 0 ;
   // и тут-то вдруг d1 получается равным 20 ???
   d1 :=  d1 / nX; // nX = 100 и d1 получаем равным 0.2
end;


 
Юрий_К   (2007-02-26 23:03) [1]

И тут же нашёл причину, перепутались данные в результате применения with.
xmin, xmax и в другом модуле также были определены.


 
Kolan ©   (2007-02-26 23:07) [2]

Ну дак пока на форум не запостишь&#133 :)


 
Anatoly Podgoretsky ©   (2007-02-27 00:14) [3]

> Юрий_К  (26.02.2007 23:03:01)  [1]

Так не надо на форум посылать нереальный, выдуманый код.


 
Германн ©   (2007-02-27 00:51) [4]


> Anatoly Podgoretsky ©   (27.02.07 00:14) [3]
>
> > Юрий_К  (26.02.2007 23:03:01)  [1]
>
> Так не надо на форум посылать нереальный, выдуманый код.
>

Код то может быть и вполне реальный, только вот автор не указал как он узнаёт, что в тот или иной момент значение некоей переменной именно такое! Пусть прочитает про оптимизатор.


 
Tor ©   (2007-02-28 11:51) [5]

Помню во время отладки при заходе в цикл for I := 0 ... Почемуто дебагер показывал I равным не 0 а другому числу. Не знаю что за глюки и у кого. Но в общем проблему обошел через while ... Inc(I). Вот такая вот ботва.


 
Суслик ©   (2007-02-28 12:01) [6]


>  [5] Tor ©   (28.02.07 11:51)
> Помню во время отладки при заходе в цикл for I := 0 ...
> Почемуто дебагер показывал I равным не 0 а другому числу.
> Не знаю что за глюки и у кого. Но в общем проблему обошел
> через while ... Inc(I). Вот такая вот ботва

дебагер так показывал потому, что i не растет от 0 до ... , а наоброт уменьшается от ... до 0.
почему так? потому что у тебя в коде нигде не используется i, а уменьшать быстрее, чем расти - ибо сравнение на ноль быстрее.



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

Текущий архив: 2007.03.25;
Скачать: CL | DM;

Наверх




Память: 0.48 MB
Время: 0.03 c
11-1151018833
DevilDevil
2006-06-23 03:27
2007.03.25
Smart-Linking


2-1172911428
Chaval'
2007-03-03 11:43
2007.03.25
panel


15-1172903795
atruhin
2007-03-03 09:36
2007.03.25
Можно ли лицензировать пиратский Windows 2003 Server


8-1153731633
Jimmy
2006-07-24 13:00
2007.03.25
Не работает большой Image


3-1166787472
RomanH
2006-12-22 14:37
2007.03.25
IBX->FIBPlus