Aplikasi Aritmatika: Menghitung Besar Angsuran

Aplikasi Aritmatika: Menghitung Besar Angsuran

Trik Delphi Pustaka Matematika   19:28

Langsung saja desain seperti berikut ini.

Pada tombol “Hitung” ketikkan scribs berikut.

Var Mo,p,n,Mt,Pk,B,T,S:real;

begin

e4.Clear;

Mo:=strtofloat(e1.Text);

p:=strtofloat(e2.Text);

n:=strtofloat(e3.Text);

Pk:=Mo/n;

B:=(n/12)*(p/100)*Mo;

Mt:=Pk+B;

T:=n*Mt;

S:=T-Mo;

e4.Items.Add('Angsuran Pokok = '+floattostr(Pk));

e4.Items.Add('Bunga = '+floattostr(B));

e4.Items.Add('Angsuran Bulanan = '+floattostr(Mt));

e4.Items.Add('Total Pengembalian = '+floattostr(T));

e4.Items.Add('Untung Perusahaan = '+floattostr(S));

Pada tombol “Hapus” ketikkan scribs berikut.

e1.Clear;

e2.Clear;

e3.Clear;

e4.Clear;

e1.SetFocus;

Operasi Matematika: Tambah, Kurang, Kali, Bagi, Logaritma, Eksponen Menggunakan Delphi

Operasi Matematika: Tambah, Kurang, Kali, Bagi, Logaritma, Eksponen Menggunakan Delphi

Trik Delphi Pustaka Matematika   23:56

Operasi Matematika atau yang sering disebut Operator Aritmatika seperti Penjumlahan, Pengurangan, Perkalian, dan Pembagian umumnya sudah dikenal luas dalam mencari hasilnya. Namun terkadang kita masih kesulitan menentukan hasil Logaritma dan Eksponen dari dua buah bilangan. Berikut penulis bagikan aplikasinya menggunakan Delphi.

Langsung saja desain seperti berikut ini.

Tambahkan “Math” pada Uses.

Pada Form à Object Inspector à Event à OnCreate, tambahkan scribs berikut.

Var

x,y:integer;

begin

for x:=1 to 100 do

stringgrid1.Cells[x,0]:=floattostr(x);

for y:=1 to 100 do

stringgrid1.Cells[0,y]:=floattostr(y);

end;

Pada tombol “Tambah” ketikkan scribs berikut.

VAR

x,x1,x2,y,n:integer;

begin

n:=strtoint(edit1.Text);

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

for x:=0 to n do

for y:=0 to n do

stringgrid1.Cells[x,y]:=inttostr(x+y);

Pada tombol “Kurang” ketikkan scribs berikut.

VAR

x,y,n:integer;

begin

n:=strtoint(edit1.Text);

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

for x:=1 to n do

for y:=1 to n do

stringgrid1.Cells[x,y]:=inttostr(x-y);

Pada tombol “Kali” ketikkan scribs berikut.

VAR

x,y,n:integer;

z:real;

begin

n:=strtoint(edit1.Text);

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

for x:=1 to n do

for y:=1 to n do

stringgrid1.Cells[x,y]:=floattostr(y*x);

Pada tombol “Bagi” ketikkan scribs berikut.

VAR

x,y,n:integer;

z:real;

begin

n:=strtoint(edit1.Text);

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

for x:=1 to n do

for y:=1 to n do

stringgrid1.Cells[x,y]:=formatfloat('#.000',x/y);

Pada tombol “Logaritma” ketikkan scribs berikut.

VAR

x,y,n:integer;

z:real;

begin

n:=strtoint(edit1.Text);

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

for x:=1 to n do

for y:=1 to n do

stringgrid1.Cells[x,y]:=formatfloat('#.000',Log10(x));

Pada tombol “Eksponen” ketikkan scribs berikut.

VAR

x,y,n:integer;

z:real;

begin

n:=strtoint(edit1.Text);

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

for x:=1 to n do

for y:=1 to n do

stringgrid1.Cells[x,y]:=floattostr(power(y,x));

Cara Menggambar Fungsi Linier Menggunakan Delphi

Cara Menggambar Fungsi Linier Menggunakan Delphi

Program Aplikasi Pustaka Matematika   23:45

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;