- 二一组卷

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

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

某工厂每天会收到多个订单，有 n 台机器对零件进行加工。为减少机器的损耗，需要在满足所有订单加工的情况下（订单即到即加工），机器开启数量尽量少。若开启 n 台机器不能满足订单即到即加工，则计算所有订单最少的平均等待时间。若给定某天内所有的订单信息，请计算需要开启的机器数量以及订单平均等待时间，代码运行效果图如图所示（注意：若上一个订单结束时间为 9:00，下一个订单开启时间最早为 9:00）。

请回答下列问题：

（1）、上图所示的例子中，若机器有 10 台，则只需要开启台机器。

（2）、定义如下 data_sort(a)函数，参数 a 为列表，列表中每个元素包含三个数据项，依次分别对应订单批次、到达时间、加工时间（时间均转为分钟）。该函数实现将列表a 按照订单到达时间升序排序。

def data_sort(a):

for i in range(len(a)):

for j in :

if ① :

a[j], a[j+1] = a[j+1], a[j]

①划线处填入的语句为，可实现上述功能。

②若将加框处语句写错为 range(i,len(a)-1)，则下列 4 组数据中，若列表a 的值为（单选，填字母）不能测试出问题。

A. [['A1',100,30],['A2',120,30],['A3',110,30],['A4',140,30],['A5',130,30]]

B. [['A1',120,30],['A2',110,30],['A3',100,30],['A4',130,30],['A5',140,30]]

C. [['A1',110,30],['A2',140,30],['A3',130,30],['A4',100,30],['A5',120,30]]

D. [['A1',110,30],['A2',120,30],['A3',130,30],['A4',140,30],['A5',100,30]]

（3）、实现计算开启机器数量的部分 Python 程序如下，请在划线处填入合适的代码。

def huan(n):

#将分钟转换为时间AA:BB 格式，返回值为字符串，代码略#读取文件中的信息，并存储在列表 order 中，代码略data_sort(order)

n=int(input("机器数量：")) for i in range(len(order)):

order[i].append(-1)#order[i]追加一个元素-1 mach = [-1] * n

num, wait = 0, 0

for i in range(len(order)):

k = -1

time = -1

for j in:

t1 = mach[j]

if k == -1:

k = j

time = order[t1][1]+order[t1][2]

else:

t2 = mach[k]

if order[t1][1]+order[t1][2]<order[t2][1]+order[t2][2]:

k = j

time = order[t1][1]+order[t1][2]

if k == -1 or num < n and:

mach[num] = i

num += 1

else:

order[i][3] = mach[k]

mach[k] = i

if time > order[i][1]:

wait += time-order[i][1]

order[i][1] = time if num < n:

print("只需开启"+str(num)+"台机器") else:

print(str(n)+"台机器全部开启，订单平均等待"+str(round(wait/len(order),2))+"min") for i in range(num):

print('第'+str(i+1)+'台机器：')

p = mach[i]

ans = ''

while p!=-1:

ans = order[p][0]+':'+huan(order[p][1])+'~'+huan(order[p][1]+order[p][2])+'，' + ans

p =

print(ans[:-1])

举一反三

【加试题】已知数组a（1）到a（6）的原始数据为”118”，”36”，”98”，”15”，”88”，”2”，对该数组进行排序操作，某同学编写了以下VB程序：

For i=1 to 3

For j=6 to i+1 step -1

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

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

End if

Next j

Next i

则程序运行之后，数组a（1）到a（6）的值依次为（）

小王设计了一个程序来列举仁川亚运会的奖牌前三的国家。下列VB程序实现如下功能：单击命令按钮Command1后，在列表框List1中按奖牌数由多到少显示国家名称，如图。

请根据算法将下列程序补充完整。

Dim a(1 To 45) As String

Dim b(1 To 45) As Integer

Private Sub Form_Load()

a(1) = "中国"

b(1) = 308

‘45个代表团名称及奖牌数分别放在a(1)到a(45)及b(1)到b(45)中

End Sub

Private Sub Command1_Click()

Dim i As Integer,j As Integer

Dim t As Integer,f As Integer

List1.Clear

For i = 1 To 3

For j = {#blank#}1{#/blank#}To 2 Step -1

If {#blank#}2{#/blank#}Then

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

t = b(j): b(j) = b(j - 1): b(j - 1) = t

End If

Next j

Next i

For i = 1 To 3

List1.AddItem "第" + Str(i) + "名" + a(i) + " 奖牌数" + Str(b(i))

Next i

End Sub

有一组正整数，要求对其中的数据进行排列，排列后奇数在前，偶数在后。其中最后一个数据排到奇数与偶数交接处;自前到后的第一个偶数排到最后一个位置，空出的位置排列自后向前的第一个奇数，依此类推。排序示例如下。

排序前	71	85	64	55	42	62	33	17	34	30
排序后	71	85	17	55	33	30	62	42	34	64

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

Const n=10

Dim a(1 To n) As Integer

Private Sub Command1_Click()

Dim i As Integer,j As Integer

Dim temp As Integer,flag As Boolean

'读取一组正整数，存储在数组a中，代码略

i=1:j=n

temp=a(j):flag=True

Do While i<j

If flag Then

If a(i) Mod 2=0 Then

a(j)=a(i)

j=j-1

flag=Not flag

Else

'{#blank#}1{#/blank#}

End If

Else

If a(j) Mod 2=1 Then

a(i)=a(j)

flag=Not flag

Else

j=j-1

End If

Loop

' {#blank#}2{#/blank#}

'依次输出排序后的数据，代码略。

End Sub

小明基于冒泡排序算法编写了一个VB程序，功能如下：单击“生成”按钮command1，生成n个【10，99】的随机整数赋值给a数组，并在列表框list1中显示。单击“排序”按钮command2，对这组数据进行错位排序(即从前往后依次是最小的，最大的，第二小的，第二大的……依次类推)。在列表框list2中依次输出数据排序的结果，程序运行界面如图所示：

实现上述功能的VB程序如下：

Const n=10

Dim a(1 To 10)As Integer

Private Sub Command1 Click()

For i=1 To n

‘①

List1．Addltem Str(a(i))

Next i

End Sub

Private Sub Command2 Click()

tmp=1

For i=1 To n-1

For j=n To i+1 Step-1

If ＞0 Then ①

t=a(j)：a(j)=a(j-1)：a(j-1)=t

End If

Next j

②

Next i

For i=1 To 10

List2．Addltem Str(a(i))

Next i

End Sub

【加试题】某同学编写了一段模仿Excel的Rank排位函数VB程序，运行界面如图。程序功能如下：程序运行后先自动生成1000个取值范围在[1,100]的随机数（保留两位小数）并显示在List1中，在Text1和Text2中输入排序范围的起始位置和结束位置，在b(i)中存储a(i)在该范围中的排位，并输出排位到列表框List2，实现上述功能的VB程序如下，但加框处代码有错，请改正。

Dim a(1 To 1000) As Single, b(1 To 1000) As Integer Private Sub Form_Load()

Randomize '生成 1000 个随机数 For i = 1 To 1000

① '产生随机数，保留二位小数

b(i) = 1 '初始排位为 1

List1.AddItem "a(" & i & ")=" & a(i) Next i

End Sub

Private Sub Command1_Click()

Dim ks As Integer, js As Integer

ks = Val(Text1.Text)

js = Val(Text2.Text)

For i = ks To js

For j = ks To js

If Then b(i) = b(i) + 1 ②

Next j

Text1 Text2

List2.AddItem "a(" & i & ")" & "在 a(" & ks & ")~a(" & js & ")中排位为" & b(i) Next i

End Sub

①{#blank#}1{#/blank#} ②{#blank#}2{#/blank#}

有如下VB程序段：

For i=1 To 2

For j=1 To 5-i

If a(j+1)<a(j) Then t=a(j):a(j)=a(j+1):a(j+1)=t

Next j

Next i

数组a(1)到a(5)中数据分别为56，23，78，11，8，执行上述VB程序段后，数组元素的值分别为（）

相关试卷

公司介绍

服务介绍

帮助中心