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

[Trazzy]

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

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. 


[Trazzy]

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

(код ↓)

program gauge_sample;

var gauge_w, gauge_h: integer;

procedure draw_gauge(progress: real);
var p1, p2, p3: real; // <<=1=
begin
  setcolor(160,160,160);
  drawrect(5, 5, gauge_w+3, gauge_h+3);
  setcolor(90,90,90);
  p1:=progress; p2:=gauge_w; p3:=100.0; // <<=2=
  fillrect(7, 7, trunc(p1*(p2/p3)), gauge_h); // <<=3=
end;

begin
  gauge_w:=getWidth-14;
  gauge_h:=10;
  draw_gauge(50);
  repaint;
  repeat until GetKeyClicked=KE_STAR;
end. 


[YellowAfterlife]

Можно заставить исходный код работать корректно, если поменять скобки местами в 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 64
n = n / 100 = 226 (успех!)

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