Essays.club - Получите бесплатные рефераты, курсовые работы и научные статьи
Поиск

Задача по "Программированию"

Автор:   •  Июнь 11, 2022  •  Задача  •  520 Слов (3 Страниц)  •  165 Просмотры

Страница 1 из 3

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;

...

Скачать:   txt (3.3 Kb)   pdf (44.8 Kb)   docx (7.4 Kb)  
Продолжить читать еще 2 страниц(ы) »
Доступно только на Essays.club