Program Luas Segitiga: Alas dan Tinggi menggunakan Delphi 7

Pseudo Code:


var a,t,l : real;
begin
  a:=StrToFloat(edit1.text);
  t:=StrToFloat(edit2.text);

  l:=(a*t)/2;

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

Semoga Bermanfaat :)