Cara Menentukan Titik Tengah Dua Buah Titik dengan Perbandingan Tertentu Menggunakan Delphi

Sebelumnya, penulis sudah posting Cara Menentukan Posisi Titik Koordinat diKuadran, Jarak Dua Buah Titik Menggunakan Delphi, dan Cara Menentukan Titik Tengah Antara Dua Buah Titik Menggunakan Delphi. Sekarang, penulis lanjut bagaimana Cara Menentukan Titik Tengah dengan Perbandingan Tertentu. Langsung saja desain seperti di bawah ini.

Pada tombol “Hitung” ketikkan scribs berikut.

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

begin

x1:=strtofloat(edit1.Text);

y1:=strtofloat(edit2.Text);

x2:=strtofloat(edit3.Text);

y2:=strtofloat(edit4.Text);

m:=strtofloat(edit5.Text);

n:=strtofloat(edit6.Text);

t1:=(n*x1+m*x2)/(m+n);

t2:=(n*y1+m*y2)/(m+n);

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

Download Aplikasinya disini.