Program Luas Segitiga: 3 sisi menggunakan Delphi 7

Pseudo Code:


var a,b,c,s,l : real;
begin
  a:=StrToFloat(edit1.Text);
  b:=StrToFloat(edit2.Text);
  c:=StrToFloat(edit3.Text);

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

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

  edit4.Text:=FloatToStr(l);
end;

Semoga Bermanfaat :)