Xây dựng CTC tính diện tích của tam giác khi biết độ dài 3 cạnh. Viết chương trình nhập 3 số nguyên dương từ bàn phím và sử dụng CTC đã xây dựng để tí

0 bình luận về “Xây dựng CTC tính diện tích của tam giác khi biết độ dài 3 cạnh. Viết chương trình nhập 3 số nguyên dương từ bàn phím và sử dụng CTC đã xây dựng để tí”

1. program dien_tich;

   uses crt;

   var a,b,c:integer;

   {—Dien-tich—}

   function S(a,b,c:integer):real;

   var P:real;

   begin

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

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

   end;

   {—CT-Chinh—}

   BEGIN

         clrscr;

         write(‘Nhap do dai canh thu nhat: ‘);  readln(a);

         write(‘Nhap do dai canh thu hai: ‘);  readln(b);

         write(‘Nhap do dai canh thu ba: ‘);  readln(c);

         writeln(‘Dien tich tam giac la: ‘,S(a,b,c));

         readln;

   end.

   Bình luận