11子序列2公开课.docx

《11子序列2公开课.docx》由会员分享，可在线阅读，更多相关《11子序列2公开课.docx（4页珍藏版）》请在淘文阁 - 分享文档赚钱的网站上搜索。

1、子序列问题21.连续子序列定义如下：在序列al,a2,an中取出一段ai,ai+l,aj这一段就称为连续子序列。 给定长度为n(ln100)的整数序列al,a2,an以及整数S(S100)。求出总和不小于S的连续子序 列中长度最小者。例如：给定长度为5的整数序列和s=9,序列2, 3, 2, 7, 1)其中总和不小于9的连续 子序歹业232,7、2,3,2,7,1、3,2,7、3,2,7,1、2,7、2,7,1,长度最小的子序列为2,7。小杜编写VB解决上述问题的程序，其功能如下：程序运行时在文本框Textl中输入整数序 列(输入的数据保证存在符合条件的子序列)，在Text2中输入整数s。单击

2、按钮Commandl后在 标签Labell上输出符合要求的子序列(如果存在多个，输出第一个)，程序运行如图所示。(1)给定整数序歹U为5,1,3,5,10,7,4,9,2,8,整数s=15 ,符合条件的长度最小的子序列 为 o实现上述功能的VB程序如下，请在划线处填入合适代码。Dim a(l To 100) As Integer, sum(0 To 100) As Integersum(i)存储 a(l)+a(2)+a(i)的值Dim n As Integer, s As IntegerPrivate Sub Form_Load()，读取整数序列依次存储在数组a中，序列长度存储在变量n，从文本

3、框读取s的值，本过程代码略End SubPrivate Sub Commandl_Click()Dim i As Integer, ans As StringDim Min As Integer存储符合条件的最小长度Dim iMin As Integer存储符合条件子序列的起始位置For i = 0 To nQ 子序列Fb-I RR2, 3. 2a 7, 1s= R求解符合条件的子序列为2 7sum(i) = 0Next iFor i = 2 To nsum(i) = a(i) + sum(i -1)Next iMin = n : iMin = 1For i = 1 To n J = IDo

4、While And j = n j=j + lLoopIf j = n And j - i + 1 I-二；：，a平分口才娓平分前各埴重置实现上述功能的VB程序如下，请回答下列问题：（1）若有5堆口罩绳的重里依次为379、1.53x 1.16 s 926、5.2夕（单位为：吨），平分后各堆 的平均重里为4.60吨，则在平分过程中第4堆应搬运给第3堆的口罩绳重里是（填数字）吨。（2）请在划线处填入合适的代码。Const n= SDun a(l To n)As Single, sum As SinglePrivate Sub F onn-LoadQsum中.读取口堆口罩绳的重里数据并存储在数组a中

5、，各堆总重里存储在变里,平分前各堆口罩绳的重里数据在列表框Listl中显示，代码略End SubPrivate Sub Commandl_ChckODim t As Integer, j As Inteser. s As Smele. t As Smffle s= ad (sum / n；Fori= 1 Ton- 1If a(0 = s Then a(i +1) =If a(D s o 0 ThenLise.AddItStr(D + ”堆 + ” + Str(i +1)+ ”堆+ 吁 + Str(adj(a(D - s)+ “吨“End IfX0=sElsej = t+ 1: sum = a(

6、i) + aDo While j=j + l sum = sum + a(j)LoopFork=jToi+ 1 Step-1 t=a(k) = a(k) t a(k-l) = a(k-l) + t sum = sum a(k) Ift0 ThenList2.AddItem Stt(k)+ “堆 + ”+ Str(k-1)+ “堆 + ”:“ + Str(adj(t) + “吨” End IfNextki=j- 1End IfNextiEnd SubFunction adj(x As Single) As Singleadj = Int(xH00 + 0.5)/100End Function3.

7、有m (2m2)个位置上，第i个位置坐标在a(i)上。每两个音箱 相互靠近就会产生干扰,为了解决这个问题，决定把每个音箱都放在离其他音箱尽可能远的位置。 为了使任意两个音箱之间的最小距离尽可能大，设计了下面的程序。程序实现了任意两个音箱之 间最大的最小距离。如有5个位置，5个位置分别为1,2, 8, 4,9,有3个音箱，那么最大的最小距 离就为3,可以将3个音箱分别放在1,4, 8的位置上。(1)如果这5个位置分别为5, 19, 2, 18,9,那么3个音箱可以放置的最大的最小距离为(2)在划线处补上代码。(3)有一句带框框的代码有误，请修改为正确代码，让程序可以符合题意。Dim a(l To

8、 5) As IntegerDim n, k As IntegerPrivate Sub Form_Load()n = Vai(Textl. Text): k = Vai(Text2. Text)随机生成n (n=2)个不重复的0及以上的数字赋值给数组a,代码略End SubPrivate Sub Commandl_Click ()Dim m, 1, r As IntegerFor i = 1 To nFor j = 1 To n - iIf a(j) a(j + 1) Thent=a(j) :a(j)=a(j + 1) :a(j + l)=tEnd IfNext jNext i1 = 1:

9、r = a(n) - a(l)Do While 1 m Then1 = m + 1Elser = m - 1End IfLoopLabel1. Caption = Str (r)End SubFunction check(c As Integer) As Boolean Dim cow as Integer, rgt As Integer cow = 1 :d = c rgt = a(l) + d For i = 2 To nIf a(i) = rgt Thencow = cow + 1End IfNext iIf Then check = TrueElsecheck = FalseEnd IfEnd Function