Ошибка при счёте

[Nightway]

В общем такая запара:программа должна считать до предела Max по заданным шагам,но последний как бы шаг она не делает(например должна считать до 1,а считает до 0,95 ; а если шаг 0,02 то считает соответственно до 0,98) то есть не делает последний шаг...как исправить? (есть ещё подозрения,что она поднимает все значения вверх на 1 строку,если опустить,то не будет считать первую строку)

min:=strtofloat(edt36.text);
max:=strtofloat(edt34.text);
sh:=strtofloat(edt33.text);
if min>max then ShowMessage('');
if min>max then Exit;


n:=1;
setlength(p,n);
p[n-1]:=min;
while p[n-1]<=max do
 begin
  n:=n+1;
  setlength(p,n);
  p[n-1]:=p[n-2]+sh
 end;
with strngrd2 do
 begin
  fixedcols:=0;
  fixedrows:=0;
  rowcount:=n;
  colcount:=1;
  for t:=0 to n-1 do
  cells [0,t]:=floattostrf(p[t],fffixed,5,2);



(Дальше идет расчёт массива SS(там всё правильно 100%)



begin
  with strngrd1 do
begin

   rowcount:=Trunc((max-min)/sh)+1;
  colcount:=6;
  for i:=1 to 100 do
  for j:=1 to 100 do
  cells [j,i]:=floattostrf(ss[i,j],fffixed,5,4);
  strngrd1.rowcount := strngrd1.rowcount + 1;
  for i := 1 to strngrd1.colcount - 1 Do;
  strngrd1.Cols[1][0]:='Район 1;
  strngrd1.Cols[2][0]:='Район 1';
  strngrd1.Cols[3][0]:='Район 1';
  strngrd1.Cols[4][0]:='Район 1';
  strngrd1.Cols[5][0]:='Район 1';
  strngrd1.Cols[0][0]:='p(Шаг)\';
  for r:=0 to 100 do
  for d:=1 to 100 do
  strngrd1.Cols [0][r+d]:=strngrd2.Cols[0][r];
  end;

[doktor255]

while Min <= Max do
  begin
    inc(Min, sh); // Прибавляем
    SetLength(p, Length(p) + 1); // увеличиваем размер массива на единицу
    p[High(p)] := Min // присваиваем последнему элементу значение
  end;

Идея ясна? А то что у тебя написано, это, извиняюсь, какая - то порнография

[Nightway]

eefc356d93.jpg
вот такая ошибка

[doktor255]

Ошибка, это то, что написано пару миллиметров ниже. Запомни!!!

min := min + sh

Объяснять ошибку как я понимаю, нет смысла. Знания нулевые. Сразу говорю код не будет работать, так как ты опять запилил в код вот этот бред

while p[n - 1] <= max

Не удивляйся потом, что у тебя повиснет процедура.