Question

Viết chương trình tính diện tích hình tâm giác cân,vuông, đều . Em xin cảm ơn

Answer 1

uses crt;

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

begin

clrscr;

repeat

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

write('Nhap b='); 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

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

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

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

end

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

readln;

end.