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 &&三角形成立的條件
?"不能構(gòu)成一個三角形，請重新輸入!"
loop
endif
rep=.F.
ENDDO
DO sub with x,y,z,area
?"Area=" +str (area,6,2)  &&把數(shù)字型變量轉(zhuǎn)換成相應(yīng)的字符型，位數(shù)為6，保留2位小數(shù)點
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