如何判断某一点是否在某条线上,怎样通过坐标来判断

解决方案 »

  1.   

    2、求三角形面积:给出三角形的三个边长为a,b,c,求三角形的面积。
        提示:根据海伦公式来计算三角形的面积:
        S= ;Area= 
        [解]
        1.输入的三角形三边长a,b,c要满足“任意两边长的和大于第三边长”。 
        2.按海伦公式计算:s=(a+b+c)/2;x=s*(s-a)*(s-b)*(s-c) 这时若x>=0,则求面积:area= ,并输出area的值。 
        [程序]
        PROGRAM hl; 
        VAR a,b,c,s,x,area:real;
        BEGIN
          write('Input a,b,c:');
          readln(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
          Begin
            s:=(a+b+c)/2;
            x:=s*(s-a)*(s-b)*(s-c);
            If x>=0 Then 
            Begin
              Area:=SQRT(x);
              writeln('Area=',area:8:5);
            End;
          End
          Else
          writeln('Input error!')
        END.