[Jia]

Есть массив содержащий несколько значений. Например 7, 9 и 12. Из них нужно составить матрицу следующего вида:
(1;1) (7;9) (7;12)
(9;7) (1;1) (9;12)
(12,7)(12;9)(1;1)
То есть состоящую из пар значений. При чём главная диагональ равна единице, всё что ниже главной диагонали - такие же пары значений, что и выше только наоборот.
Вопрос как это реализовать с возможностью потом выдёргивать значения по отдельности для дальнейших преобразований? Можно ли реализовать при помощи записей?

[Kailon]

Возможно все! Есть хоть какие-нибудь наработки?

[Pyro]

Код:

1	array[0..2,0..2] of tpoint

как это реализовать

это основы

[Jia]

Насколько я знаю tpoint поддерживает только целочисленный тип данных, в моём случае значения будут вещественными.

Наработки есть небольшие, но я в них уже запуталась.

Код:

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 29 30 31 32 33 34 35 36 37 38 39 40 41

type    mas=array [1..12, 1..11] of real;   TMyRec = record     Field1: real;     Field2: real;   end;   TMyRecArray = array[0..12] of TMyRec;         var  MyArray: TMyRecArray;  MyRec: TMyRec; prm:array[1..12] of real; a:array [1..2] of mas; t,hx,y,razmer:integer;   If form1.AHP1.Checked=true then        begin         prm[t]:=norm[y];                        {Заполняем одномерный массив prm нужными значениями из другого массива}       str((prm[t]):12:12,st);                 {перевод значения в строку}       ShowMessage('мой массив= '+st);         {вывод строки для контроля заполнения}       end; For i:=1 to razmer do       For j:=1 to razmer do       if i=j then begin       with MyRec do       begin       Field1:=1;       Field2:=1;       end;       for t:=1 to razmer do                   {прогоняем массив до конца}       begin        with MyRec do                   {работа с записью}        begin        Field1:=prm[t];   {Первое поле принимает первое значение}        Field2:=prm[t+1]; {Второе поле принимает второе значение}        t+1        end;

[Pyro]

можно вроде того:

Код:

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21

type my1 = byte; type tdata = array[0..3] of my1; type matr = array[0..1,0..1] of tpoint;   var dano: tdata = (1,7,9,12); var shablon: matr = (((x:0;y:0), (x:1;y:2)), ((x:1;y:3), (x:0;y:0)));   function use(shablon: matr; data: tdata): matr; var i,j: integer; begin   for i:=0 to high(matr) do     for j:=0 to high(matr) do begin       result[i,j].x := data[shablon[i,j].x];       result[i,j].y := data[shablon[i,j].y];     end end;   procedure TForm1.Button1Click(Sender: TObject); var matrix: matr; begin   matrix := use(shablon, dano);