viết chương trình tính diện tích của tam giác có 3 cạnh là a,b,c (được nhập từ bp )

0 bình luận về “viết chương trình tính diện tích của tam giác có 3 cạnh là a,b,c (được nhập từ bp )”

1. uses crt;

   var a,b,c :integer;

         dt:real; 

   begin

   clrscr;

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

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

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

   writeln(a,’, ‘,b,’, ‘,c,’ la ba canh cua tam giac. DT = ‘,sqrt(dt*(dt-a)*(dt-b)*(dt-c)):0:2)

   else writeln(a,’, ‘,b,’, ‘,c,’ khong phai ba canh cua tam giac’);

   readln;

   end.

   Bình luận

2. User crt:

   BEGIN:

   Writenl (‘Nhap do dai 3 canh cua tam giac:’)

   Write(‘a=’), Readln(a)

   Write(‘b=’), Readln(b)

   Write(‘c=’), Readln(c)

   Write(‘h=’), Readln(h)

   => S=1/2.a.h

   Writeln(‘Dien tich tam giac do là:’,S)

   Readln

   End

   Bình luận