Aplikasi Jarak Dua Buah Titik Menggunakan Delphi

Sebelumnya, penulis sudah posting Cara Membuat Aplikasi untuk Menentukan Posisi Titik Koordinat diKuadran. Sekarang, penulis lanjut bagaimana Cara Menentukan Jarak Dua Buah Titik Menggunakan Delphi. Langsung saja desain seperti di bawah ini.

Pada tombol “Hitung” ketikkan scribs berikut.

var x1,x2,y1,y2,j:real;

begin

x1:=strtofloat(edit1.Text);

y1:=strtofloat(edit2.Text);

x2:=strtofloat(edit3.Text);

y2:=strtofloat(edit4.Text);

j:=sqrt((x2-x1)*(x2-x1)+(y2-y1)*(y2-y1));

listbox1.Items.Add('Jarak = '+floattostr(j));

Download Aplikasinya disini.