procedure TForm1.bthitungClick(Sender: TObject);
var
s: real;
a,b,c: integer;
luas : real;
begin
a:= strtoint(edit1.Text);
b:= strtoint(edit2.Text);
c:=strtoint(edit3.Text);
s:=(a+b+c)/2;
luas := sqrt(s*(s-a)*(s-b)*(s-c));
edit4.Text:=format('%.2f',[luas]) ;
end;
end.
Sunday 24 November 2013
luas segitiga yang sisinya telah diketahui
Published :
Sunday, November 24, 2013
Author :
dastio garbi
Subscribe to:
Post Comments (Atom)
IKLAN
Jam
Popular Posts
- Terhempas dalam sebuah kesalahan
- Cara Deface/Hack Halaman Utama Dari Suatu Website Dengan Webdav
- Cara Install BBM di Komputer Laptop Tanpa Punya BB, Android dan iPhone
- 5 Tempat Wisata di Pekanbaru Paling Menarik
- Injeck smart freen & Xl Terbaru
- tempat pengaduan acara TV
- Pemrograman Delphi, Persamaan Garis Melalui Dua Titik
- Direct & Inject XL terbaru
0 comments:
Post a Comment