2018年高中信息学业水平考试(算法真题)

B、a

For i=1 To 10 Step 4 Print “#” s=s+i Next i Print s

上述程序运行后，输出“#”的个数是_____________；输出s的值是_____________。（共6分，每空3分） 5、阅读程序，写出运行结果 Dim a As Integer Dim b As Integer Dim r As Integer a=98 b=63 r=a mod b Do While r<>0

a=b b=r r=a Mod b

Loop print b

程序运行后，输出结果为：______________。（6分） 6、算法设计与程序实现

换钱问题

要将一张100元的钞票，换成等值的5元、2元、1元一张的钞票共50张。其中一种换发如下：

5元：3张 2元：38张 1元：9张 求出所有的换钱方案。

【算法设计】

x表示5元的张数：1≤x≤20; y表示2元的张数：1≤y≤50; z表示1元的张数：1≤z≤100.

【参考程序】 Dim x As Integer Dim y As Integer Dim z As Integer For x=1 To 20

For y=1 To 50

For z=1 To 100

If _____________________Then

Print x;y;z ‘x y z 之间以分号分隔

End if

Next z

Next y

Next x

根据上述回答下列问题：（8分，每空4分）

（1）本题采用的算法是_________________（填：解析法/枚举法/排序法/递归法）。

（2）程序代码中空白处应填写的条件是______（填写字母：A/B/C/D）。 A、5x + 2y + z=100 Or x + y + z = 50 B、5x + 2y + z=100 And x + y + z = 50 C、5*x + 2*y + z=100 Or x + y + z = 50 D、5*x + 2*y + z=100 And x + y + z = 50

7、分析并完善流程图

执行流程图，当输入x的值为4时，输出y的值为2，则菱形判断框中的条件可能为________（填写字母：A/B/C/D 6分）。 A、x>3 B、x>4 C、x<=4 D、x<=5 8、分析并完善程序

以下是计算s=12+22+32+…+1002的程序代码，请补全程序。（共6分，每空3分） Dim s As Long Dim i As Integer s=0

For i=1 To 100

s=s+__________ ___________ Print s

9、算法设计与程序实现

十进制整数转换为二进制整数采用“除2取余”法。 算法描述 第1步：输入一个十进制正整数n； 第2步：将n除以2，记录余数r； 第3步：将r追加到字符串s的左边（s 用于记录转换后的二进制数，初值为空）； 第4步：将n 除以2的商赋给n ； 第5步：若n 为0，则转到第6步；若n不为0，转到第2步； 第6步：输出s （即逆序输出每一次的余数）。 举例说明 将一个十进制数13转换为二进制。 界面设计 【参考程序】

Dim s As String ‘记录转换后的二进制数 Dim n As Integer ‘记录十进制正整数n Dim r As Integer ‘记录n除以2的余数

s=“ ” ‘s 记录转换后的二进制数，初值为空 n=Val(Text1.Text) Do While n>0

r=______①________ s=r & s

n=______②________ Loop

Text2.Text=s

（1）、上述算法描述采用的方法是：______________（填：自然语言/伪代码/流程图）。（2分）