[Pascal] нужно сформировать матрицу из векторов, вектора x,y,z должны стать столбцами матрицы, остановилась после сортировки векторов

[anna77777]

По заданию нужно сформировать матрицу из векторов, вектора x,y,z должны стать столбцами матрицы, остановилась после сортировки векторов

unit Unit1;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, OleCtnrs, Menus;

type
  TForm1 = class(TForm)
    OleContainer1: TOleContainer;
    MainMenu1: TMainMenu;
    N1: TMenuItem;
    N2: TMenuItem;
    procedure N2Click(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  Form1: TForm1;
   x:array[1..3] of real=(5.2,1.4,3.5);
   y:array[1..3] of real=(3.4,-2.7,6.01);
   z:array[1..3] of real=(4.5,-0.1,1);
   i:integer;

implementation

{$R *.dfm}

 //сортировка вектора
 function dlin(q:array of real):real;
var i:byte; buf:real;
begin
for i:=1 to 3 do
 if q[i]>q[i+1] then begin
                       buf:=q[i];
                       q[i]:=q[i+1];
                       q[i+1]:=buf;
                     end;
end;


procedure TForm1.N2Click(Sender: TObject);
begin
Close
end;

end.

[Вадим Мошев]

А что подсказать?
Кстати, о том, как правильно оформлять код, прочитайте здесь: http://www.programmersforum.ru/showp...20&postcount=2

[ura_111]

Посмотри, что тебе не понятно:
1) объявляй матрицу;
2) объявляй новую функцию для заполнения (а когда должно формироваться матрица? Когда на кнопку нажимаешь или меню выбераешь или автоматически?);
3) а заполняешь так:

for i:=1 to 3 do
begin
A[1][i]:=x[i];
A[2][i]:=y[i];
A[3][i]:=z[i];
end;

Пробуй реализовать у себя - там посмотрим.

[ura_111]

Только я не помню насчёт индексов:

A[1][i]:=....
A[i][1]:=....

Где будет в строку заполнять , а где в столбы? (постоянно это путаю для матриц - определяю только методом тыка).
Посмотри это в интернете и скажи мне.