• tuongtaylor

uses crt;
var d:text; a,b,c,P:real;

begin

clrscr;
      assign(d,'DL.INP');reset(d);
         readln(d,a,b,c);
      close(d);
      assign(d,'KQ.OUT');rewrite(d);
      if(a+b>c)and(a+c>b)and(b+c>a)then
         begin
            p:=(a+b+c)/2;
            write(d,'Chu vi:',A+B+c:0:2,' ');
            write(d,'Dien tich:',sqrt(p*(P-A)*(p-b)*(p-c)):0:2);
         end else writeln(d,'A,B,C khong hop le!!!');
      close(d);

readln

end.

Mình dùng hệ thức hê-rông nha!!!

Const Fi='DL.INP';
      Fo='KQ.OUT';
Var f,g: text;
    a,b,c,s,p: extended;
Begin
        Assign(f,Fi); Reset(f);
        Assign(g,Fo); Rewrite(g);
        While not eof(f) do
        Begin
                Readln(f,a,b,c);
                If (a+b>c) and (a+c>b) and (b+c>a) then
                Begin
                        p:=(a+b+c)/2;
                        s:=sqrt(p*(p-a)*(p-b)*(p-c));
                        Writeln(g,2*p:0:2,' ',s:0:2);
                End
                Else Writeln(g,'Khong phai do dai 3 canh tam giac');
        End;
        Close(f);
        Close(g);
End.