试题

试题 试卷

logo

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

浙江省绍兴市会稽联盟2023-2024学年高二下学期信息技术期中考试试卷

 某平台新上架影片推荐度的计算方式为:由5位专业评审与5位大众评审给影片评分,评分区间为[1,10],将专业评审均分的60%与大众评审均分的40%求和后取整数部分,根据得分确定等级(分值与等级的关系如图a所示)。评委打分情况放在“dc.txt”文件中,如图b所示,其中“A”表示专业评审,“B”表示大众评审,“A1-5”表示第1位专业评审给出5分。

图 a

图 b

请回答下列问题:

(1)、若专业评审均分为 5,大众评审均分为 6,则该影片等级为(填数字)颗星。
(2)、实现上述功能的部分 Python 程序如下,请在划线处填入合适的代码。

f=open(" ",encoding="utf-8")

line=f.readline() #读取第一行,保存在字符串 line 中

pro,pub=0,0

while line:#当 line 非空

    x=

    t=int(line[3:])

    if x=="A":

        pro+=t

    elif x=="B":

       

        line=f.readline() # 继续读取一行

score=int(pro/5*0.6+pub/5*0.4)

grade=

print("推荐度为:","★"*grade)

举一反三
【加试题】猜数字游戏。由用户选择需要猜测的数字长度后,电脑随机产生一串相应长度的数字,用户输入猜测的数字,电脑判断用户所猜密码的正确性,如果用户输入的数字和电脑产生的密码完全一致则输出“恭喜你猜中了!”,否则程序将输出用户和计算机产生数字之间不同的字符数。电脑产生的n位数字分别保存在数组num的n个下标变量num (1)、num (2)、…、num (n)中。
    程序界面如图VB-1所示,用户在文本框Text1中输入数字长度,单击“确定长度”按钮(Command1)后,在文本框Text2中输入数字,单击“判定”按钮(Command2)后,程序在标签Label3中输出校验结果。
相应的程序如下,在程序划线处,填入适当的语句或表达式,把程序补充完整。

Dim num(1 To 25) As Integer
Private Sub Command1_Click()
 Dim i As Integer,n As Integer
 n = Val(Text1.Text)
 For i = 1 To n                   '产生n位小于8的密码,每位一个非负整数,保存到数组num
  num(i) = {#blank#}1{#/blank#}
 Next i
End Sub
Private Sub Command2_Click()
Dim x(1 To 25) As Integer, i As Integer, s As Integer, n As Integer
 n = Val(Text1.Text)
 For i = 1 To n
     x(i) = {#blank#}2{#/blank#}    '把文本框中数字逐个分割出来并转化成数值
 Next i
 s = 0                               '变量s保存不同字符的总数
 For i = 1 To n
  If num(i) <> x(i) Then  s = s + 1
 Next i
 If {#blank#}3{#/blank#} Then
  Label3.Caption = "恭喜你猜中了!"
 Else
      Label3.Caption = "你输入的数字共有" + Str(s) + "个字符不符"
 End If
End Sub
由n行数字组成的数字三角形如图所示。设计一个算法,对于由n行数字组成的数字三角形(数字范围[1,50],计算从三角形的顶至底的路径经过的数字和的最大值,每一步可以从当前点走到左下方的点也可以走到右下方的点。

寻求路径最大值的算法设计如下:

按三角形的行划分,若有n行,则有n-1个步骤

①从底层开始,本身数即为最大值

②倒数第二层的计算取决于底层的数据:

12+6=18,13+14=27,24+15=39,24+8=32;

③倒数第三层的计算取决于底二层的数据:

27+12=39,39+7=46,39+26=65;

④倒数第四层的计算取决于底三层的数据:

46+11=57,65+8=73;

④最后的路径:13—8—26—15—24其和为86。

根据上述算法描述,设计程序界面如下图所示,点击“生成金字塔”按钮,在列表框中生成数字金字塔,点击“寻求路径最大值”按钮,在文本框text1中输出最大值。

依据上述描述设计如下VB程序:

Const n = 5

Dim sx As String

Dim i, j, k, a(1 To 100) As Integer Private Sub Command1_Click() List1.Clear

For i = 1 To n For j = 1 To i

    ①  

sx = sx + Str(a((i - 1) * n + j)) Next j

For k = n To i Step -1 sx = " " + sx

Next k List1.AddItem sx sx = ""

Next i End Sub

Private Sub Command2_Click() For i = n To 1 Step -1

For j = 2 To i

If    ②   Then

a((i - 2) * n + j - 1) = a((i - 1) * n + j - 1) + a((i - 2) * n + j - 1)

Else

a((i - 2) * n + j - 1) = a((i - 1) * n + j) + a((i - 2) * n + j - 1)

End If Next j

Next i

    ③  

End Sub

请回答下列问题:

返回首页

试题篮