forum.boolean.name - Правильная загрузка

forum.boolean.name (http://forum.boolean.name/index.php)

- Основной форум (http://forum.boolean.name/forumdisplay.php?f=49)

- - Правильная загрузка (http://forum.boolean.name/showthread.php?t=14834)

Правильная загрузка

Помогите разобраться с загрузкой. Из-за округления определенный процент теряется.
Пробовал real, но у него свои "причуды":(

PHP код:




program gauge_sample; 
 
var gauge_w, gauge_h: integer; 
 
procedure draw_gauge(progress: integer); 
begin 
  setcolor(160,160,160); 
  drawrect(5, 5, gauge_w+3, gauge_h+3); 
  setcolor(90,90,90); 
  fillrect(7, 7, progress*(gauge_w/100), gauge_h); 
end; 
 
begin 
  //задаем размеры: 
  gauge_w:=getWidth-14; 
  gauge_h:=10; 
  //рисуем прогрессбар 
  draw_gauge(100); 
  repaint; 
  repeat until GetKeyClicked=KE_STAR; 
end.

Ответ: Правильная загрузка

Проблема решена! Нашел в другом разделе (был не внимателен). Тема закрыта!:)
Нужно было просто перевести int в real.

(код ↓)

Ответ: Правильная загрузка

Можно заставить исходный код работать корректно, если поменять скобки местами в fillRect:

Код:

fillrect(7, 7, (progress * gauge_w) / 100, gauge_h);

Допустим что ширина экрана = 240
Тогда gauge_w = 226
В вашем изначальном коде формула задана как progress * (gauge_w / 100).

При выполнении с progress = 100 выполняются следующие операции:
n = gauge_w = 226
n = n / 100 = 2 (переменная целочисленная - дробная часть отброшена)
n = n * progress = 200
ширина = 200 (должно было быть 226)

Если поменять порядок скобок на упомянутый мной, то действия будут изменены на:
n = progress = 100
n = n * gauge_w = 22 600 (к счастью, максимальное значение целочисленной 2 147 483 648)
n = n / 100 = 226 (успех!)

В случае, когда производится большое количество прорисовок экрана, использование целочисленных может оказатся выгоднее чем использование несомненно хорошего, но медлительного класса Real из MP.
Надеюсь эта информация оказалась полезной.
Хорошего дня.