viết chương trình kiểm tra độ dài của 3 cạnh có phải là độ dài của 1 tam giác hay không. Nếu là độ dài của tam giác tính chiều cao và diện tích tương

0 bình luận về “viết chương trình kiểm tra độ dài của 3 cạnh có phải là độ dài của 1 tam giác hay không. Nếu là độ dài của tam giác tính chiều cao và diện tích tương”

1. uses crt;

   var    a,b,c: real;

           s,p,ha,hb,hc: real;

   begin

   clrscr;

   writeln(‘Nhap vao day cac canh: ‘);

   write(‘Canh thu nhat: ‘); readln(a);

   write(‘Canh thu hai: ‘); readln(b);

   write(‘Canh thu ba: ‘); readln(c);

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

      begin

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

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

              writeln(‘Du dieu kien la tam giac);

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

             writeln(‘Duong cao ung voi canh a: ‘, 2s/a);

             writeln(‘Duong cao ung voi canh b: ‘, 2s/b);

             writeln(‘Duong cao ung voi canh c: ‘, 2s/c);

             writeln(‘Nhan Enter’);

   end

   else writeln(‘ERROR. Khong phai tam giac’);

   readln

   end.

   Bình luận