[YA_MARIYA]

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

Код:

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]

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

Код:

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!!!!!