MENENTUKAN KOORDINJAT PUSAT LINGKARAN DAN JARIJARI LINGKARAN DARI 3 BUAH TITIK

Ini adalah program matematika, menghitung pusat dan jari-jari lingkaran melalui 3 buah titik, ini adalah program pascalnya:
Program menentukan_koordinat_pusat_lingkaran_dan_jarijari_lingkaran_dari_3_buah_titik;
uses crt;
var x1,y1,x2,y2,x3,y3,k2,k3,h2,h3,x0,y0,r:real;
begin
clrscr;
writeln (’welcome’);
writeln (’program menentukan koordinat pusat lingkaran dan jarijari lingkaran dari 3 titik’);
writeln (’ di buat oleh :AIRINDA EKTRIA KUSUMAWATI 070793 4B’);
writeln (’masukkan x1'); readln (x1);
writeln (’masukkan y1'); readln (y1);
writeln (’masukkan x2'); readln (x2);
writeln (’masukkan y2'); readln (y2);
writeln (’masukkan x3'); readln (x3);
writeln (’masukkan y3'); readln (y3);
writeln;
k2:=(-1*((x2-x1)/(y2-y1)));
k3:=(-1*((x3-x1)/(y3-y1)));
writeln (’Nilai k2 adalah’, k2:2:2);
writeln (’Nilai k3 adalah’, k3:2:2);
writeln;
h2:=((y1+y2)/(2))+(((x2*x2)-(x1*x1))/((2)*(y2-y1)));
h3:=((y1+y3)/(2))+(((x3*x3)-(x1*x1))/((2)*(y3-y1)));
writeln (’Nilai h2 adalah’, h2:2:2);
writeln (’Nilai h3 adalah’, h3:2:2);
writeln;
x0:=((h3-h2)/(k2-k3));
y0:=((k3*h3-k2*h2)/(k2-k3));
r:=sqrt((x1-x0)*(x1-x0)+(y1-y0)*(y1-y0));
writeln (’Nilai x0 adalah’, x0:2:2);
writeln (’Nilai y0 adalah’, y0:2:2);
writeln (’Nilai r adalah’, r:2:2);
readln;
end.