FOXPRO编程不会了 高手进~!~!!~!~!

来源：百度知道 编辑：UC知道 时间：2024/05/16 07:39:40
通过键盘输入三角形的边长,若边长正确,立即在屏幕显示三角形的面积,若边长不正确,重新输入边长,若输入的边长之中任意一边为0,程序结束.

小弟先谢过~!~!

clear
dimension a(3)
for i=1 to 3
input "输入三角形第"+str(i,1)+"条边：" to a(i)
if a(i)=0
exit
endif
IF i=3
if a(1)+a(2)>a(3) and a(1)+a(3)>a(2) and a(2)+a(3)>a(1)
s=编辑公式 ※※公式我忘记了，自己查查看
?"三角形面积为：",s
else
?"边长不正确,重新输入各边长！"
i=0
ENDIF
endif
endfor