Source Code Program Luas Segitiga

procedure segitiga (var a: integer; var b: integer);

var luas: real;

begin

luas:= a*b*0.5;

ShowMessage('luas segitiga adalah' + floattostr(luas));

end;

procedure TForm1.Button1Click(Sender: TObject);

var a,b:integer;

begin

a:=strToint(edit1.text);

b:=strToint(edit2.text);

begin

segitiga(a,b);

end;

end;

end.

Posted in: