用Qbasic编程,已知三角形的三边,a,b,c求三角形的面积,和各角的度数,你会吗,帮帮了,

cls
input "a,b,c=";a,b,c
if (a>0)and(b>0)and(c>0)and(a+b>c)and(a+c>b)and(b+c>a) then
let p=(a+b+c)/2
s=sqr(p*(p-a)*(p-b)*(p-c))
print"s=";s
else
print "no anwser"
end if
end

我想这样就可以了

用海伦公式
p=(a+b+c)/2
s＝（p*(p-a)*(p-b)*(p-c)）再开方