*Tam giác vuông:
uses crt;
var a,b:extended;
begin
clrscr;
write('Nhap hai canh goc vuong: '); readln(a,b);
writeln('S=',a*b/2:0:2);
readln
end.
*Tam giác cân:
uses crt;
var a,h:extended;
begin
clrscr;
write('Nhap canh day, chieu cao: '); readln(a,h);
writeln('S=',a*h/2:0:2);
readln
end.
*Tam giác vuông cân:
uses crt;
var a:extended;
begin
clrscr;
write('Nhap a: '); read(a);
writeln('S=',a*a/2:0:2);
readln
end.
*Tam giác đều:
uses crt;
var a:extended;
begin
clrscr;
write('Nhap a: '); read(a);
writeln('S=',a*a*sqrt(3)/4:0:2);
readln
end.
*Tam giác khi biết 3 cạnh (công thức $Heron$):
uses crt;
var a,b,c,p,s:extended;
begin
clrscr;
write('Nhap a,b,c: '); readln(a,b,c);
p:=(a+b+c)/2;
s:=sqrt(p*(p-a)*(p-b)*(p-c));
writeln('S=',s:0:2);
readln
end.
*Tam giác thường:
uses crt;
var a,h:extended;
begin
clrscr;
write('Nhap canh day, chieu cao: '); readln(a,h);
writeln('S=',a*h/2:0:2);
readln
end.
