求助高手：Delphi5.0下，如何计算三角形面积。请将源码写下。(50分)

  • 主题发起人 liu12wewi
  • 开始时间
L

liu12wewi

Unregistered / Unconfirmed
GUEST, unregistred user!
小弟是一个刚刚接触Delphi5.0的新手，由于老板要求写出一个可以计算三角形面积的程序，现毫无头绪，烦请各位高手帮忙。
 
你去看看初中数学！
需要哪些条件？比如三个边；两边一角什么的！就知道了啥！
type
TPoints=Array of TPoint
X,Y:Double

end;

function GetTrgArea(const x1,y1,x2,y2,x3,y3:Double):Double
//三角形面积
var
a,b,c,CV:Double;
begin
a:=Sqrt(Sqr(x1-x2)+Sqr(y1-y2));
b:=Sqrt(Sqr(x1-x3)+Sqr(y1-y3));
c:=Sqrt(Sqr(x2-x3)+Sqr(y2-y3));
if (a=0)or(b=0) then begin Result:=0
exit
end;
CV:=(sqr(a)+Sqr(b)-Sqr(c))/2/a/b;
Result:=a*b*Sqrt(1-Sqr(CV))/2;
end;
 
海伦公式
已知3个边,求面积
 
晕,楼主这个问题我以前回复过 你
怎么还问呢,,莫非换了个人,同一个ID
 
那如果不知道三条边的长度只是有一个三角形放在那里，怎么办？
 
那如果不知道三条边的长度只是有一个三角形放在那里，怎么办？

晕,那么你就对着它喊:
万能的主啊,告诉我你的面积是多少呢
 
两点之间距离怎么算？
 
(a,b)
(c,d)

那么，=SQURT((C-A)^2+(D-B)^2)

这个好象是小学问题,真晕
 
两点之间距离怎么算？
那如果不知道两点的坐标呢？是不？你什么都不知道，都算数据怎么算？

别问白痴的问题！
呵呵！
最少要知道三点的坐标！
 
你要刚学Delphi，不会写，你最好，把你的需求说清楚！让别人给你写个例子程序，不就OK了吗？
 
是这样的，一个记录软件，记录一个实验过程，中间有一温度变化的过程（升高和降低），这个过程呈现的是一个像山峰一样的形状，老板让我写出可以计算这个形状的面积。
 
这个论坛贴图怎么贴？我把那个记录的数据图给贴上来？
 
20060613144420234

图中红色圆圈部分的峰面积怎么求？
 
http://aidelphi.com/Uploadfiles/liu12wewi/20060613144420234.jpg
一个记录软件，记录一个实验过程，中间有一温度变化的过程（升高和降低），这个过程呈现的是一个像山峰一样的形状，老板让我写出可以计算这个形状的面积。
 
那怎么能叫3角形面积呢,
要算那个区域的面积非常复杂,恐怕要用到积分微积分什么的,早忘光了
 
就是我什么也不知道，所以才说错的，大哥帮帮忙吧：）
 
晕,这个问题已经超出DELPHI范围了

要形成这个曲线,是需要一个函数的
然后这个曲线相对于某个函数(某条直线)会形成一个闭合图型
要计算这个图形的面积,估计要用到定积分来计算,而且算出来的数据可能有误差的
 
大哥，我把整个软件和那条数据记录文件一起发给你，你帮我看看可以吗？小弟跪谢了！
 
发到wp231957@163.com
吧,不过高等数学我也忘光了,不要抱太大的希望
 
谢谢！
 
您必须登录或注册才可回复。

Similar threads

S
[转]ClientDataSet加上TDataSetProvider的数据保存问题
回复
0
查看
3K
SUNSTONE的Delphi笔记
S
S
[转]ClientDataSet加上TDataSetProvider的数据保存问题
回复
0
查看
2K
SUNSTONE的Delphi笔记
S
I
使用CPU时间戳进行高精度计时
回复
0
查看
738
import
I
I
帕里的设计模式手册
回复
0
查看
524
import
I
I
常用算法（3）动态规划
回复
0
查看
864
import
I
顶部