Задача по "Программированию"
Автор: otuvjdppp • Июнь 11, 2022 • Задача • 520 Слов (3 Страниц) • 165 Просмотры
var
Form1: TForm1;
Rows1,Rows2,Rows3,Rows4,Rows5,Cols1,Cols2,Cols3,Cols4,Cols5,g,t,a,b,k:integer;
Result:real;
Aa: Masiv;
implementation
{$R *.dfm}
uses UnitAbout, UnitHelp;
procedure TForm1.AddColumnM1_BDSClick(Sender: TObject);
begin
Cols1:=Cols1+1;
Matrix1_BDS.ColCount:=Cols1;
M1Columns_BDS.Text:=IntToStr(Cols1);
end;
procedure TForm1.AddColumnM2_BDSClick(Sender: TObject);
begin
Cols2:=Cols2+1;
Matrix2_BDS.ColCount:=Cols2;
M2Columns_BDS.Text:=IntToStr(Cols2);
end;
procedure TForm1.AddM1_BDSClick(Sender: TObject);
begin
if ((Length(M1Rows_BDS.Text)=0)or(Length(M1Columns_BDS.Text)=0)) then
begin
MessageBox(Self.Handle, PChar('Введите размер матрицы'), PChar('Ошибка'), MB_OK + MB_ICONSTOP + MB_APPLMODAL);
end
else
begin
Rows1:=StrToInt(M1Rows_BDS.Text);
Cols1:=StrToInt(M1Columns_BDS.Text);
Matrix1_BDS.RowCount:=Rows1;
Matrix1_BDS.ColCount:=Cols1;
end;
end;
procedure TForm1.AddM2_BDSClick(Sender: TObject);
begin
if ((Length(M2Rows_BDS.Text)=0)or(Length(M2Columns_BDS.Text)=0)) then
begin
MessageBox(Self.Handle, PChar('Введите размер матрицы'), PChar('Ошибка'), MB_OK + MB_ICONSTOP + MB_APPLMODAL);
end
else
begin
Rows2:=StrToInt(M2Rows_BDS.Text);
Cols2:=StrToInt(M2Columns_BDS.Text);
Matrix2_BDS.RowCount:=Rows2;
Matrix2_BDS.ColCount:=Cols2;
end;
end;
procedure TForm1.AddRowM1_BDSClick(Sender: TObject);
begin
Rows1:=Rows1+1;
Matrix1_BDS.RowCount:=Rows1;
M1Rows_BDS.Text:=IntToStr(Rows1);
end;
procedure TForm1.AddRowM2_BDSClick(Sender: TObject);
begin
Rows2:=Rows2+1;
Matrix2_BDS.RowCount:=Rows2;
M2Rows_BDS.Text:=IntToStr(Rows2);
end;
procedure TForm1.Button1Click(Sender: TObject);
var i,j:integer;
begin
if ((Matrix4_BDS.RowCount=0) or (Matrix4_BDS.ColCount=0)) then
begin
MessageBox(Self.Handle, PChar('Сперва создайте матрицу,чтобы скопировать'), PChar('ы'), MB_OK + MB_ICONSTOP + MB_APPLMODAL);
end
else
begin
Rows5:=Matrix4_BDS.RowCount;
Cols5:=Matrix4_BDS.ColCount;
Matrix5_BDS.RowCount:=Rows5;
Matrix5_BDS.ColCount:=Cols5;
...