[luffi]

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

[Pyro]

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

[luffi]

програма должна быть универсальна. напримен если там не 3х5 будет а 4х5. там сразу же будит другой перебов, соответственно другие варианты ответов и больше или меньше комбинаций ответов в зависимости от размера матрици. вот я скрин сделас. соответственно вариантов меньше и комбинаций ответов меньше

[luffi]

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

[Pyro]

должно быть что-то похожее

PHP код:

s := edit3.text;
for i := 0 to length(s) - 1 do
  for j := 0 to length(s) - 1 do
    StringGrid1.Cells[i, j] := StringGrid3.Cells[i, StrtoInt(s[j+1])]; 


[luffi]

нимного не то, мне как то нада свизать числа с перебора например 345 с 3,4,5 или 125 с ячейками 1,2,5 ячейкой стрингрида1 и перенести в стрингрид2. но незнаю как ето нормально написать

я там if-ми на матрицу 5х5 максимально написал. но если там будет большая матрица например 10х10, то if-ов слишком много будет, ето будет не красиво.

[Pyro]

если так?

PHP код:

//iii и jjj это размерности матрицы
s := edit3.text; 
for i := 0 to iii-1 do 
  for j := 0 to jjj-1 do 
    StringGrid1.Cells[i, j] := StringGrid3.Cells[i, StrtoInt(s[j+1])]; 


[luffi]

Сообщение от Pyro

если так?

PHP код:

//iii и jjj это размерности матрицы
s := edit3.text; 
for i := 0 to iii-1 do 
  for j := 0 to jjj-1 do 
    StringGrid1.Cells[i, j] := StringGrid3.Cells[i, StrtoInt(s[j+1])]; 


ну етим кодом, мы считывает тока всю матрицу, немного не так как я хочу

[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)]; 


[Pyro]

PHP код:

iii := 3;
jjj := 4;
for i := 0 to iii-1 do  
  for j := 0 to jjj-1 do  
    StringGrid1.Cells[i, j] := StringGrid3.Cells[i, StrtoInt(Memo2.Lines[j])-1]; 


[luffi]

Сообщение от Pyro

PHP код:

iii := 3;
jjj := 4;
for i := 0 to iii-1 do  
  for j := 0 to jjj-1 do  
    StringGrid1.Cells[i, j] := StringGrid3.Cells[i, StrtoInt(Memo2.Lines[j])-1]; 


ну такое я знаю, а если например я StringGrid1.Cells[i, j] оствлюю тем же а в StringGrid3.Cells[i, StrtoInt(Memo2.Lines[j])-1]; мне нада из на 3 больше с каждим шагом

[Pyro]

заметно что знаешь

PHP код:

iii := 3; 
jjj := 4; 


это размерность от неё всё зависит. учи циклы...

[luffi]

Сообщение от Pyro

заметно что знаешь

PHP код:

iii := 3; 
jjj := 4; 


это размерность от неё всё зависит. учи циклы...

не не не, ти не понял, первый шас я использую елементы 0.1.2 вчторой 3,4,5 и т.д

[luffi]

Pyro спасибо немного помог. вот прога я сделал сам как хотел, тока ешо нада разобратся почему не шитает последний вариант