求三角形面积.ppt

《求三角形面积.ppt》由会员分享，可在线阅读，更多相关《求三角形面积.ppt（8页珍藏版）》请在淘文阁 - 分享文档赚钱的网站上搜索。

1、新高考选考新高考选考 技术会不会出奇制胜？技术会不会出奇制胜？ 技术学科在新高考中，地位直线上升，和其他科目相当。此次全国共有48所211高校的330个专业，都要求选考技术科目。在高校提出选考科目的专业里，选择技术这门科目的占36%，紧跟在物理和化学之后，这种热度多少让人有些意外。 省内高校要选考技术的，有浙江大学的科技与创意设计试验班，浙江财经大学的金融学、法学、软件工程专业等，浙江工业大学的电气通信与计算机类、计算机类等。省外高校要选考技术的，有北京工业大学的经济与贸易类、计算机科学与技术(实验班)、建筑学等，东南大学的物理学类、数学类等。 技术成为七门学科中的一门，地位已经直线上升，现在

2、紧跟在物理、化学后面，更是炙手可热。技术学科地位的变化技术学科地位的变化从高校看技术学科地位的变化技术学科地位的变化从普通高中看 从我们学校，甚至从整个天台县来看，技术学科的地位也在发生改变！学校的重视，学生的重视，课时的增加，无不标示着学科地位的上升。 然而处于现在这个过渡时期，学科地位不可能直接等同其他传统主科，需要界面设计界面设计Text1Text2Text3Label1Label2Label3Label4command1算法描述算法描述开始开始输入输入a,b,c 值值两边之和大于第三边结束结束 输出三角开面积输出警告语句输出警告语句计算三角形面积YN?编写代码编写代码开开 始始输入输入

3、a,b,c 值值两边之和大于第三边结束结束 输出三角开面积输出警告语句输出警告语句计算三角形面积YN?a=Val(Text1.Text)b=Val(Text2.Text)c=Val(Text3.Text)a + b c And a + c b And b + c ap=(a+b+c)/2S=Sqr(p*(p-a)*(p-b)*(p-c)Label4.Caption=Str(s)MsgBox (你输入的三边不能构成三角形，请重输！)分支结构if语句没有end if编写代码编写代码Dim a As Integer, b As Integer, c As Integer, p As Single, s as singleIf a + b c And a + c b And b + c a ThenElseEnd IfPrivate Sub Command1_Click()End Suba = Val(Text1.Text)b = Val(Text2.Text)c = Val(Text3.Text) p = (a + b + c) / 2s = Sqr(p * (p - a) * (p - b) * (p - c)Label4.Caption = Str(s)MsgBox (你输入的三边不能构成三角形，请重输！)Label4.Caption = 此处显示结果