Pemrograman Delphi, Persamaan Garis Melalui Dua Titik

Berikut SS dari program persamaan garis lurus :

Berikut SS eksekusi program :

Untuk menampilkan grafik seperti pada gambar di atas, silahkan doubel click pada grafik lalu edit-edit saja sendiri.

Source code nya sebagai berikut, nah copas dah nih :

\\ Double Click pada Button prosess (sesuaikan dengan desain form program Anda/ Sesuaikan namanya)

procedure TForm4.Button1Click(Sender: TObject);

\\ Deklarasi variabel

var

x1,x2,y1,y2,n,m,o,p:integer; 

dx,dy,steps,k:integer; 

x_inc,y_inc,x,y:single;

begin

\\ Memberi judul pada chart

chart1.Title.Text.Clear;

chart1.Title.Text.Add('GRAFIK NILAI GELOMBANG By: M ANNAS AL AKRAM'); \\ Memberi judul pada StringGrid

StringGrid1.Cells[0,0]:= 'TITIK KE';

StringGrid1.Cells[1,0]:= 'KORDINAT TITIK';

StringGrid1.Cells[2,0]:= 'NILAI X';

StringGrid1.Cells[3,0]:= 'NILAI Y';

stringgrid1.rowcount := 20; \\ Deklarasi nilai Input

x1:=strtoint(edit1.text); 

y1:=strtoint(edit2.text);

x2:=strtoint(edit3.text); 

y2:=strtoint(edit4.text);

dx := x2-x1; 

dy := y2-y1;

label7.Caption:='Maka diperoleh hasil dari, titik yang malalui kordinat '+ inttostr(x1)+','+ inttostr(y1)+' dan '+ inttostr(x2)+','+ inttostr(y2)+' adalah seperti pada tabel dan grafik berikut';

if abs(dx) > abs(dy) then steps := abs(dx)

else steps := abs(dy);

x_inc := dx/steps; 

y_inc := dy/steps;

x:=x1; y:=y1; n:=1; m:=2; o:=1; p:=1;

stringGrid1.Cells[0,1]:='KE : 1';

stringgrid1.cells[1,n]:='('+floattostr(x)+','+floattostr(y)+')';

stringgrid1.cells[2,1]:=floattostr(x);

stringgrid1.cells[3,1]:=floattostr(y);

series1.AddXY(x,y);

for k := 1 to steps do

begin \\ Counter variabel pembantu

n:=n+1; o:=o+1; p:=p+1; x:=x+x_inc; y:=y+y_inc;

StringGrid1.Cells[0,m]:='KE : '+inttostr(m);

stringgrid1.cells[1,n]:='('+floattostr(x)+','+floattostr(y)+')';

stringgrid1.cells[2,o]:=floattostr(x);

stringgrid1.cells[3,p]:=floattostr(y);

series1.AddXY(x,y);

m:=m+1; 

end; 

end;

procedure TForm4.Button2Click(Sender: TObject);

begin

edit1.Text:=''; edit2.Text:=''; edit3.Text:=''; edit4.Text:=''; series1.Clear; end;

procedure TForm4.Button3Click(Sender: TObject);

begin

close

end;

end.