其他典型算法之矩阵应用-专项训练浙江2022届选考专用（学生版）.docx

《其他典型算法之矩阵应用-专项训练浙江2022届选考专用（学生版）.docx》由会员分享，可在线阅读，更多相关《其他典型算法之矩阵应用-专项训练浙江2022届选考专用（学生版）.docx（7页珍藏版）》请在淘文阁 - 分享文档赚钱的网站上搜索。

1、其他典型算法之矩阵应用【例1】 把矩阵A的行和列互相交换所产生的矩阵称为A的转置矩阵,这一过程称为矩阵的转置,如 。以下VB6程序实现矩阵的转置,请在划线处填入正确的语句实现功能。Const m = 4Const n = 5Dim a(1 To m * n) As IntegerDim b(1 To m * n) As IntegerPrivate Sub Command1_Click()Dim i As Integer, j As IntegerList1.ClearList2.ClearRandomizeFor i = 1 To m * n生成源矩阵a(i) = Int(Rnd() * 8

2、9 + 10)NextFor i = 1 To m显示源矩阵s = For j = 1 To n s =NextList1.AddItem sNextFor i = 1 To n 生成并显示转置矩阵s = For j = 1 To mb(i - 1) * m + j) =s = s + Str(b(i - 1) * m + j)NextList2.AddItem sNextEnd Sub【例2】.(201711浙江选考)由数组a生成数组b的方法描述如下:(1)将数组a中的n个元素依次分割出若干个数据块,每个数据块有mm个元素,m最大值为8,最小值为2。分割时,按尽可能大的数据块进行分割。(2)

3、对每个分割出的数据块用“方阵转换法”进行转换,每次转换后得到的数据块依次存储在数据b中。(3)数组a分割后的剩余元素(个数小于4),直接依序存储到数组b中。例如n=140时,可依次分割出3个数据块,元素的个数分别为64(88)、64(88)、9(33),剩余元素为3个。“方阵转换法”过程如下:将数据块中mm个元素按行序排列成一个数字方阵,从该数字方阵中按列序得到转换后元素的次序。以33数据块为例,转换过程如下图所示:小明依据上述描述设计了如下VB程序。请回答下列问题:(1)当n=120时,分割出的第3个数据块元素个数为。(2)请在划线处填入合适的代码。Const n = 120Dim a(1

4、To n) As IntegerDim b(1 To n) As IntegerPrivate Sub Command1_Click()Dim m As Integer, i As IntegerDim Start As Integer当前未分割数据的第1个元素下标Dim Left As Integer当前未分割数据的个数Dim pa As Integer数组a的下标Dim pb As Integer数组b的下标读取n个转换前的数据,依次存储到a(1)、a(2)、a(n)中,代码略m = 8Start = 1Left = nDo While Left 3If Left =0 And c=xy(

5、1) And j=xy(2) And i=0And Mid(s,i,1)=x1 And i=y1 And j=y2 Thenb(i-1)􀆽 n+j)=Elseb(i-1)􀆽 n+j)=a(i-1)􀆽 n+j)End IfNext jNext iFor i=1 To n2line=line+adj(Str(b(i),3)If ThenList2.AddItem lineline= End IfNext iEnd Sub3.小王设计了一个顺时针旋转矩阵的程序,其功能为:运行程序时,在文本框Text1中输入矩阵规模n,点击“产生矩阵”按钮Comm

6、and1,在列表框List1中显示一个nn的矩阵,该矩阵数据由从1开始的连续自然数组成。点击“旋转矩阵”按钮Command2,该矩阵顺时针旋转90度并显示在列表框List2中。此后,每点一次“旋转矩阵”按钮Command2,列表框List2中显示的矩阵顺时针旋转90度。程序运行界面如图所示。(1)运行程序,在文本框Text1中输入5,点击“产生矩阵”按钮Command1,再连续点击三次Command2按钮,则列表框List2中第一行显示的内容是。(2)实现此程序的代码如下,请在划线处填入合适的代码。Dim n As Integer,st As StringDim a(1 To 100) As

7、IntegerDim b(1 To 100) As IntegerPrivate Sub Command1_Click()n=Val(Text1.Text)For i=1 To n􀆽 na(i)=iNext iFor i=1 To nst= For j=1 To nst=st+adj(Str(a(i-1)􀆽 n+j),3)Next jList1.AddItem stNext iEnd SubPrivate Sub Command2_Click()List2.ClearFor i=1 To nst= For j=1 To nb(i-1)􀆽 n

8、+j)=st=st+adj(Str(b(i-1)􀆽 n+j),3)Next jList2.AddItem stNext iFor i=1 To n􀆽 na(i)=Next iEnd Subadj函数的功能:在字符串a前加入适当的空格,使a的长度为n位Function adj(a As String,n As Integer) As StringDim sa As Stringna=Len(a):sa=aFor i=1 To n-nasa= +saNext iadj=End Function4.皇后的势力范围。在国际象棋,皇后的攻击范围是经过所在位置的任何直线

9、和对角线,如图所示:用VB设计一自定义函数,给定皇后所在位置p1和对方所在棋子位置p2(位置编号如上图所示,编号从左到右,从上到下,左上起第1格为),判断皇后是否可以攻击对方棋子,如果可以返回true,不行则返回false。程序如下,请在划线处填入正确的语句。Function judge(p1 As Integer,p2 As Integer) As BooleanDim f As Boolean,x1 As Integer,y1 As IntegerDim x2 As Integer,y2 As Integerx1=p1 Mod 8y1=p18x2=p2 Mod 8y2=p28If x1=x2 Or y1=y2 Or Thenf=TrueElsef=FalseEnd Ifjudge=fEnd Function