[pavarotti]

В предложенном NIch'ем коде получается простой массив учета возможности варьирования сколько раз каждый элемент может быть взят для расчета?
Как можно описать массив в котором значение каждого элемента фиксированно, но количество каждого варьируется пользователем.

Вот что пока у меня пока получилось:

Код:

procedure TForm1.Button1Click(Sender: TObject);
var
 Mass: array[0..11] of real;
 StringList : TStringList;
 i,j,y:integer;

begin
Mass[0]:=StrToInt(Form2.Edit1.text);
Mass[1]:=StrToInt(Form2.Edit2.text);
Mass[2]:=StrToInt(Form2.Edit3.text);
Mass[3]:=StrToInt(Form2.Edit4.text);
Mass[4]:=StrToInt(Form2.Edit5.text);
Mass[5]:=StrToInt(Form2.Edit6.text);
Mass[6]:=StrToInt(Form2.Edit7.text);
Mass[7]:=StrToInt(Form2.Edit8.text);
Mass[8]:=StrToInt(Form2.Edit9.text);
Mass[9]:=StrToInt(Form2.Edit10.text);
Mass[10]:=StrToInt(Form2.Edit11.text);
Mass[11]:=StrToInt(Form2.Edit12.text);
Y:=strtoint(form1.edit6.Text);
for i:=0 to Length(Mass)-1 do
 for j := 0 to Length(Mass)-1 do
 begin
  if Y = Mass[i]+Mass[j] then
   StringList.Add(FloatToStr(Mass[i])+'+'+FloatToStr(Mass[j])+'='+FloatToStr(Y));
 end;

Memo1.Lines.Text := StringList.Text;

 end;

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