Cara Membuat Tabel Cayley Menggunakan Delphi

اَلسَّلاَمُ عَلَيْكُمْ وَرَحْمَةُ اللهِ وَبَرَكَاتُهُ

Salam DM ...!

Program ini berawal dari pengalaman mengajar di kelas pada MK Struktur Aljabar. Mahasiswa sebagian besar awalnya bingung membuat Tabel Cayley dari sebuah Zn (Himpunan Berhingga). Jadi, kepikiran untuk membuatnya menggunakan Delphi.

Langsung saja ya. Silahkan Anda desain Form seperti di bawah ini.

  

Setting jumlah Kolom dan Baris dari StringGrid di Object Inspector sebesar 101.

Pertama, Kunci Edit1 (inputan n), kemudian pilih Event pada Object Inspektor, klik OnCange, dan ketikkan scribs berikut.

procedure TForm2.Edit1Change(Sender: TObject);

var i:integer;

begin

if (edit1.Text='') then begin messagedlg('Input n dulu',mtconfirmation,[mbYes],0);

exit;

edit1.SetFocus;

end;

stringgrid1.ColCount:=strtoint(edit1.Text)+1;

stringgrid1.RowCount:=strtoint(edit1.Text)+1;

for i:=1 to strtoint(edit1.text) do

begin

stringgrid1.cells[i,0]:=''+inttostr(i);

end;

Kedua, Pada Tombol “Penjumlahan” silahkan ketik scribs berikut.

procedure TForm2.Button1Click(Sender: TObject);

VAR

n, x,y: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) mod n);

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

Ketiga, Pada Tombol “Perkalian” silahkan ketik scribs berikut.

VAR

n,x,y:integer;

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,0]:=inttostr(x);

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

for x:=1 to n-1 do

for y:=1 to n-1 do

stringgrid1.Cells[x,y]:=inttostr((x*y) mod n);

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

end;

Keempat, Pada Tombol “Data Baru” silahkan ketik scribs berikut.

edit1.Clear;

stringgrid1.FixedCols:=0;

stringgrid1.FixedRows:=0;

stringgrid1.ColCount:=0;

stringgrid1.RowCount:=0;

Terakhir, Silahkan di-runing programnya tau tekan F9 pada keyboard. Kemudian masukkan sembarang bilangan bulat positif.

Semoga Bermanfaat.

وَالسَّلاَمُ عَلَيْكُمْ وَرَحْمَةُ اللهِ وَبَرَكَاتُهُ