- 二一组卷

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

浙江省七彩阳光联盟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])

举一反三

只能被1和它本身整除的自然数。要求编写VB程序找出任意两个整数之间中所有的素数及个数，程序运行界面如下图所示。

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

Function prime（a As Integer） As Boolean

Dim j As Integer

prime = True

j = 2

Do While prime And j <= a \ 2

If a Mod j = 0 Then

prime = False

Exit Do

End If

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

Loop

End Function

Private Sub Command1_Click（）

Dim i As Integer, a As Integer, b As Integer

Dim count As Integer

a = Val（Text1.Text）

b = Val（Text2.Text）

For i = a To b

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

List1.AddItem Str（i）

count = count + 1

End If

Next i

Label1.Caption = "素数共有" + Str（count） + "个!"

End Sub

【加试题】有如下程序段：

Const n = 6

Dim a(1 To n) As Integer

Dim i As Integer, j As Integer, t As Integer

Do While True

For i=1 to n-1

If a(i)>a(i+1) then Exit For

Next i

If i < n Then

For i = 1 To n

j = Int(Rnd * 6) + 1

t = a(j): a(j) = a(i): a(i) = t

Next i

Else

Exit Do

End If

Loop

数组中a(1)到a(6)的值依次为“56，34，48，87，65，96”，经上述程序段执行后a(1)到a(6)的值依次为（）

【加试题】有如下程序段：

n = 0: i = 2: f = True

Do While i <= 6 And f

n = n + 1

f = False

For j = 6 To i Step -1

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

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

Last = j

f = True

End If

Next j

i = Last + 1

Loop

数组元素a(1)到 a(6)的值依次为“10,16,82,36,51,87”，经过该程序段“加工”后，下列说法不正确（）

素数：只能被1和它本身整除的自然数。要求编写VB程序找出任意两个整数之间中所有的素数及个数，程序运行界面如下图所示。

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

Function prime(a As Integer)As Boolean

Dim j As Integer

prime=True

j=2

Do While prime And j<=a\2

If a Mod j=0 Then

prime=False

Exit Do

End If

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

Loop

End Function

Private Sub Command1_Click( )

Dim i As Integer, a As Integer, b As Integer

Dim count As Integer

a=Val(Text1.Text)

b=Val(Text2.Text)

For i=a To b

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

List1.AddItem Str(i)

count=count + 1

End If

Next i

Label1.Caption=“素数共有” + Str(count) + “个!”

End Sub

有如下程序段

Function Search(m As Integer, pre As Integer) As Integer

Dim i As Integer

If m < 0 Then

Search = 0

ElseIf m = 0 Then

Search = 1

Else

For i = pre To m

Search = Search + Search(m - i, i) Next i

End If

End Function

Private Sub Command1_Click() Dim n As Integer

n = Val(Text1.Text) Label1.Caption = Search(n, 1)

End Sub

若在文本框 Text1 中输入“4”，则标签 Label1 中显示的内容为（）

自定义函数delStr(S，m)的功能是删除字符串S中第m位上的字符，

Function delStr(S As String, m As Integer) As String

Dim n As Integer

n = Len(S)

If m < 1 Or m > n Then

delStr = ”输入位置有误！”

ElseIf m = 1 Then

delStr = Mid(S, 2, n - 1)

ElseIf m < n Then

ElseIf m = n Then

delStr = Mid(S, 1, n - 1)

End If

End Function

则横线处代码填写正确的是( )

相关试卷

公司介绍

服务介绍

帮助中心