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