Gudang Info yang berisi Berita, Cerita, Hiburan, dan Ilmu Pengetahuan

Thursday, 12 March 2015

Rumus Heron Pada Pascal (Luas Segitiga)

Mudah bukan mencari luas suatu segitiga? Luas segitiga dapat di hitung mudah jika telah diketahui alas dan tingginya. 1/2 x Alas x tinggi kemudian kita akan mendapatkan hasil luas segitiga tersebut. Untuk kondisi lain, kita akan menjumpai segitiga yang mempunyai panjang sisi-sisinya berbeda (segitiga sembarang). Bagaimana menghitung luas segitiga sembarang yang hanya di ketahui panjang ketiga sisinya? Salah satu cara yang terkenal untuk menghitungnya adalah menggunakan Rumus Heron.


Heron Animal
Heron via spirit-animals.com



Rumus Heron (img:laptoporanye.com)


Rumus heron tersebut didapat dari pembuktian di bawah ini.  Berikut adalah Pembuktian Rumus Heron:
((Pembuktian Rumus Heron)) 
  Pembuktian Rumus Heron





Pembuktian Rumus Heron (img:laptoporanye.com)

Rumus Heron juga dapat dijalankan pada bahasa pascal, berikut merupakan salah satu Algoritma Pemrograman Rumus Heron yang bisa ditulis:
Rumus Heron Pada Pascal (Luas Segitiga)

Program Segitigaheron;
uses wincrt;
var xa,ya,xb,yb,xc,yc:real;
    AB,AC,BC,t,A:real;
begin
  writeln('Masukkan Koordinat Titik A:');readln(xa,ya);
  writeln('Masukkan Koordinat Titik B:');readln(xb,yb);
  writeln('Masukkan Koordinat Titik C:');readln(xc,yc);
  if ((yc-ya)*(xb-xa)+(xa-xc)*(yb-ya)=0)then
  writeln('ABC Bukan Sebuah Segitiga');
begin
  AB:=sqrt(sqr(xa-xb)+sqr(ya-yb));
  AC:=sqrt(sqr(xa-xc)+sqr(ya-yc));
  BC:=sqrt(sqr(xb-xc)+sqr(yb-yc));
  t:=AC*(sqrt(1-(sqr((AB*AB+AC*AC-BC*BC)/2/AB/AC))));
  A:=AB*t/2;
  writeln('Luas Segitiga ABC adalah:A=',A:6:2);
  end;
end.



NB: Program tertulis di atas, saya jalankan pada TPW 1.5  (Turbo Pascal for Windows)
Kumpulan Program Pascal Tentang Matematika:
Kunjungi: Kumpulan Program Pascal

0 comments:

Post a Comment