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

Tuesday, 19 May 2015

Program Pascal Menentukan Jari-jari Lingkaran Luar Suatu Segitiga

Menentukan jari jari lingkaran luar suatu segitiga
Langkah Algoritma Menentukan jari jari lingkaran luar suatu segitiga
Program Pascal Menentukan Jari-jari Lingkaran Luar Suatu Segitiga
Jari-jari Lingkaran Luar Suatu Segitiga
Bahasa Pascal



Program Pascal Menentukan Jari-jari Lingkaran Luar Suatu Segitiga
Program Pascal Menentukan Jari-jari Lingkaran Luar Suatu Segitiga

Program jari_lingkaran_luarsegitiga;
uses wincrt;
var xa,ya,xb,yb,xc,yc,xp,yp:real;
    AB,AC,BC,s,A,R: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));
  xp:=((((xc*xc+yc*yc-xb*xb-yb*yb)/2)*(ya-yc))-(((xc*xc+yc*yc-xa*xa-ya*ya)/2)*(yb-yc)))/((xa-xc)*(yb-yc)-(xb-xc)*(ya-yc));
  yp:=((((xc*xc+yc*yc-xb*xb-yb*yb)/2)*(xa-xc))-(((xc*xc+yc*yc-xa*xa-ya*ya)/2)*(xb-xc)))/((ya-yc)*(xb-xc)-(yb-yc)*(xa-xc));
  writeln('Koordinat Titik Pusat Lingkaran Luar Segitiga ABC:P',xp:5:2,yp:5:2);
  s:=(AB+AC+BC)/2;
  A:=sqrt(s*(s-AB)*(s-AC)*(s-BC));
  R:=AB*AC*BC/A/4;
  writeln('Ukuran Jari-jari Lingkaran Luar Segitiga ABC Adalah:R=',R:6:2);
  end;
end.   

Langkah Algoritma Menentukan Jari-jari Lingkaran Luar Suatu Segitiga

Input :  Titik A : (xa,ya)
            Titik B : (xb,yb)
            Titik C : (xc.yc)
Pengondisian
Jika ((yc-ya)*(xb-xa))+((xa-xc)*(yb-ya))=0 maka (‘maaf  koordinat yang anda masukkan tidak membentuk segitiga’) Jika tidak maka:
Proses
1.      Hitung AB = sqrt (sqr (xa-xb) + sqr (ya-yb));
2.      Hitung AC = sqrt (sqr (xa-xc) + sqr (ya-yc));
3.      Hitung BC = sqrt (sqr (xb-xc) + sqr (yb-yc));
4.      Hitung s    =  (AB+AC+BC)/2;
5.      Hitung L   = sqrt (s *(s-AB) * (s-AC) * (s-BC));
6.      Hitung R =  ( AB*BC*AC)/(4*L);

Output : Jari - jari lingkaran luar suatu segitiga

Kumpulan Program Pascal Tentang Matematika:
Kunjungi: Kumpulan Program Pascal


0 comments:

Post a Comment