[YA_MARIYA]

Здравствуйте!

Код:

1 2 3 4 5 6 7 8

var n,l,h:integer; begin ..... For h:=1 to n do begin For l:=1 to n do begin Memo1.SelText:=(' B_['+inttostr(h)+']'+('(A_[ '+inttostr(l)+']'+'+B_[ '+inttostr(l))+'])' ); end; end;

Admin: Пользуемся тегами!

n берется с формы.
Если, напиример, n=3,тогда
Пишет: B_[1](A_[1]+B_[1])+B_[1](A_[2]+B_[2])+B_[1](A_[3]+B_[3])+ B_[2](A_[1]+B_[1]) и т. д.
Подскажите, пожалуйста, что нужно сделать, чтоб писал так:
B_[1](B_[2]+A[2])(B_[3]+A[3])+ B_[2](B_[1]+A[1])(B_[3]+A[3])+ B_[3](B_[1]+A[1])(B_[2]+A[2])

[NIch]

Так неверно???

B_[1](A_[1]+B_[1])+
B_[1](A_[2]+B_[2])+
B_[1](A_[3]+B_[3])+
B_[2](A_[1]+B_[1])

Как должен быть организован цикл непонятно...

B_[1](B_[2]+A[2])(B_[3]+A[3])+ // 1 22 33
B_[2](B_[1]+A[1])(B_[3]+A[3])+ // 2 11 33
B_[3](B_[1]+A[1])(B_[2]+A[2]) // 3 11 22

Дополни еще парой слагаемых для примера, например n = 5

[YA_MARIYA]

B_[1](A_[2]+B_[2])(A_[3]+B_[3])(A_[4]+B_[4])(A_[5]+B_[5])+
B_[2](A_[1]+B_[1])(A_[3]+B_[3])(A_[4]+B_[4])(A_[5]+B_[5])+
B_[3](A_[1]+B_[1])(A_[2]+B_[2])(A_[4]+B_[4])(A_[5]+B_[5])+
B_[4](A_[1]+B_[1])(A_[2]+B_[2])(A_[3]+B_[3])(A_[5]+B_[5])+
B_[5](A_[1]+B_[1])(A_[2]+B_[2])(A_[3]+B_[3])(A_[4]+B_[4])

Индекс у B перед скобкой не должени совпадать с индексами у A и B в скобках.

[NIch]

Пожалуйста...Может немного не то, но в нужном направлении...

Код:

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28

procedure TForm1.Button1Click(Sender: TObject); var  n, k : word;  S, S1, S2 : string;  i, j : word; begin  n := StrToInt(Edit1.Text);//Количество  S := '';//Массив начальных индексов  S1 := '';//Массив индексов  for i := 0 to n-1 do//Заполяем строку   S := S+IntToStr(i+1);//Получаем 12345  for i := 1 to n do  begin   //Выводим массив индексов   S1 := S;   Insert (S1[i], S1, 1);   Delete (S1, i+1, 1);   Memo1.Lines.Add(S1);   //Вводим индексы в строку   S2 := ' B_['+S1[1]+']  ';   k := 0;   for j := 1 to n-1 do   begin    S2 := S2 + ' (A_['+S1[j+1]+'] + B_['+S1[j+1]+']) ';   end;   Memo2.Lines.Add(S2);  end; end;

Весь мозг себе вынес пока решил...но задача интересная)))
PS Кинуть на форму 2 мемо, едит и кнопку...

[YA_MARIYA]

Огромнейшее СПАСИБО!!!!! ТО, что нужно!!!!! Respect!!!!!