как сделать нормально???(язык программирования делфи)

[luffi]

доброй поры времени. у меня есть програма которая решает СЛАР. но не обычно. у меня сначала генеруется указаный перебор. потом соответственно этому перебору я с первого уравнения выбираю строки например 123 и заполняю вторую таблицу по которой уже идет подсчет.
как можна нормально сделать чтобы все 10 результатов как в примере выводило сразу, а не по очереди считовать и потом уже выводило
что бы програ была универсальной а не сталой. код и вся програма в архиве. чесно говорю сделано барыжно. думаю что надо както масивы связать но незнаю как

[whatever]

Вот то, что я обвел, это вообще зачем? Первое еще могу предположить, что рандомная система, но какой смысл в пяти уравнениях при трех неизвестных? Что справа вообще не понял.

как можна нормально сделать чтобы все 10 результатов как в примере выводило сразу, а не по очереди считовать и потом уже выводило

Я, может быть, придераюсь к терминологии, но результатов тут три:

x1= -0.160030119147805
x2= 1.22604863356513
x3= -0.295278380652877

Кстати, проверял на своей проге, посчитано верно.

Кароче, как я понимаю, тебе нехочется несколько раз тыкать по кнопкам.
В таком случае, просто создай одну "большую красную кнопку", и в ее код последовательно скопируй нужные действия, которые происходят при нажитии на кнопки. Если одну кнопку надо ткнуть несколько раз, то загони в цикл, например while.
Либо так, либо я чего-то не понял

[luffi]

рандом для того чтобы не водить вручную все значения. да ты правельно понял чтобы по кномкам по 100 раз не пробивать, а щитало одной кнопкой при одном нажатии. да там 10 результатов по 3 комбинацые каждое. а то для етого примера как можна сделать нормально например если переборов меньше или больше. просто с 3до5 код сталый. и выдодило все результаты вмести 10 переборов по 3 варианта. а уравнение потому не однаковое 3х5 что нада для перебирать все возможные варианты , например для статистической задачи и нижняя табличка заполняется с верхней. вот как на рисунке, я подрисовал, просто.
123,345,124 и тп ето строки спервой

[luffi]

вот кое что доделал и переделал, помогите избавится от кучи if-фов

[luffi]

как такое можна через цикли написать???

PHP код:

StringGrid1.Cells[0, 0] := StringGrid3.Cells[0, (StrToInt(Memo2.Lines[0])-1)];
StringGrid1.Cells[0, 1] := StringGrid3.Cells[0, (StrToInt(Memo2.Lines[1])-1)];
StringGrid1.Cells[0, 2] := StringGrid3.Cells[0, (StrToInt(Memo2.Lines[2])-1)];
StringGrid1.Cells[0, 3] := StringGrid3.Cells[0, (StrToInt(Memo2.Lines[3])-1)];
//-
StringGrid1.Cells[1, 0] := StringGrid3.Cells[1, (StrToInt(Memo2.Lines[0])-1)];
StringGrid1.Cells[1, 1] := StringGrid3.Cells[1, (StrToInt(Memo2.Lines[1])-1)];
StringGrid1.Cells[1, 2] := StringGrid3.Cells[1, (StrToInt(Memo2.Lines[2])-1)];
StringGrid1.Cells[1, 3] := StringGrid3.Cells[1, (StrToInt(Memo2.Lines[3])-1)];
//-
StringGrid1.Cells[2, 0] := StringGrid3.Cells[2, (StrToInt(Memo2.Lines[0])-1)];
StringGrid1.Cells[2, 1] := StringGrid3.Cells[2, (StrToInt(Memo2.Lines[1])-1)];
StringGrid1.Cells[2, 2] := StringGrid3.Cells[2, (StrToInt(Memo2.Lines[2])-1)];
StringGrid1.Cells[2, 3] := StringGrid3.Cells[2, (StrToInt(Memo2.Lines[3])-1)];
//--
StringGrid2.Cells[0, 0] := StringGrid4.Cells[0,(StrToInt(Memo2.Lines[0])-1)];
StringGrid2.Cells[0, 1] := StringGrid4.Cells[0,(StrToInt(Memo2.Lines[1])-1)];
StringGrid2.Cells[0, 2] := StringGrid4.Cells[0,(StrToInt(Memo2.Lines[2])-1)];
StringGrid2.Cells[0, 3] := StringGrid4.Cells[0,(StrToInt(Memo2.Lines[3])-1)]; 


[whatever]

StringGrid1.Cells[0, 0] := StringGrid3.Cells[0, (StrToInt(Memo2.Lines[0])-1)]; 
StringGrid1.Cells[0, 1] := StringGrid3.Cells[0, (StrToInt(Memo2.Lines[1])-1)]; 
StringGrid1.Cells[0, 2] := StringGrid3.Cells[0, (StrToInt(Memo2.Lines[2])-1)]; 
StringGrid1.Cells[0, 3] := StringGrid3.Cells[0, (StrToInt(Memo2.Lines[3])-1)]; 
//- 
StringGrid1.Cells[1, 0] := StringGrid3.Cells[1, (StrToInt(Memo2.Lines[0])-1)]; 
StringGrid1.Cells[1, 1] := StringGrid3.Cells[1, (StrToInt(Memo2.Lines[1])-1)]; 
StringGrid1.Cells[1, 2] := StringGrid3.Cells[1, (StrToInt(Memo2.Lines[2])-1)]; 
StringGrid1.Cells[1, 3] := StringGrid3.Cells[1, (StrToInt(Memo2.Lines[3])-1)]; 
//- 
StringGrid1.Cells[2, 0] := StringGrid3.Cells[2, (StrToInt(Memo2.Lines[0])-1)]; 
StringGrid1.Cells[2, 1] := StringGrid3.Cells[2, (StrToInt(Memo2.Lines[1])-1)]; 
StringGrid1.Cells[2, 2] := StringGrid3.Cells[2, (StrToInt(Memo2.Lines[2])-1)]; 
StringGrid1.Cells[2, 3] := StringGrid3.Cells[2, (StrToInt(Memo2.Lines[3])-1)]; 
//-- 
StringGrid2.Cells[0, 0] := StringGrid4.Cells[0,(StrToInt(Memo2.Lines[0])-1)]; 
StringGrid2.Cells[0, 1] := StringGrid4.Cells[0,(StrToInt(Memo2.Lines[1])-1)]; 
StringGrid2.Cells[0, 2] := StringGrid4.Cells[0,(StrToInt(Memo2.Lines[2])-1)]; 
StringGrid2.Cells[0, 3] := StringGrid4.Cells[0,(StrToInt(Memo2.Lines[3])-1)]; 

То что красным, зачем повторяется то? Если надо, последнюю вынеси за цикл.

for i:=0 to 2 do
  for j:=0 to 3 do
    StringGrid1.Cells[i, j] := StringGrid3.Cells[i, (StrToInt(Memo2.Lines[j])-1)];
for i:=0 to 3 do
  StringGrid2.Cells[0, i] := StringGrid4.Cells[0,(StrToInt(Memo2.Lines[i])-1)];