Pemrograman Komputer Menentukan Lingkaran Dalam dan Luar Segitiga (Part 2)

Ini lanjutan dari post sebelumnya... untuk melihat lebih lengkapnya silahkan klik judul dari postingan ini...

Semoga bermanfaat permirsaaah :)

program segi3lingkaran;
uses wincrt,crt;
var XA,XB,XC,YA,YB,YC,AB,AC,BC,L,S,Rd,Rl: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;
  Rl:=(AB*BC*AC)/(4*L);
  Writeln ('Jari Jari lingkaran dalam tersebut adalah ',Rd:5:3);
  Writeln (' ');
  Writeln ('Lalu bagaimana dengan lingkaran luarnya?') ;
  Writeln ('(tekan ENTER untuk melanjutkan)...');
  Readln;
  Writeln ('Jari-jari lingkaran luar tersebut adalah ',Rl:5:3);
  readln;
end.