三角形面积的计算.prg

寻找1-100之间的水仙花数的源程序 三角形面积 素数 追加纪录 乘法口诀。大家都可以随便下载 资源共享嘛

set talk off
area=0
store.T.to rep
do while rep
clear
input"请输入第一边的大小："to a
input"请输入第二边的大小："to b
input"请输入第三边的大小："to c
if a=0.or. b=0.or. c=0.or. a+b<=c.or.a+c<=b.or.b+c<=a &&三角形成立的条件
?"不能构成一个三角形，请重新输入!"
loop
endif
rep=.F.
ENDDO
DO sub with a,b,c,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