上海高一信息技术算法与程序设计习题集

信息技术算法与程序设计习题集

（1）1<5 and 4>3 or not -1=1 T

（2）"a">"b" or 5<6 and 8>=2*4 T

（3）假设变量a的值是1，变量b的值是2，变量c的值是3，计算下列表达式的值。

a^3+b*c 7

c mo

d b +a 2

int(c/b) >b-a F

a0 T

a+b>c or b+c>a and c+a>b T

二、算法的一些概念

1．算法的定义：解决问题的确定的有限的步骤。

2．算法的描述：自然语言、流程图描述、计算机程序、伪代码。

3．常量和变量：

变量的特点：取之不尽，赋值即覆盖

变量的命名规则：以字母、数字、下划线组成，必须以字母开头。

变量的类型：整数型（Integer）、实数型（Single）、字符串型（String）

4．算法的三种基本结构：顺序结构、分支结构、循环结构

（1）顺序结构

顺序结构按照自上而下的顺序把每个步骤执行一次。

（2）分支结构（选择结构）

分支结构根据条件决定执行步骤1或步骤2中的算法步骤，判断框有一个入口两个出口，分支结构有一个入口，一个出口。

单分支语句格式

If <条件> Then

<步骤1的语句块>

End If

5．算法的特点：可行性、确定性（无二义性）、有穷性、可以没有输入，必须要有输出。

三、算法实例

（一）顺序结构

练习1：输入一个圆的半径，求圆的周长和面积，并输出结果。

练习2：输入一个两位数，交换个位和十位的值，输出结果。

练习3：输入两个变量的值，将两个变量中的值互相交换并输出结果。

双分支语句格式

If <条件> Then

<步骤1的语句块>

Else

<步骤2的语句块>

End If

代码：

Dim a As Single,

Dim b As Single

a = InputBox("第一个数")

b = InputBox("第二个数")

c = a

a = b

b = c

Print a; b

代码：

Dim r As Single

r = InputBox("输入半径")

s = 3.14 * r ^ 2

c = 2 * 3.14 * r

Print "周长"; c

Print "面积"; s

代码：

x = InputBox("请输入")

a = Int(x / 10)

b = x Mod 10

y = 10 * b + a

Print y

（二）分支结构（选择结构）

练习1：输入两个数，比较它们的大小，输出较大的数。

练习2：输入一个三位数，判断它是否是水仙花数(三位数各个数位上的立方和等于它本身)。

练习3：输入一个数，求它的绝对值，并输出结果。

代码：

Dim a As Single Dim b As Single

a = InputBox("请输入")

b = InputBox("请输入") If a > b Then Print a Else

Print b End If

代码：

Dim n As Single

n = InputBox("输入一个三位数") a = Int(n / 100)

b = Int(n / 10) - a * 10

c = n Mo

d 10

If a ^ 3 + b ^ 3 + c ^ 3 = n Then Print "是水仙花数" Else

Print "不是水仙花数" End If

代码：

Dim a As Single

a = InputBox("请输入") If a < 0 Then a = -a End If Print a

方法一：

Dim x As Single

x = InputBox("输入用电")

If x < 110 Then

y = 0.61 * x

Else

If x <= 210 Then

y = 0.61 * 110 + 0.66 * (x - 110)

Else

y = 0.61 * 110 + 0.66 * 100 + 0.81 * (x - 210) End If

End If

Print "电费"; y

方法二：（左边嵌分支）

Dim x As Single

x = InputBox("输入用电") If x >= 110 Then

If x > 210 Then

y = 0.61 * 110 + 0.66 * 100 + 0.81 * (x - 210) Else

y = 0.61 * 110 + 0.66 * (x - 110) End If Else

y = 0.61 * x End If

Print "电费"; y

练习5：购买地铁车票：乘1-4站3元/位，5-9站4元/位，9站以上5元/位，输入站数和人数，输出应付款。

练习6：长江遂桥货车通行费收费标准（载重用w 表示,收费用m 表示）

代码：

Dim a As Integer Dim b As Integer

a = InputBox("输入站数")

b = InputBox("输入人数") If a <= 4 Then

m = 3 * b Else If a <= 9 Then

m = 4 * b Else

m = 5 * b End If

End If

Print "应付款"; m