cd2_3u.cpp

C++ Builder程序员学习数据结构第2章

//---------------------------------------------------------------------------
#include <vcl.h>
#pragma hdrstop

#include "cd2_3u.h"
//---------------------------------------------------------------------------
#pragma package(smart_init)
#pragma resource "*.dfm"
TForm1 *Form1;
//---------------------------------------------------------------------------
__fastcall TForm1::TForm1(TComponent* Owner)
        : TForm(Owner)
{
}
//---------------------------------------------------------------------------

void __fastcall TForm1::endClick(TObject *Sender)
{
   Close();
}
//---------------------------------------------------------------------------
void __fastcall TForm1::strClick(TObject *Sender)
{
   short a[3][2], b[2][3];           //定义二维数组a为3行2列,数据类型为short
   short c[3][3]={0};                //将c数组的所有元素内容值都设为0
   int   ac=2,ar=3;                  //取有意义的变量名称有助于程序的理解
   int   bc=3,br=2;                  //ac代表a的列数(column)br代表b的行数(row)
   int   i,j,k;

   a[0][0]=StrToInt(a00->Text);      //将a数组第0列第0行设定为a00的输入值
   a[0][1]=StrToInt(a01->Text);      //利用选取反白并击鼠标右键copy及paste以省时
   a[1][0]=StrToInt(a10->Text);
   a[1][1]=StrToInt(a11->Text);
   a[2][0]=StrToInt(a20->Text);
   a[2][1]=StrToInt(a21->Text);

   b[0][0]=StrToInt(b00->Text);      //设置b数组各元素内容值,并以剪贴技巧完成
   b[0][1]=StrToInt(b01->Text);
   b[0][2]=StrToInt(b02->Text);
   b[1][0]=StrToInt(b10->Text);
   b[1][1]=StrToInt(b11->Text);
   b[1][2]=StrToInt(b12->Text);

   for(i=0;i<ar;i++)                   //for循环适用于循环数是已知的情况下
      for(j=0;j<bc;j++)
         for(k=0;k<ac;k++)             //ac与bc设置值必定相同,否则此矩阵不能相乘
            c[i][j]+=a[i][k]*b[k][j];  /*此为矩阵相乘规律此外c+=a相当于c=c+a;
                                         //c(i,j)=c(i,j)+a(i,k)*b(k,j) */
   c00->Text=IntToStr(c[0][0]);        //将c数组转为字符串型后设置给c00输出
   c01->Text=IntToStr(c[0][1]);
   c02->Text=IntToStr(c[0][2]);
   c10->Text=IntToStr(c[1][0]);
   c11->Text=IntToStr(c[1][1]);
   c12->Text=IntToStr(c[1][2]);
   c20->Text=IntToStr(c[2][0]);
   c21->Text=IntToStr(c[2][1]);
   c22->Text=IntToStr(c[2][2]);
}
//---------------------------------------------------------------------------