- 二一组卷

题型：综合题题类：难易度：普通

浙江省七彩阳光联盟2023-2024学年高三上学期第一次联考信息技术试题

某公路由于长期没有维修，路上出现了很多个坑。为了尽快填补好这些坑，交通管理部门决定对m处地段采取交通管制。将该公路看成一条直线，坑就是直线上的坐标点，坑所在的路段需要封控管制。例如某管制路段2~4，需封控2、3、4路段。交管部门为了减少管制路段的长度，希望将这n个坑分成m段（一段可以只有一个坑），使得这m段公路的总长度最小。请你根据n个坑的位置（位置已按照从小到大进行排序），计算管制路段最小的总长度。代码运行效果如图所示。

请回答下列问题：

（1）、上图所示的例子中，若将路段数量修改为5，则管制路段总长度为。

（2）、实现上述功能的Python 程序如下，请在划线处填入合适的代码。

m = int(input("路段数量:"))

s = input("坑的坐标依次为:").split(',')

n = len(s)

for i in range(n):

s[i] = int(s[i])

flag = [False] * (n-1)

for i in range(1, m):

k = -1

for j in range(n-1):

if:

if k == -1 or s[j+1]-s[j] > s[k+1]-s[k]:

k = j

flag[k] = True

print("维修管制的路段依次为：")

dis, t = 0, 0

for i in range(n-1):

if flag[i]:

print(s[t],"~",s[i])

dis += s[i]-s[t]+1

print(s[t],"~",s[n-1])

dis =

print("管制总长度为",dis)

举一反三

n个数据的冒泡排序需要经过n-1遍加工，每一遍加工自下而上比较相邻两个数据，把较小者交换到上面。小刘发现：当某一遍加工过程中没有数据交换，说明数据已经有序，无需进一步加工。为此，小刘对算法进行优化，编写了一个VB程序，功能如下：运行程序时，在列表框List1中显示排序前数据，单击“排序”按钮Commaiid1，在列表框List2 中显示这些数据按升序排序后的结果，在标签Label3中显示排序过程的加工遍数。运行效果如图所示。

实现上述功能的VB代码如下，但加框处代码有错，请改正。

Dim a(1 To 8) As Integer

Dim n As Integer

Private Sub Form_Load()

'n=8，排序前数据存储在数组a中，并在列表框Listl中显示

'代码略

End Sub

Private Sub Command1_Click()

Dim flag As Boolean 'flag值为True表示一遍加工中发生过交换

i = 1

flag = True

Do While '（1）

flag = False

For j = n To i + 1 Step -1

If a(j) < a(j - 1) Then

k = a(j): a(j) = a(j - 1): a(j - 1) = k

flag = True

End If

Next j

i = i + 1

Loop

Label3.Caption = "排序过程的加工遍数为+ " '（2）

For i = 1 To n

List2.AddItem Str(a(i))

Next i

End Sub

⑴{#blank#}1{#/blank#} ⑵{#blank#}2{#/blank#}

n个数据的冒泡排序需要经过n-1遍加工，每一遍加工自下而上比较相邻两个数据，把较小者交换到上面。小刘发现：当某一遍加工过程中没有数据交换，说明数据已经有序，无需进一步加工。为此，小刘对算法进行优化，编写了一个VB程序，功能如下：运行程序时，在列表框List1中显示排序前数据，单击“排序”按钮Command1，在列表框List2中显示这些数据按升序排序后的结果，在标签Label3中显示排序过程的加工遍数。运行效果如例图所示。

实现上述功能的VB代码如下，但加框处代码有错，请改正。

Dim a(1 To 8) As Integer

Dim n As Integer

Private Sub Form_Load()

'n=8，排序前数据存储在数组a中，并在列表框List1中显示

'代码略

End Sub

Private Sub Command1_Click()

Dim flag As Boolean 'flag值为True表示一遍加工中发生过交换

i=1

flag=True

Do While i<=n-1 Or flag=True '（1）

flag=False

For j=n To i+1 Step -1

If a(j)<a(j-1) Then

k=a(j):a(j)=a(j-1):a(j-1)=k

flag=True

End If

Next j

i=i+1

Loop

Label3.Caption="排序过程的加工遍数为"+Str(i) '（2）

For i=1 To n

List2.AddItem Str(a(i))

Next i

End Sub

⑴{#blank#}1{#/blank#} ⑵{#blank#}2{#/blank#}

【加试题】有如下 VB 程序段:

For i=1 to 3

For j=1 to 5-i

If a(j)>a(j+1) Then

t=a(j) : a(j)=a(j+1) : a(j+1)=t

End If

Next j

Text1.Text = Text1.Text + Str(a(i))

Next i

数组元素a(1)到a(5)的值依次为“3,9,6,8,4”。若该程序段执行后，文本框Text1显示的内容是（）

【加试题】随机产生一个存有两位整数组a，先排序，然后进行数据重组，使被排序的数据呈现中间小，并逐次向两边增大。小李编写了该VB程序，运行程序时，在列表框List1中显示排序前数据，单击“重组”按钮Command2，在列表框List2中显示“重组”后的数据，程序运行界面如图所示。

实现上述功能的VB程序如下，但加框处代码有错，请改正。

Dim a(0 To 20)As Integer，d(0 To 20)As Integer

Dim n As Integer

Private Sub Command1_Click()

‘产生n个[10，99]之间的随机整数，存储在a(0 To n-1)中，同时显示在List1中，代码略

End Sub

Private Sub Command2_Click()

Dim i As Integer

n=Val(Text1．Text)

For i=0 To n-2

For j=i+1 To n-1

If Then ‘(1)

temp=a(i)：a(i)=a(j)：a(j)=temp

End If

Next j

Next i

If n Mod 2<>0 Then d(n＼2)=a(n-1) ‘个数为奇数，最小值放中间位置

For i=0 To n＼2—1

d(i)=a(i*2)

=a(2*i+1) ‘(2)

Next i

‘在列表框List2中输出数组d，代码略

End Sub

六位同学的英语听力成绩分别为24， 27， 16， 15， 24， 18，其排序过程如下表所示，其采用的排序算法及第二遍排序结果正确的是（）

采用冒泡排序算法对数据序列“8，7，2，3，9，6，5”完成升序排序，排序2趟后，正确的顺序是（）

相关试卷

公司介绍

服务介绍

帮助中心