Cara Menggambar Fungsi Linier Menggunakan Delphi

Perhatikan desain di bawah ini.

Tambahkan beberapa variabel di bagian Var, seperti di bawah ini.

Var

  Form1: TForm1;

   i,ndat:integer;

   teta0,step,a,b,c,d,e,f:real;

   ceksin:boolean;

   x,y:array[-50..50] of real;

Pada tombol panah hadap bahwa (tombol proses), ketikkan scribs berikut.

begin

a:=strtofloat(edit1.Text);

b:=strtofloat(edit2.Text);

teta0:=strtofloat(edit7.Text);

ndat:=strtoint(edit8.Text);

step:=strtofloat(edit9.Text);

series1.Clear;

x[0]:=teta0;

for i :=0 to ndat do

begin

y[i]:=a*x[i]+b;

series1.AddXY(x[i],y[i],'',clred);

x[i+1]:=x[i]+step;

end;

chart1.Title.Text.Clear;

chart1.Title.Text.Add('GRAFIK FUNGSI LINIER');

chart1.Title.Font.Style:=[fsbold];

chart1.LeftAxis.Title.Caption:='Sumbu Y';

chart1.BottomAxis.Title.Caption:='Sumbu X';

ceksin:=true;

stringgrid1.ColCount:=3;

stringgrid1.RowCount:=ndat+1;

stringgrid1.Cells[0,0]:='i';

stringgrid1.Cells[1,0]:='X(i)';

stringgrid1.Cells[2,0]:='Y(i)';

x[0]:=teta0;

for i:=0 to ndat do

begin

if ceksin then

y[i]:=a*x[i]+b;

x[i+1]:=x[i]+step;

stringgrid1.Cells[0,i+1]:=inttostr(i);

stringgrid1.Cells[1,i+1]:=floattostr(x[i]);

stringgrid1.Cells[2,i+1]:=formatfloat('#0.000',y[i]);

end;

end;