740)this.width=740 border=undefined> 是什么啊PASCAL里的

来源：百度知道 编辑：UC知道 时间：2024/06/01 12:11:07
PASCAL编程高手来帮忙啊也可以告诉我你的QQ长期合作谢谢
全题是:
【例2】计算如图7—2多边形的面积。
从图中可以看出，五边形的面积是三个三角形面积之和。
740)this.width=740 border=undefined>
Program p7_4(input,output);
Var b1,b2,b3,b4,b5,b6,b7,s:real;
Function area(a,b,c:real):real;
Var
P:real;
Begin
P:=(a+b+c)/2;
Area:=sqrt(p*(p-a)*(p-b)*(p-c));
End.

Begin
Write(‘please input b1,b2,b3,b4,b5,b6,b7:’);
Readln(b1,b2,b3,b4,b5,b6,b7);
S:=area(b1,b5,b6)+area(b2,b6,b7)+area(b3,b4,b7);{三次调用函数area}
Writeln(‘s=’,s:10:3);
End;
运行：
please input b1,b2,b3,b4,b5,b6,b7: 2 2 2 2 2 3 3

图复制不了,http://www.ajsycz.com/intro/news/manager/down.asp?type_id=wsfd&type_xm=05&nm=00004180_1.doc&fnm=考前复习写结果.doc

例2就是
那里面的例3也不是很清楚
那里面的SUM是干吗的啊
Sum:=0;
Area(b1,

onload="javascript:if(this.width>740)this.width=740"

HTML标记的一部分 与 PASCAL无关

___________

Sum:=0; {初值}
Area(b1,b5,b6,s); {计算第一个三角形的面积，计算结果在s中}
Sum:=sum+s; {现在Sum是第一个三角形的面积}
Area(b2,b6,b7,s); {计算第二个三角形的面积，计算结果在s中}
Sum:=sum+s; {现在Sum是两个三角形的面积之和}
Area(b3,b4,b7,s); {计算第三个三角形的面积，计算结果在s中}
Sum:=sum+s; {现在Sum是三个三角形的面积之和}
Writeln(‘s=’,s:10,3); {输出}