- 二一组卷

题型：综合题题类：难易度：困难

浙江省嘉兴市第五高级中学2023-2024学年高二上学期信息技术期中测试卷

在平面坐标系中，给定一组有序的点。依次用线段连接这些点，构成一条折线。其中字符串a为输入的坐标系中的各点坐标，以逗号为界从a中取出存入b列表中，列表b的第1、2个元素为第一个点的x坐标和y坐标（即x1,y1），第3、4个元素为第二个点的x坐标和y坐标(即x2，y2)，依次类推。编写Python程序段如下，用于计算折线的长度。

from math import *

def dist(x1, y1, x2, y2):

length = sqrt((int(x1) - int(x2))**2 + ① )

return length

a = input("请输入各点的坐标：") # 如“2,3,4,5”则表示坐标点（2,3）和（4,5）

b = a.split(",")

if len(b) % 2 != 0:

print("输入的坐标有误！")

else:

s = 0

for i in range(0, ② , 2):

s = s + ③

print("折线的长度为：", s)

（1）、如输入的数据为“2,3,5,7,8,11”，则折线的长度为：；如果输入的数据为“2,3,5,7,8,11，”则程序的输出结果是（单选，填字母）。

A.程序输出正确的折线长度

B.输入的坐标有误！

C.程序运行出错！

（2）、为使程序能正确运行，请在划线处填入合适的代码。

① ② ③

举一反三

两质数（素数）的差为2，称此对质数为质数对。下列程序是找出n以内的质数对，并成对显示结果。其中，函数s判断参数m是否为质数。请完成以下问题：

Function s(m) As Boolean

Dim i As Integer

______1_______

For i = 2 To Int(Sqr(m))

If m / i = 0 Then s = false ‘3

Next i

End Function

Private Sub Command1_click()

Dim i, n As Integer

Dim p1, p2 As Boolean

n = Val(Text1.Text)

p1 = s(3)

List1.Clear

For i = ______2_____

p2 = s(i)

If p2 = True Then List1.AddItem = Str(i - 2) + " " + Str(i) ‘4

p1 = p2

Next i

End Sub

给定一个数组(有n个元素)，小李通过边分段、边合并的方式将n个数据处理成一个非降序数据段(a(1)≤a(2)≤a(3)≤……≤a(n))，每一轮数据处理方法如下：

⑴查找相邻两个非降序数据段在未处理的数据区域中，从前往后找出第一个最长非降序数据段。若该数据段后而没有元素，则本轮处理完毕；否则在第1个数据段的后面，从前往后找出数组中第二个最长非降序数据段。

⑵合并两个数据段

借助数组tmp，将查找到的两个相邻数据段合并成一个非降序数据段，然后将合并后的数据依次存回到原数组中。

⑶若数组中还有未处理的数据，则重复⑴⑵步骤。

每一轮数据处理完毕后，重新从数组第1个数据开始进行下一轮处理。若检测到某一轮没有合并处理，则说明n个数据己构成非降序数据段，数据处理结束。

现有n根棍子，第i根棍子的长度为a<sub>1</sub>，现设计了以下VB程序段，想要从中选出三根棍子组成周长尽可能长的三角形，输出最大的周长；若无法组成三角形，则输出0。如当n=5，a={2，3，4，5，10}时，输出12，即选择了3、4、5。当n=4，a={4，5，10，20}时，无法组成三角形，输出0。实现上述功能的VB程序代码如下，但加框处代码有误，请改正。

Dim a(1 To 1000) As Integer

Dim n As Integer

Private Sub Form_Load()

'确定n的值和数组a的各个元素值，即每根棍子的长度值，代码略

End Sub

Function max (x As Integer, y As Integer) As Integer

If x>y Then

max=x

Else

max=y

End If

End Function

Private Sub Command1_Click()

Dim i As Integer, J As Integer, K As Integer

Dim ans As Integer, c As Integer, longest As Integer,

rest As Integer

ans=0

'让i<j<k，保证棍子不会被重复选中

For i=1 To n

For j=i+1 To n

For k=j+1 To n

c=a(i)+a(j)+a(k)

longest= '①

rest=c-longest 'rest 保存最短的两条边的和

If Then '②

ans=max(ans, c)

End If

Next k

Next j

Next i

Print ans

End Sub

定义如下函数：

def tob(n)

if n=0:

return "*

else:

return tob(n//2)+str(1-n%2)

执行语句s=tob(10) 后，s的值为（）

某货品仓库最多存储m件货物，只能从左右两侧取出，现要在移动其他货物次数尽可能少的情况下取出一件某类货物，取出后，其他货物按照原有顺序重新存入，货物间不留空隙。

比如：仓库存储情况列表a=["0","A","A","B","B","A","0","0","0"]，其中"0"表示空位，"A"，"B"表示位置上货物种类，现需从中取出一件B货物，则应从右侧取出，取完后，仓库存储列表更新为a=["0","A","A","B","A","0","0","0","0"]。

某项活动有n个单位（编号1到n）参加，需将员工分成若干个小组，每个小组的人数上限为m，小组编号按新建次序从1开始编号。分组时，首先按单位编号次序依次在各单位内部分分组，每m人分配到一个新建小组中，不足m人的剩余员工暂不分配；然后按剩余员工人数由大到小的顺序，依次为各单位剩余员工分配小组。

若某单位剩余员工人数为k，则分配方法为：在已建的小组中查找空位数（该小组还可容纳的人数）大于或等于k的小组，如果找到的小组有多个，则选择空位数最少的小组，将此k人分配到该小组中；如果没有找到，则新建一个小组，将此k人分配到该小组中。

设n为5，m为20，各单位员工人数及单位内部的分组过程如图a所示，各单位剩余员工的分组过程如图b所示。

编写程序：给定各单位编号及员工人数，根据上述方法进行分组处理，按单位编号次序输出各单位所分配的分组编号。请回答下列问题：

相关试卷

公司介绍

服务介绍

帮助中心