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

Wednesday, 20 May 2015

Program Pascal Menentukan Jari-jari Lingkaran Dalam Suatu Segitiga

Menentukan jari jari lingkaran dalam suatu segitiga
Langkah Algoritma Menentukan jari jari lingkaran dalam suatu segitiga
Program Pascal Menentukan Jari-jari Lingkaran Dalam Suatu Segitiga
Jari-jari Lingkaran Dalam Suatu Segitiga
Bahasa Pascal


Program Pascal Menentukan Jari-jari Lingkaran DalamSuatu Segitiga
Program Pascal Menentukan Jari-jari Lingkaran DalamSuatu Segitiga
program jari_ling_dalam      ;
uses wincrt;
var
   xa,xb,xc,ya,yb,yc,a,b,c,s,l,r:real;

  begin


  writeln('Mencari jari-jari lingkaran dalam pada segitiga jika diketahui koordinat ketiga titik sudut pada segitiga');
  writeln;

  write('Masukan nilai xA= ');readln(xa);
  write('Masukan nilai yA= ');readln(ya);
  write('Masukan nilai xB= ');readln(xb);
  write('Masukan nilai yB= ');readln(yb);
  write('Masukan nilai xC= ');readln(xc);
  write('Masukan nilai yC= ');readln(yc);
     if (yc-ya)*(xb-xa)+(xa-xc)*(yb-ya)=0 then
writeln('Maaf koordinat yang diberikan tidak membentuk Segitiga!')
else

    begin
      a:=sqrt(sqr(xb-xc)+sqr(yb-yc));
      b:=sqrt(sqr(xa-xc)+sqr(ya-yc));
      c:=sqrt(sqr(xa-xb)+sqr(ya-yb));
      s:=(a+b+c)/2;
      l:=sqrt(s*(s-a)*(s-b)*(s-c));
      r:=l/s;


writeln('Jari-jari lingkaran dalam=',r:2:2);

    end;
end.


Langkah Algoritma Menentukan jari jari lingkaran dalam 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 =  L/s;
Output : Jari – jari lingkaran dalam suatu segitiga

Kumpulan Program Pascal Tentang Matematika:
Kunjungi: Kumpulan Program Pascal

0 comments:

Post a Comment