free pascal 编写三角形的面积和周长
要求是三角形的边长为a,b,c,求输出周长p和面积s.如果10≤S≤100，那么计算s/p为v，输出v以及周长p和面积s!我写了个，但一直不能通过，求达人...Program proba;Var a,b,c:real; p,l,s,v:real;BEGIN readln(a,b,c); p:=a+b+c; l:=(a+b+c)/2; s:=sqrt(l*(l-a)*(l-b)*(l-c)); if (s>=10)or(s<=100) then begin v:=s/p writeln(✀ p= ✀,p,✀ s= ✀,s,✀ v= ✀,v) else writeln(✀ p= ✀,p,✀ s= ✀,s); end.END.
