算法的程序实现

位置呢？
第Ｎ个点的坐标？
其中，θ=360º /N；r为圆的半径
算法的伪代码表示如下：
For i=1 to 总的点数 求出第i个点的坐标 rcos（iθ ），rsin（iθ ） For j=1 to 总的点数 If i点和j点不是同一个点 Then
求出第j个点的坐标 rcos（jθ ），rsin（jθ ） 画出i到j点的线段 End If
实践题：

某超市规定，顾客购买同种商品10件以上（包括10件）可享受批发 价。请设计一个收款机程序，输入顾客所购商品的零售价、批发价、购 买数量及付款数，程序能计算出顾客的应付款及需要找回的零钱，请用
伪代码描述或流程图表示。
伪代码 IF 购买数量超过10件以上（包括10件） then 应付款数=批发价×数量 ELSE 应付款数=零售价×数量 找回零钱=顾客付款总额—应付款数
第三章 算法的程序实现
3.1 用解析法解决问题
一、知识回忆、引入新课
1、计算机解决问题的一般过程？ 2、计算机解决问题的核心是什么？
3、算法的几种表示方法是什么?
算法的程序实现方法
解析法 穷举法 算法的程序 实现方法
在数组中查找数据
对数据进行排序 递归法
用解析法解决问题
教学目标： 1、了解解析法 2、学会用解析法分析问题、解决问题 3、学会编写程序实现解析法
Const PI = 3.14159265 Dim i As Integer, j As Integer Dim sngX1 As Single, sngY1 As Single Dim sngX2 As Single, sngY2 As Single Dim sngAngle As Single '表示等分的单位弧度 Dim sngRadius As Single '表示点所在的圆周的半径 Dim intNodes As Integer '表示总点数 frmdraw.Scale (-1.5, -1.5)-(1.5, 1.5) '设置屏幕坐标系 Cls '清除窗体原有显示的内容 sngRadius = 1 '设半径为１个单位 intNodes = 15 '设绘图的点数 sngAngle = 2 * PI / intNodes '等分的单位弧度 '以下程序画出从一个点出发到其他各点间的线段 For i = 1 To intNodes sngX1 = sngRadius * Cos(i * sngAngle) 求出点i的坐标 sngY1 = sngRadius * Sin(i * sngAngle) For j = 1 To intNodes If i <> j Then '如果i不等于j的坐标 sngX2 = sngRadius * Cos(j * sngAngle) 求线段的另一个点j的坐标 sngY2 = sngRadius * Sin(j * sngAngle) '画出从i点到j点的线段，颜色为蓝色 frmdraw.Line (sngX1, sngY1)-(sngX2, sngY2), vbBlue End If Next j Next i

用VB绘制线段：
窗体.Line（起始坐标）－（终点坐标），颜色
frmdraw.Line (sngX1, sngY1)-(sngX2, sngY2), vbBlue
也可以直接通过画线命令实现： Line（起始坐标）－（终点坐标），颜色

实例： Form1.Scale (-1.5, -1.5)-(1.5, 1.5) Line (-1.5, -1.5)-(1.5, 1.5), vbRed
Yn ＝Ｒ*cos(2*PI/N)
窗体方法的应用

VB的屏幕坐标和数学的坐标系不同，它的原点不在窗体中心，而 在窗体工作区的左上角，但可以通过窗体的scale方法更改：
VB屏幕坐标原点
窗体.scale（左上角坐标）－（右下角坐标） 如：frmdraw.Scale (-1.5, -1.5)-(1.5, 1.5)
Next
Next I
Fra Baidu bibliotek
j
注意：两层循环，第一层循环控制钻石
的顶点数目，第二层循环控制钻 石的线条数目．
回顾已学知识

变量命名
１、为增加程序的可读性，变量名最好取有意义的名称，建
议前面加上类型缩写。
如：sngRadius,sngAngle等

三角函数中的参数应该是弧度数，如一个圆等分Ｎ份，圆的 半径为Ｒ，第Ｎ个点的坐标是： Ｘn＝Ｒ*sin(2*PI/N)
钻石中的“点”有什么特征？
钻石图案
钻石图案的特点

“钻石”图案是由点和线构成的 决定线段基本元素是点

图形四周的点位于一个圆周上
结论：求出各点的位置，绘制各点之间的 线段，就可以绘出这个图形了。
x2=rcos（2θ） y2=rsin（2θ）
问题分析： 如何求出各点的
x1=rcos（θ） y1=rsin（θ）
什么是解析法
如：有一段路程S（平路），小A来往行程的时间是t，求
平均速度v。
v=S / ( t /2) 解析法就是在分析具体问题的基础上，抽取出一个 数学模型，这个数学模型能用若干个解析表达式表示出 来，解决得了这些表达式，问题也就得以解决。
请注意观察，下面的“钻石”图案有什么特点？
思考：
组成钻石图案的基本元素是？ 决定线段基本元素是？