Viết chương trình Pascal nhập từ bàn phím 3 số nguyên dương a, b,c rồi: +Kiểm tra xem đây có phải độ dài ba cạnh của tam giác không, nếu không đưa thông báo ra màn hình +Nếu có đưa thông báo ra màn hình rồi tính chu vi, diện tích của tam giác đó.
2 câu trả lời
program bai_giai;
uses crt;
var a,b,c:integer;
P:real;
begin
clrscr;
readln(a,b,c);
if (a+b>c) and (a+c>b) and (b+c>a) then
begin
writeln('Chu vi: ',a+b+c);
P:=(a+b+c)/2;
writeln('Dien tich: ',sqrt(p*(p-a)*(p-b)*(p-c)):0:2);
end
else write('Khong tao thanh tam giac');
readln;
end.
var a,b,c:longint;
p,s:real;
begin
write('Nhap vao 3 so a b c = ');readln(a,b,c);
if (a+b>c) and (b+c>a) and (a+c>b) then
begin
p := (a+b+c)/2;
s := sqrt(p*(p-a)*(p-b)*(p-c));
writeln('Chu vi = ',2*p:0:2);
writeln('Dien tich = ',s:0:2);
end
else write('Do dai khong hop le');
readln;
end.
