Viết phương trình:
-Nhập từ bàn phím 3 số nguyên dương a, b, c bất kì. Kiểm tra xem 3 số đó có là 3 cạnh của tam giác. Nếu có hãy tính diện tích của tam giác đó. Yêu cầu viết hàm tính diện tích của tam giác và sử dụng hàm đó trong chương trình chính
uses crt;
var a,b,c:word;
function s(a,b,c:word):real;
var p:real;
begin
p:=(a+b+c)/2;
s:=sqrt(p*(p-a)*(p-b)*(p-c));
end;
begin
clrscr;
readln(a,b,c);
if (a+b>c) and (a+c>b) and (b+c>a) then
begin
writeln(a,’ ‘,b,’ ‘,c,’la 3 canh cua tam giac’);
writeln(s(a,b,c));
end
else writeln(a,’ ‘,b,’ ‘,c,’khong phai la 3 canh cua tam giac’);
readln;
end.
uses crt;
var a,b,c: word;
procedure tinhdientich;
var a,b,c: word;
s,p: real;
begin
p:=(a+b+c)/2;
s:=sqrt(p*(p-a)*(p-b)*(p-c));
writeln (‘dien tich tam giac la: ‘,s:1:2);
end;
begin
clrscr;
write (‘nhap ba canh cua tam giac: ‘); readln (a,b,c);
if (a+b>c) and (a+c>b) and (c+b>a) then tinhdientich
else writeln (‘3 canh nay ko the tao thanh 1 tam giac’);
readln;
end.