|
|
Регистрация | << Правила форума >> | FAQ | Пользователи | Календарь | Поиск | Сообщения за сегодня | Все разделы прочитаны |
|
Опции темы | Поиск в этой теме | Опции просмотра |
#1
|
|||
|
|||
Цикл в цикле некорректно работает
Люди добрые помогите. Я с делфи7 знаком неделю, жизнь заставила написать программу, но корректно работать не хочет. Суть проблемы такая:
я сравниваю двумерные массивы и найденными значениями заполняю stringgrid, значения ищутся с с увеличением погрешности, если не нашел, и т.д. пока погрешность не дойдет до максимальной, первая погрешность работает, а вторая не работает В коде подписано //сравнение данных по оборотам. Что я делаю не так? код: Код:
procedure TForm1.Button3Click(Sender: TObject); //поиск бцн label point; var i : integer; k : integer; y : integer; s,q : real; o,p : real; pogrdz:real; pogrrpm:real; begin //показать и сбросить прогресс бар progressbar2.Visible:=true; progressbar2.Position:=0; pogrdz:=0; pogrrpm:=0; //gotolabel: //перебор квантований for k := 1 to stringgrid2.ColCount-1 do for y := 1 to stringgrid2.RowCount-1 do for i := 1 to stringgrid1.RowCount-1 do if (stringgrid1.Cells[1,i]<>'') and (stringgrid2.Cells[k,0]<>'') then //пропуск пустых ячеек //pogrdz<strtofloat(inttostr(TrackBar1.Position))*0.1 //strtofloat(inttostr(TrackBar1.Position))*0.1; begin //сравнение данных дросселя progressbar2.Position:=round(100*(k+1)/stringgrid3.ColCount-1); //меняем положение прогресс бар s:=0; s:=s + strtofloat(stringgrid1.Cells[1,i]); q:=0; q:=q + strtofloat(stringgrid2.Cells[k,0]); if ((q-pogrdz<=s) and (s<=q+pogrdz)) then begin //сравнение данных оборотов if (stringgrid1.Cells[0,i]<>'') and (stringgrid2.Cells[0,y]<> '')then //пропуск пустых ячеек begin o:=0; o:=o+ strtofloat(stringgrid1.Cells[0,i]); p:=0; p:=p+ strtofloat(stringgrid2.Cells[0,y]); //pogrrpm:=strtofloat(inttostr(TrackBar3.Position)); if ((p-pogrrpm<=o) and (o<=p+pogrrpm))then begin if stringgrid2.Cells[k,y]='' then stringgrid2.Cells[k,y]:=stringgrid1.Cells[2,i] end; end else if pogrrpm < strtofloat(inttostr(TrackBar3.Position)) then pogrrpm:=pogrrpm+1; Edit2.Text:= floattostr(pogrrpm); end else if pogrdz < strtofloat(inttostr(TrackBar1.Position))*0.1 then pogrdz:=pogrdz+0.1; Edit1.Text:= floattostr(pogrdz); end; progressbar2.Visible:=false; //скрываем прогресс бар end; lmikle: Используем ПРАВИЛЬНЫЕ теги. Последний раз редактировалось lmikle, 09.02.2018 в 23:57. |
#2
|
|||
|
|||
Что-то мне кажется, что ты что-то напутал в реализации алгоритма.
Можешь рассказать сам принцип, а то у тебя получается, что ты сравниваешь все ячейки со всеми, что, как мне кажется, не правильно. ЗЫ. Сравнивать по епислон лучше так: Код:
function CompareValues(a, b, eps : Extended) : Boolean; begin Result := abs(a-b) < abs(eps); end; Код:
variable := 0; |
#3
|
|||
|
|||
Цитата:
Спасибо что откликнулись! Код поправлю. Паразитные строки уберу. Все правильно, я всю таблицу со всей сравниваю, мне надо разделить циклы, но вот как? Пытался использовать GOTO Label, вообще программа уходила в бесконечный цикл. Код:
Цель такая Берем одно число(они заданы как квантования во второй таблице, в 0 столбце(обороты) и 0 строке(положение дроссельной заслонки)) ищем ПДЗ в нужном столбце таблицы 1, если не находим, то добавляем допуск +0,1(например ищем 3, если не находим, то пойдет и 2,9 и 3,1), если не нашли, добавляем еще 0,1, и так пока не упремся в значение которое задано в трек баре 1, если не находим ни чего, то выбираем следующее значение ПДЗ, если нашли нужное ПДЗ, то в той строке таблицы 1 ищем обороты, начиная с значения заданного во второй таблице (кванты)[0,1], пусть там 600, ищем сначала точное совпадение, не нашли ищем уже (с шагом 1) 599 и 601, не нашли 598 и 602, и так пока не упремся в максимальную погрешность заданную в трек бар 3, если нашли записали значение в таблицу 2, в место пересечения оборотов и ПДЗ , если нет тогда выбираем значение из таблицы 2 [0,2] и до конца столбца идем, если больше ни чего нет выбираем следующее положение ПДЗ. Последний раз редактировалось DrInfinity, 10.02.2018 в 14:11. |
#4
|
|||
|
|||
получилось! может кому пригодится.
Код:
procedure TForm1.Button3Click(Sender: TObject); //ïîèñê áöí var i : integer; k : integer; y : integer; b : integer; e : integer; begin for e := 1 to TrackBar3.Position do for b := 1 to TrackBar1.Position do for k := 1 to stringgrid2.ColCount-1 do for i := 1 to stringgrid1.RowCount-1 do if (stringgrid2.Cells[k,0]<>'') and (stringgrid1.Cells[1,i]<>'') then if (abs((strtofloat(stringgrid1.Cells[1,i]))-(strtofloat(stringgrid2.Cells[k,0])))<=(strtofloat(inttostr(b))*0.1)) then for y := 1 to stringgrid2.RowCount-1 do if (stringgrid2.Cells[0,y]<>'') then if (abs((strtofloat(stringgrid1.Cells[0,i]))-(strtofloat(stringgrid2.Cells[0,y])))<=(strtofloat(inttostr(e)))) then begin Edit2.Text:=inttostr(y); Edit1.Text:=inttostr(i); if stringgrid2.Cells[k,y]='' then stringgrid2.Cells[k,y]:=stringgrid1.Cells[2,i]; break; end; end; |