必修3课件第一章算法初步

1、 内容算法的含义流程图基本算法语句算法案例 结构流 程 图算法的描述算法自然语言顺序结构选择结构循环结构顺序结构选择结构循环结构输 语句伪 代 码循环语句赋值语句条件语句入出算法 重点 理解算法的含义； 掌握算法的三种基本结构； 会用算法语句解决简单的实际问题。 难点 循环语句； 算法设计。 展开方式 特点 螺旋上升、渐次递进 整合渗透、前引后连 三线合一、横向贯通 弹性处理、多样选择自然语言自然语言流程图自然语言流程图伪代码自然语言流程图伪代码Excel VBA算法 算法的含义（广义）完成某项工作的方法和步骤（现代）可以用计算机来解决的一类问题的程序 和步骤（教材）有限性、确定性（其他）输入

2、、输出、可行性、一般性 算法的特点算法（教材）对一类问题的机械的、统一的求解方法 关于例1例例1 给出求给出求1 + 2 +3 + 4 + 5的一个算法的一个算法算法算法1 按照逐一相加的程序进行按照逐一相加的程序进行第一步第一步 计算1 + 2，得到3；第二步第二步 将第一步中的运算结果3与3相加，得到6；第三步第三步 将第二步中的运算结果6与4相加，得到10；第四步第四步 将第三步中的运算结果10与5相加，得到15 2) 1( nn算法算法2 可以运用公式可以运用公式1 + 2 + + n = 直接计算。直接计算。第一步第一步 取n = 5；第二步第二步 计算 ；第三步第三步 输出运算结果

3、。2) 1( nn算法 四种图框类型算法输入、输出框处理框判断框起止框 三种基本算法结构i) 顺序结构算法ii) 选择结构ABpYNAB 三种基本算法结构iii) 循环结构算法ApYNAYNp（直到型）（当型） 循环结构示例算法N开始结束输出该城市投票有一城市得票超过总票数一半淘汰得票最少的城市Y引例 循环结构例4 求12345。算法算法2 S1 T1； S2 I2； S3 TT I；S4 II + 1 S5 如果I不大于5，重新执行 S3、S4、S5；否则算法结束I 5NYT1输出TI2TTIII + 1开始结束 赋值语句 伪代码 Excel VBA例例1 1 交换两个变量 x、y 的值p

4、xx yy pp = xx = yy = p 赋值号 x、y、p的值各是多少？ 输入输出语句 伪代码 Excel VBA例例2 2 输入一个数，输出这个数的绝对值。Read ax Abs(a)Print xa = Inputbox(“请输入一个数)x = Abs(a)Msgbox x 其他输入语句 条件语句单行 伪代码 Excel VBA例例3 3 输入三个数，输出最大数。Read a, b, cx aIf b x Then x bIf c x Then x cPrint xa = InputBox(输入a)b = InputBox(输入b) c = InputBox(输入c) x = aIf

5、 b x Then x = bIf c x Then x = cMsgBox 最大数 & x 条件语句块 伪代码 Excel VBA例例4 4 输入x，计算 y = 的值。Read xIf x0 Then y x2Else y sin xEnd IfPrint yx = InputBox(输入一个数)If x =0 Then y = x2Else y = sin(x)End IfMsgBox y0,sin, 0,2xxxx 条件语句嵌套 伪代码 Excel VBA例例5 5 输入x，计算 y = 的值。Read xIf x 0 Then y 1Else If x = 0 Then y

6、0Else y -1End IfPrint yx = InputBox(输入一个数)If x 0 Then y = 1Else If x = 0 Then y = 0Else y = -1End IfMsgBox y-=0, 1, 0, 0, 0, 1xxx 循环语句For 伪代码 Excel VBA例例6 6计算1 3 5 7 99。S 1For I From 3 To 99 Step 2 S S IEnd ForPrint SS = 1For I = 3 To 99 Step 2 S = S*INext IMsgBox S 循环语句While 伪代码1例例7 7求最小的奇数I，使 1 3

7、5 7 I 10 000。S 1I 3 While S10 000 S S I I I 2 End WhilePrint IS 1I 1 While S10 000 I I 2 S S IEnd WhilePrint I 伪代码2算法案例m2While Mod(m, 3)2 或 Mod(m, 5)3 或 Mod(m, 7)2 mm + 1End WhilePrint m 流程图与伪代码算法案例NY输出mMod(m, 3)2mm + 1m2或Mod(m, 5)3或Mod(m, 7)2算法案例m = 2While m Mod 3 2 Or m Mod 5 3 Or m Mod 7 2 m = m

8、+ 1WendMsgBox 不定方程的一个解为 & m Excel VBA-1m = 1Do m = m + 1Loop Until m Mod 3 = 2 And m Mod 5 = 3 And m Mod 7 = 2MsgBox 不定方程的一个解为 & m Excel VBA-2例例3 3 求两个整数a和b的最大公约数欧几里得辗转相除法。 问题背景与分析分析分析 求出列数：a，b，r1，r2，rn 1，rn，0 这列数从第三项开始，每项都是前两项相除所得的余数，余数为0的前一项rn即是a和b的最大公约数这种方法称为“欧几里得辗转相除法” 流程图与伪代码10 Read a,

9、b20 rMod(a，b)30 ab40 br50 If r 0 Then 2060 Print a70 End 输出aabNr = 0Y输入a,brMod(a,b)br 流程图与伪代码Read a, bWhile Mod(a，b)0 rMod(a，b) ab brEnd WhilePrint b 输出babYN输入a,brMod(a,b)brMod(a,b)0算法案例a = InputBox(输入第一个自然数)b = InputBox(输入第二个自然数) Do r = a Mod b a = b b = rLoop Until r = 0MsgBox 最大公约数为 & a Excel

10、 VBA-1算法案例a = InputBox(输入第一个自然数)b = InputBox(输入第二个自然数) While a Mod b 0 r = a Mod b a = b b = rWendMsgBox 最大公约数为 & a Excel VBA-2例例4 4 用二分法求方程x3 - x - 1 = 0在区间 1,1.5 内的一个近似解（误差不超过0.001）。 问题背景与分析第一步第一步 确定有解区间a, b第二步第二步 取a, b的中点第三步第三步 计算函数在中点处的函数值第四步第四步 判断中点处函数值是否为0第五步第五步 判断新的有解区间的长度是否小于 给定的误差 流程图与伪

11、代码10 Read a, b, c20 x0(a + b)/230 f(a)a3 a 1 40 f(x0)x03 x0 150 If f(x0) = 0 Then Goto 120 60 If f(a)f(x0) 0 Then70 bx080 Else90 ax0 100 End If110 If |a b|c Then Goto 20120 Print x0 N输出x0 x0(a+b)f(x0)=0输入a,b,cbx0f(a)f(x0)0|a b| cax0f(a)a3 - a - 1f(x0)x03 x0 1 YNYYN10 a = Val(InputBox(输入区间左端点值)20 b =

12、 Val(InputBox(输入区间右端点值)30 c = Val(InputBox(输入误差点限制)40 x0 = (a + b) / 2 50 f1 = a3 - a - 160 f2 = x03 - x0 - 170 If f2 = 0 Then Goto 14080 If f1*f2 = c Then Goto 40140 MsgBox 方程的近似解为 & x0a = Val(InputBox(输入区间左端点值)b = Val(InputBox(输入区间右端点值)c = Val(InputBox(输入误差限制)Do x0 = (a + b) / 2 f1 = a3 - a - 1 f2 = x03 - x0 - 1 If f2 = 0 Then Exit do If f1*f2 0 Then b = x0 Else a = x0 End IfLoop Until Abs(a b) cMsgBox 方程的近似解为 & x0二分法a = Val(Inpu