Contoh Program Matriks Determinan 3x3 Pada Delphi
Source Codenya:
procedure TForm1.BitBtn1Click(Sender: TObject);
var
a,b,c,d,e,f,g,h,i,j,k,l:real;
begin
a:= StrToFloat(Edit1.Text);
b:= StrToFloat(Edit2.Text);
c:= StrToFloat(Edit3.Text);
d:= StrToFloat(Edit4.Text);
e:= StrToFloat(Edit5.Text);
f:= StrToFloat(Edit6.Text);
g:= StrToFloat(Edit7.Text);
h:= StrToFloat(Edit8.Text);
i:= StrToFloat(Edit9.Text);
j:= (a*e*i)+(b*f*g)+(c*d*h);
k:= (c*e*g)+(a*f*h)+(b*d*i);
l:= j-k;
Edit10.Text:= FloatToStr(l);
end;
end.
Dan tampilannya seperti gambar berikut:
procedure TForm1.BitBtn1Click(Sender: TObject);
var
a,b,c,d,e,f,g,h,i,j,k,l:real;
begin
a:= StrToFloat(Edit1.Text);
b:= StrToFloat(Edit2.Text);
c:= StrToFloat(Edit3.Text);
d:= StrToFloat(Edit4.Text);
e:= StrToFloat(Edit5.Text);
f:= StrToFloat(Edit6.Text);
g:= StrToFloat(Edit7.Text);
h:= StrToFloat(Edit8.Text);
i:= StrToFloat(Edit9.Text);
j:= (a*e*i)+(b*f*g)+(c*d*h);
k:= (c*e*g)+(a*f*h)+(b*d*i);
l:= j-k;
Edit10.Text:= FloatToStr(l);
end;
end.
Dan tampilannya seperti gambar berikut:
Komentar
Posting Komentar