Program Luas Sgitiga: 2 Sisi 1 Sudut menggunakan Delphi7

Pseudo Code:


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

  c:= c * pi /180;

  l:=((a*b*(sin(c)))/2);

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

Semoga Bermanfaat :)