Unit InputVecMat_;

Interface

Uses

Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs,

StdCtrls;

Const

MaxSizeRow=10; MaxSizeColumn=10; //Максимальные размеры матрицы

MaxSizeVector=15; //Максимальный размер вектора

Type

TForm1 = class(TForm)

edtVector: TEdit;

btnVector: TButton;

Label1: TLabel;

btnMatrix: TButton;

memoMatrix: TMemo;

edtSizeVector: TEdit;

Label2: TLabel;

Label3: TLabel;

edtSizeRow: TEdit;

Label4: TLabel;

edtSizeColumn: TEdit;

Label5: TLabel;

Label6: TLabel;

btnVectorWork: TButton;

Label7: TLabel;

Label8: TLabel;

Label9: TLabel;

Label10: TLabel;

Label11: TLabel;

btnMatrixWork: TButton;

memoTransposed: TMemo;

procedure btnVectorClick(Sender: TObject);

procedure btnMatrixClick(Sender: TObject);

procedure FormActivate(Sender: TObject);

procedure btnVectorWorkClick(Sender: TObject);

procedure edtVectorChange(Sender: TObject);

procedure memoMatrixChange(Sender: TObject);

procedure btnMatrixWorkClick(Sender: TObject);

procedure edtSizeVectorChange(Sender: TObject);

procedure edtSizeChange(Sender: TObject);

Private

{ Private declarations }

Public

{ Public declarations }

End;

Type

tVector = array [1..MaxSizeVector] of Integer;

tMatrix = array [0..MaxSizeRow,0..MaxSizeColumn]of Integer;

Var

Form1: TForm1;

A: tMatrix;

Дата добавления: 2015-07-10