Viết thuật toán nhập vào 3 số là 3 cạnh của tam giác. Tính diện tích

B1: Nhập kích thước 3 cạnh.

B2:Áp dụng công thức heron (bn lên mạng tìm coi ct nha mik gõ ko đc.)

B3:Xuất kết quả và Kttt.

Bước 1 : Nhập 3 cạnh của tam giác

Bước 2: nếu cạnh của tam giác lớn hơn 0 thì đến bước 2 ,ngược lại thì quay về bước 1

bước 3: tính nửa chu vi của tam giác

bước 4 : tính diện tích của tam giác (sử dụng công thức Heron)

Bước 5: Xuất ra kết quả và kết thúc chương trình

sẵn tiện mình viết chương trình cho bạn tham khảo luôn

program tinhdientich;

uses crt;

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

begin

clrscr;

WRite('nhap chieu dai canh a cua tam giac',a); readln(a);

write('nhap chieu dai canh b cua tam giac',b) ;readln(b);

write('nhap chieu dai canh c cua tam giac',c); readln(b);

p:=0;

s:=0;

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

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

writeln('dien tich cua tam giac la',s);

readln

end.