Question

Bài tập 2: Viết chương trình nhập tính diện tích tam giác, nhập độ dài cạnh a, b, c từ bàn phím. Công thức tính Diện tích là , p là nửa chu vi

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) and (a+b>c) and (a+c>b) and (b+c>a);

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

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

writeln(s:4:2);

readln;

end.