三角形面积的计算.bak

来自「寻找1-100之间的水仙花数的源程序 三角形面积 素数 追加纪录 乘法口诀。大家」· BAK 代码 · 共 23 行

set talk off
area=0
store.T.to rep
do while rep
clear
input"请输入第一边的大小："to x
input"请输入第二边的大小："to y
input"请输入第三边的大小："to z
if x=0.or. y=0.or. z=0.or. x+y<=z.or.x+z<=y.or.y+z<=x &&三角形成立的条件
?"不能构成一个三角形，请重新输入!"
loop
endif
rep=.F.
ENDDO
DO sub with x,y,z,area
?"Area=" +str (area,6,2)  &&把数字型变量转换成相应的字符型，位数为6，保留2位小数点
return
procedure sub
parameter a,b,c,s   &&定义变量a,b,c,s
p=(a+b+c)/2   &&海伦公式求三角形面积
s=sqrt(p*(p-a)*(p-b)*(p-c))
return