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

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));