program Angus;
uses crt;
var 
    x1,x2,x3,y1,y2,y3,s,p,n,a,b,c :real;
begin
        clrscr;
        write('Nhập tọa độ điểm A(x1,y1)= '); readln(x1,y1);
        write('Nhập tọa độ điểm B(x2,y2)= '); readln(x2,y2);
        write('Nhập tọa độ điểm C(x3,y3)= '); readln(x3,y3);
a:=sqrt(sqr(x2-x1)+sqr(y2-y1));
b:=sqrt(sqr(x3-x2)+sqr(y3-y2));
c:=sqrt(sqr(x1-x3)+sqr(y1-y3));
if (a+b>c) and (b+c>a) and (c+a>b) then
        begin
                p:=a+b+c;
                n:=p/2;
                s:=sqrt(n*(n-a)*(n-b)*(n-c));
        writeln('Chu vi = ', p:0:2);
        writeln('Diện tích = ',s:0:2);
        end
else writeln('các điểm bạn vừa nhập không tạo thành 1 tam giác :> ');
readln

uses crt;

var a,b,c,p,s:real;

begin

clrscr;

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

p=(a+b+c)/2;

s=sqrt(p*(p-a)*(p-b)*(p-c));

writeln('Chu vi la: ',p*2:4:2);

writeln('Dien tich la: ',s:4:2);

end

else writeln('a,b,c khong la ba canh cua tam giac');

readln;

end.

S lm giống mà ko ra 

uses crt;

var a,b,c,p,s:real;

begin

clrscr;

repeat

write('Nhap a='); readln(a);

write('Nhap b=');c readln(b);

write('Nhap c='); readln(c);

until (a>0) and (b>0) and (c>0);

if (a+b>c) and (a+c>b) and (b+c>a) then 

begin

kt:=0;

if sqr(a)=sqr(b)+sqr(c) then kt:=1;

if sqr(b)=sqr(a)+sqr(c) then kt:=1;

if sqr(c)=sqr(a)+sqr(b) then kt:=1;

if kt=0 then writeln('Day khong la tam giac vuong')

else begin

              writeln('Day la ba canh trong mot tam giac vuong');

p:=(a+b+c)/2;

s:=sqrt(p*(p-a)*(p-b)*(p-c));

writeln('Dien tich tam giac vuong la: ',s:4:2);

end;

end

else writeln('Day khong la ba canh trong mot tam giac');

readln;

end.

uses crt;

var a,b,c,p,s:real;

begin

clrscr;

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

p:=(a+b+c)/2;

s:=sqrt(p*(p-a)*(p-b)*(p-c));

writeln('Chu vi la: ',2*p:4:2);

writeln('Dien tich la: ',s:4:2);

end

else writeln('A B C khong phai la chieu dai ba canh cua mot tam giac');

readln;

end.

a) Ta có: \(\overrightarrow {{u_{BC}}}  = \overrightarrow {BC}  = \left( { - 5; - 3} \right) \Rightarrow \overrightarrow {{n_{BC}}}  = \left( {3; - 5} \right)\) . Vậy phương trình tổng quát của đường thẳng BC là: \(3\left( {x - 3} \right) - 5\left( {y - 2} \right) = 0 \Leftrightarrow 3x - 5y + 1 = 0\).

Độ dài đường cao AK của tam giác \(ABC\) hạ từ đỉnh A là: \(AK = d\left( {A,BC} \right) = \frac{{\left| {3.1 - 0.5 + 1} \right|}}{{\sqrt {{3^2} + {{\left( { - 5} \right)}^2}} }} = \frac{4}{{\sqrt {34} }}\)

b) Ta có: \(\overrightarrow {BC}  = \left( { - 5; - 3} \right) \Rightarrow BC = \sqrt {{{\left( { - 5} \right)}^2} + {{\left( { - 3} \right)}^2}}  = \sqrt {34} \)

Diện tích tam giác ABC là: \({S_{ABC}} = \frac{1}{2}.AK.BC = \frac{1}{2}.\frac{4}{{\sqrt {34} }}.\sqrt {34}  = 2\)

#include <bits/stdc++.h>

using namespace std;

double a,b,c,p,s;

int main()

{

cin>>a>>b>>c;

if (a+b>c && b+c>a && c+b>a)

{

p=(a+b+c)/2;

s=sqrt(p*(p-a)*(p-b)*(p-c));

cout<<fixed<<setprecision(2)<<s;

}

else cout<<"Day khong la ba canh trong mot tam giac";

return 0;

}

PROGRAM DIEN TICH TAM GIAC;
{Nhap vao do dai 3 canh tam giac. Tinh dien tich tam giac ay}
VAR a,b,c,p,S:real;kt:boolean;{kt: kiem tra}
BEGIN
Write('Nhap a: ');readln(a);
Write('Nhap b: ');readln(b);
Write('Nhap c: ');readln(c);
Writeln;
kt:=(a>0)and(b>0)and(c>0)and(a+b>c)
and(b+c>a)and(a+c>b);
If kt=true then
begin
p:=(a+b+c)/2;
S:=sqrt(p*(p-a)*(p-b)*(p-c));
writeln('Dien tich S= ',S:6:2);
end
Else writeln(,'Khong thuc hien vi day khong la do dai 3 canh tam giac');
Readln
END.

* Xin chú ý với bạn rằng: Trước khi tính diện tích tam giác, ta phải kiểm tra xem ba độ dài a, b, c có phải là ba cạnh của tam giác hay không, cho nên cần phải có biến kt:boolean;{kt: kiem tra}

kt:=(a>0)and(b>0)and(c>0)and(a+b>c)
and(b+c>a)and(a+c>b)

Chúc bạn học tốt!

uses crt;
var a,b,c: real;
begin
clrscr;
write('Nhap 3 so a, b, c:');readln(a,b,c);
if (a+b>c)and(a+c>b)and(b+c>a) then
write('3 canh vua nhap la tam giac')

write('3 canh vua nhap ko phai la tam giac');
readln;
end.