勾股定理的算法[上学期]
图片预览
文档简介
课件13张PPT。第四节：勾股定理的算法AAB = c
AC = b
BC = a
CF = b – a
c*c= 4*[1/2(a*b)]+(b – a)2 c2 = a2 + b2算法描述——流程图、伪代码开 始输入直角边a的值输入直角边b的值输出斜边c 的值结 束1）算法开始；
2） 输入直角边a的值；
3） 输入直角边b的值；
4） ；
5） 输出斜边c的值；
6）算法结束；VB编写该算法代码的注意点：1）VB应用程序中没有专门的输入语句，一般通过TextBox这个控件达到输入数据的目的,如果通过TextBox控件输入的数据，一般默认为字符型数据，如果要做四则运算的话，必须将输入的数据转换成数值型数据；
2）VB中，除了可以使用print语句进行输出外，通常使用Label控件进行数据的输出显示;
3）库函数的使用——Sqr（参数）窗体和控件属性的设置创建窗体和控件Form1 的Caption属性Text1 的Text属性Text2 的Text属性Label1 的Text属性Command1 的Caption属性Command2 的Caption属性源代码的编写（一）源代码的编写（二）思考题（一）： 用流程图表示求解已知底边长和高，计算三角形面积的算法，并用程序加以实现。开始输入底边a 的值输入高h 的值s=（a*h）/ 2输出s 的值结束Dim a as Single,h as Single,s as Single
a = Text1.Text
h = Text2.Text
s = ( a * h ) / 2
Label1.Caption = sText1.Text=“”
Text2.Text=“”
Label1.Caption=“”思考题（二）： 写出已知三角形3条边的长，计算三角形面积的公式，并将这个公式写成VB中的算术表达式的形式。方法一：海伦公式，其中d为三角形周长的一半方法二：三斜求积公式Area=sqr(d*(d-a)*(d-b)*(d-c))思考题（三）： 已知一元二次方程的a，b，c 三个系数的值，求方程的实数解的公式，如何在VB程序中用算术公式加以表示？回家作业教材27页
1、画出练习1中所示问题的流程图算法，并将算法通过VB程序实现（即编写VB程序指令）；
2、将练习2中求三角形面积的数学公式（即海伦公式和三斜求积公式，写成在VB程序中能够实现的算术表达式形式；
3、将一元二次方程的两个实数解的数学公式，转换成在VB程序中能够实现的算术表达式的形式。作业答案area = Sqr(a ^ 2 * c ^ 2 - ((c ^ 2 + a ^ 2 - b ^ 2) / 2) ^ 2) / 2X1 = (-b + Sqr( b^2 - 4*a*c) ) / (2 * a)X1 = (-b - Sqr( b^2 - 4*a*c) ) / (2 * a)第四节上机操作题第一题：使用VB实现第四节——勾股定理的编程，完成后以ggdl为主名保存窗体文件和工程文件，并且生成可执行文件。
第二题：使用VB实现第四节课后练习中已知三角形底边和高的长度，求解三角形面积的编程，完成后以area为主名保存窗体文件和工程文件，并且生成可执行文件。
注意：两个编程作业完成后，通过FTP上传到教师服务器上，如果时间有余，考虑如何使用VB实现已知三角形三条边长求三角形面积的编程（可以参考教材第五节中的分支结构）
AC = b
BC = a
CF = b – a
c*c= 4*[1/2(a*b)]+(b – a)2 c2 = a2 + b2算法描述——流程图、伪代码开 始输入直角边a的值输入直角边b的值输出斜边c 的值结 束1）算法开始；
2） 输入直角边a的值；
3） 输入直角边b的值；
4） ；
5） 输出斜边c的值；
6）算法结束；VB编写该算法代码的注意点：1）VB应用程序中没有专门的输入语句，一般通过TextBox这个控件达到输入数据的目的,如果通过TextBox控件输入的数据，一般默认为字符型数据，如果要做四则运算的话，必须将输入的数据转换成数值型数据；
2）VB中，除了可以使用print语句进行输出外，通常使用Label控件进行数据的输出显示;
3）库函数的使用——Sqr（参数）窗体和控件属性的设置创建窗体和控件Form1 的Caption属性Text1 的Text属性Text2 的Text属性Label1 的Text属性Command1 的Caption属性Command2 的Caption属性源代码的编写（一）源代码的编写（二）思考题（一）： 用流程图表示求解已知底边长和高，计算三角形面积的算法，并用程序加以实现。开始输入底边a 的值输入高h 的值s=（a*h）/ 2输出s 的值结束Dim a as Single,h as Single,s as Single
a = Text1.Text
h = Text2.Text
s = ( a * h ) / 2
Label1.Caption = sText1.Text=“”
Text2.Text=“”
Label1.Caption=“”思考题（二）： 写出已知三角形3条边的长，计算三角形面积的公式，并将这个公式写成VB中的算术表达式的形式。方法一：海伦公式，其中d为三角形周长的一半方法二：三斜求积公式Area=sqr(d*(d-a)*(d-b)*(d-c))思考题（三）： 已知一元二次方程的a，b，c 三个系数的值，求方程的实数解的公式，如何在VB程序中用算术公式加以表示？回家作业教材27页
1、画出练习1中所示问题的流程图算法，并将算法通过VB程序实现（即编写VB程序指令）；
2、将练习2中求三角形面积的数学公式（即海伦公式和三斜求积公式，写成在VB程序中能够实现的算术表达式形式；
3、将一元二次方程的两个实数解的数学公式，转换成在VB程序中能够实现的算术表达式的形式。作业答案area = Sqr(a ^ 2 * c ^ 2 - ((c ^ 2 + a ^ 2 - b ^ 2) / 2) ^ 2) / 2X1 = (-b + Sqr( b^2 - 4*a*c) ) / (2 * a)X1 = (-b - Sqr( b^2 - 4*a*c) ) / (2 * a)第四节上机操作题第一题：使用VB实现第四节——勾股定理的编程，完成后以ggdl为主名保存窗体文件和工程文件，并且生成可执行文件。
第二题：使用VB实现第四节课后练习中已知三角形底边和高的长度，求解三角形面积的编程，完成后以area为主名保存窗体文件和工程文件，并且生成可执行文件。
注意：两个编程作业完成后，通过FTP上传到教师服务器上，如果时间有余，考虑如何使用VB实现已知三角形三条边长求三角形面积的编程（可以参考教材第五节中的分支结构）