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í

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.