课件11张PPT。基本算法语句复习赋值、输入、输出语句
条件语句
循环语句基本算法语句1.下面算法中，输出结果是 。
s←0
For i From 1 To 13 Step 3
s←s+i
End For
Print s
A.13 B. 15 C. 35 D. 452.当x=5时，执行下列伪代码，结果是 . y←0
If x<0 Then
y←5
Else
If x<10 Then
y←100
Else
y←10
End If
End If
Print y3．执行下列的伪代码，输出的结果是 .x←0
While x<20
x←x+1
x←x2
End While
Print x4．表达式
的值为 .5．请在下面求
值的算法中填空：
a←1
s←0
For x From 1 To 19 Step 2
a←a×(-1)
.
End For
Print ss=s+a×x6．下面的程序段中，语句Print I*J执行的次数是 次．
For I From 1 To 3
For J From 5 To 1 Step -1
Ptint I*J
End For
End For
End7．电信部门规定：拨打市内电话时，如果通话时间不超过3分钟，则收取通话费0.2元，如果通话时间超过3分钟，则超过部分以每分钟0.1元收取通话费（通话不足1分钟按1分钟计）.试画出流程图，并用伪代码表示计算通话费用的算法.8．用伪代码表示计算
的值的一个算法. 9．输入一个自然数，如果不是一个三位数，则输出提示：“这不是一个三位数，请重新输入！”，如果是一个三位数，把这个三位数的十位数字和个位数字对调，再输出对调后的数.例如：输入234，输出243.试设计算法并画出流程图.课件9张PPT。算法案例孙子算经Dim a As Long, b As Long
a = 1
Do While (a Mod 3 <> 2) Or (a Mod 5 <> 3) Or (a Mod 7 <> 2)
a = a + 1
Loop
MsgBox aa = InputBox("请输入第一个数a")
b = InputBox("请输入第二个数b")
r = a Mod b
Do While r <> 0
a = b
b = r
r = a Mod b
Loop
MsgBox (a & "和" & b & "的最大公约数是" & b)辗转相除法s = 0
n = InputBox("输入投掷次数")
For i = 1 To n
If Rnd < 0.5 Then
s = s + 1
End If
Next i
x = s / n
MsgBox ("出现正面的频率" & s & "/" & n & "=0." & x)扔硬币模拟试验For i = 1 To 5
x = InputBox("请输入第" & i & "个数")
Do While Int(x) <> x
x = InputBox("你输的不是整数，请重新输入")
Loop
If x Mod 2 = 1 Then
p = p + 1
Else
q = q + 1
End If
Next i
MsgBox ("奇数有" & p & "个, 偶数有" & q & "个")奇数偶数各几个Dim n As Long
n = InputBox("input a number")
For i = 1 To n
Next i
MsgBox (i)循环变量的终值a = InputBox("输入左端点")
b = InputBox("输入右端点")
Do
x = (a + b) / 2
ya = a ^ 3 - a + 0.2
yx = x ^ 3 - x + 0.2
If ya * yx < 0 Then
b = xElseIf ya * yx = 0 Then
Exit Do
Else
a = x
End If
Loop Until Abs(a - b )< 0.00001
MsgBox ("方程在" & c & "到" & d & "之间的解其中一个为 " & x)二分法在8个数中寻找最大值Dim x As Single, max As Single
x = InputBox("请输入第1个数")
max = x
For i = 2 To 8
x = InputBox("请输入第" & i & "个数")
If max < x Then max = x
Next i
MsgBox ("最大的数是 " & max)迭代
