Cara Menentukan Titik Tengah Dua Buah Titik Menggunakan Delphi

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

Pada tombol “Hitung” ketikkan scribs berikut.

var x1,x2,y1,y2,t1,t2:real;

begin

x1:=strtofloat(edit1.Text);

y1:=strtofloat(edit2.Text);

x2:=strtofloat(edit3.Text);

y2:=strtofloat(edit4.Text);

t1:=0.5*(x1+x2);

t2:=0.5*(y1+y2);

listbox1.Items.Add('Titik Tengah (x,y) = ('+floattostr(t1)+','+floattostr(t2)+')');

Download Aplikasinya disini.