(PASCAL- CẤU TRÚC If-Then) Nhập độ dài a, b, c bất kì từ bàn phím. Kiểm tra xem độ dài 3 cạnh đã thỏa mãn là tam giác chưa nếu thỏa mãn thì đưa ra diện tích, chu vi của tam giác đó?

(PASCAL- CẤU TRÚC If-Then) Nhập độ dài a, b, c bất kì từ bàn phím. Kiểm tra xem độ dài 3 cạnh đã thỏa mãn là tam giác chưa nếu thỏa mãn thì đưa ra diện tích, chu vi của tam giác đó?

uses crt;
var a,b,c:real;
begin
clrscr;
write('nhap chieu dai 3 canh');
readln(a,b,c);
if (a+b>c) and (a+c>b) and (b+c>a) then
writeln('do dai da nhap la 3 canh cua tam giac')
else
writeln('do dai da nhap khong la 3 canh cua tam giac');
readln
end.

$#thành#$

uses crt;

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

begin

clrscr;

write('Nhap ba canh tam giac a, b, c : ');

readln(a, b, c);

if (a > 0) and (b > 0) and (c > 0)

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

then begin cv := a + b + c;

p := cv / 2;

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

writeln('Chu vi tam giac : ', cv : 2 : 1);

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

end; readln

end.