Viết chương trình nhập vào 3 số a ,b, c bất kì. Kiểm tra xem 3 cạnh đó có thể là độ dài 3 cạnh của 1 tam giác hay không? Nếu có thì in in ra màn hình diện tích tam giác đó. Ngược lại thì in ra màn hình abc không phải là 3 cạnh của 1 tam giác
Viết chương trình nhập vào 3 số a ,b, c bất kì. Kiểm tra xem 3 cạnh đó có thể là độ dài 3 cạnh của 1 tam giác hay không? Nếu có thì in in ra màn hình
By Eliza
Uses crt;
var a,b,c:longint; p:real;
begin
clrscr;
write(‘a,b,c=’);readln(a,b,c);
if (a+b>c)and(a+c>b)and(b+c>a) then
begin
writeln(‘Day la 1 tam giac.’);
p:=(a+b+c)/2;
Writeln(‘Dien tich: ‘,sqrt(p*(p-a)*(p-b)*(p-c)):0:3);
end else write(‘Day khong phai la 1 tam giac.’);
readln
end.
//////////////////////////////////////
Có diện tích.
#Chúc học tốt.
uses crt;
var a,b,c:integer;
p,s:real;
begin
clrscr;
write(‘Nhap canh a:’);readln(a);
write(‘Nhap canh b:’);readln(b);
write(‘Nhap canh c:’);readln(c);
p:=(a+b+c)/2;
s:=sqrt(p*(p-a)*(p-b)*(p-c));
if (a+b>c) and (b+c>a) and (a+c>b) then write(‘ Do la ba canh cua tam giac’);
writeln(‘Dien tich cua tam giac la:’,s:10:2)
else writeln(‘Do ko phai la ba canh cua tam giac’);
readln;
end.