1. 一辆车发生交通事故后逃逸,王警官从现场四位目击证人处获得了以下线索。甲说:“车牌照以“苏FS”开头,后跟着四位数,乙说四位数字的前两位数字相同;丙最后两位数字也相同,但与前两位不同,丁是数学家,他说:四位数字刚好是一个整数的平方。请你根据以上线索协助王警官尽快锁定肇事车辆。
(1) 通过分析以上信息,肇事车辆的车牌号为“苏FS”;四位数字,你认为下列选项(   )最符合这四位数字的特征。 A. 形如xxyy B. 形如xxyy,且x≠y C. 形如xxyy,且x≠y,xxyy是整数z的平方 D. 形如xxyy,且x≠y,x≠0
(2) 根据以上分析,我们能用目前所学的数学方法很快求出x与y值。 A. 正确 B. 错误
(3) 根据车牌号的实际情况,四位数中x与y可能的区间是,z可能的区间是

A.0-9

B.1-9

C. 0-100

D.1-99

(4) 由于计算机运算速度快,我们可以一一列举x、y和z的所有可能值的算法叫(   )。 A. 枚举 B. 贪心 C. 递归 D. 迭代
(5) 小李根据以上分析想出了算法1,代码实现如下,其中X、Y、Z是第⑶题中对应X、Y、Z的最大值加1,请问实现框内循环体的执行次数为

(6) 小明以“车牌号的后四位刚好是整数的z的平方”为突破口想出了算法2,并画出如下所示的流程图,其中zmin和zmax分别表示整数z的最小值和最大值,用第3题中的结果直接代入。小明对(1)(2)处有些疑惑,请帮他选择正确的一项(   )

A. (1) qw==bwandsw==gw and bw=!sw    (2)n+1 B. (1) qw==bw andsw==gw and bw!=sw     (2)n+1 C. (1) qw==bworsw==gw and bw!=sw      (2)n+2 D. (1) qw==bwandbw=!Sw            (2)n+2
(7) 算法2的循环体要执行次,从这个角度看算法更优,因此算法有优劣之分。
(8) 通过以上分析,我们知道编程解决问题的一般过程需经过以下几个步骤,正确的顺序是(   )

①调试运行②设计算法③编写代码④画流程图⑤分析问题⑥界定问题

A. ⑤②③① B. ②⑥③① C. ⑤④③① D. ⑤④⑥①
【考点】
计算机解决问题的过程; 枚举算法及程序实现; 循环结构语句及程序实现; 数据分析;
【答案】

您现在未登录,无法查看试题答案与解析。 登录
综合题 困难
能力提升
换一批
2. 某校内活动需要n(1≤n≤10)名学生迎宾,要求是:男女生站成一排,男生不能相邻,男女生比例大于1/2。考虑到方案只包含了男和女两种情况,可以用二进制的0来代替女生,1来代替男生。当全部是0时最小,此数为0;当全部是1时最大。枚举从0到最大数的每一种情况,逐一判断是否包含男生相邻(二进制1相连),符合的0、1转换为女、男后输出,并在此基础上输出男女生比例较合适的方案(男:女>1/2)。

按上述要求,编写VB程序,功能如下:在文本框Text1中输入n的值,点击“开始枚举”按钮Command1,在列表框List1中输出所有方案,在列表框List2中输出比例合适方案。

实现上述功能的VB程序如下,回答下列问题:

(1) 如果输入的n值等于4,那么男女比例合适的方案有种。
(2) 请在划线处填入合适的代码。

Dim n As Integer, Getstr As String

Private Sub Command1_Click()

    Dim i As Integer, j As Integer, mAs Integer

    n = Val(Text1.Text)

    Getstr = ""

For i = 0 To 2 ^ n -1

        m = i

        If Then

            For j = 1 To n

                If m Mod 2 = 0 Then

                    Getstr = "女" + Getstr

                Else

                    Getstr = "男" + Getstr

                End If

                m = m \2

            Next j

            List1.AddItem Getstr

            If Team(Getstr) <> "" Then List2.AddItem (Team(Getstr))

            Getstr =""

        End If

    Next i

End Sub

Function search(i As Integer) As Boolean '判读男生是否相邻

    Dim j As Integer,t As Integer

    Dim a(1 To 15) As Integer

    t = i

    For j = 1 To n

        a(j) = t Mod 2

        t = t \2

    Next j

    flag = True

    For k = 1 To n -1

        If Then flag = False: Exit For

    Next k

search = flag

End Function

Function Team(ch As String) As String     '判读男女生比例是否合适

    Dim num As Integer, st As Integer, i As Integer,c(0 To 1) As Integer

    Team = “”

    For i = 0 To 1

        c(i) = 0

    Next i

    For i = 1 To n

        st= Mid(ch, i, 1)

        If st= "男" Then num=1: c(num)= c(num)+1 Else num =0: c(num)= c(num)+1

    Next i

    IfThen Team = ch

End Function

综合题 困难