Pemrograman Komputer Menentukan Lingkaran Dalam Segitiga

Lama ga posting ya guys...

mau share info ini nii,,, Pemrograman dengan pascal yang judulnya menentukan lingkaran dalam segitiga. Versi lengkapnya aku upload di next session ya??

Selamat mencobaaa....

Script nya:

program segi3lingkaran;
uses wincrt,crt;
var XA,XB,XC,YA,YB,YC,AB,AC,BC,L,S,Rd:real;
begin
  Writeln ('Selamat datang di program Geometri');
  Writeln ('Dengan sub Tema Segitiga dan Lingkaran');
  Writeln ('Dengan koordinat segitiga yang sudah diketahui, kita dapat menentukan lingkaran dalam serta lingkaran luar dari sebuah segitiga');
  Writeln ('Oleh karena itu, silahkan masukkan koordinat seitiga tersebut');
  Write ('A(   ,   )'); gotoxy(3,6); read(XA);gotoxy(7,6); readln (YA);
  Write ('B(   ,   )'); gotoxy(3,7); read(XB);gotoxy(7,7); readln (YB);
  Write ('C(   ,   )'); gotoxy(3,8); read(XC);gotoxy(7,8); readln (YC);
  AB:=sqrt(sqr(XA-XB)+sqr(YA-YB));
  AC:=sqrt(sqr(XA-XC)+sqr(YA-YC));
  BC:=sqrt(sqr(XB-XC)+sqr(YB-YC));
  Writeln ('Panjang AB yang anda maksud adalah ',AB:5:3);
  Writeln ('Panjang AC yang anda maksud adalah ',AC:5:3);
  Writeln ('Panjang BC yang anda maksud adalah ',BC:5:3);
  Writeln ('  ');
  Writeln ('Bagaimana? Bagus bukan? :) Mari kita lanjutkan ke lingkarannya');
  Readln;
  Writeln ('Check this out! ....');
  Writeln ('  ');
  S:=(AB+AC+BC)/2;
  L:=sqrt(S*(S-AB)*(S-AC)*(S-BC));
  Rd:=L/S;
  Writeln ('Jari Jari lingkaran dalam tersebut adalah ',Rd:5:3);
  readln;
end.           

mudah kan?? untuk mendownload programnya, klik disini Download Program Lingkaran Dalam Segitiga