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ính diện tích tam giác.

program Hello;
uses crt;
var a,b,c,p:real;
function area(a,b,c:real): real;
begin
    p:=(a+b+c)/2;
    area:=sqrt(p*(p-a)*(p-b)*(p-c));
end;
begin
    clrscr;
    read(a,b,c);
    writeln('Dien tich tam giac: ', area(a,b,c));
end.

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.