Nhập vào độ dài 3 cạnh của tam giác và tính diện tích của tam giác đó biết độ dài 3 cạnh được nhập vào từ bàn phím

Question

ngochuong · Answer

Program Hotboy;

uses crt;

Var a,b,c,p,S: real;

Begin

clrscr;

Write(‘Nhap canh a,b,c:’);readln(a,b,c);

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

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

Write(‘Dien tich tam giac la:’,s:10:2);

Readln

End.

phuongthuy · Answer

program tinh_dien_tich;

uses crt;

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

begin

write(‘Nhap canh 1 = ‘); read(a);

write(‘Nhap canh 2 = ‘); read(b);

write(‘Nhap canh 3 = ‘); read(c);

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

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

writeln(‘Dien tich tam giac là: ‘,s:2:2);

readln;

end.

0 bình luận về “Nhập vào độ dài 3 cạnh của tam giác và tính diện tích của tam giác đó biết độ dài 3 cạnh được nhập vào từ bàn phím”