Contoh Program Matriks Determinan 2x2 Pada Delphi
Source Codenya:
procedure TForm1.BitBtn1Click(Sender: TObject);
var
a,b,c,d,e:real;
begin
a:= StrToFloat(Edit1.Text);
b:= StrToFloat(Edit2.Text);
c:= StrToFloat(Edit3.Text);
d:= StrToFloat(Edit4.Text);
e:= (a*d)-(b*c);
Edit5.Text:= FloatToStr(e);
end;
end.
Hasil tampilannya seperti gambar berikut:
procedure TForm1.BitBtn1Click(Sender: TObject);
var
a,b,c,d,e:real;
begin
a:= StrToFloat(Edit1.Text);
b:= StrToFloat(Edit2.Text);
c:= StrToFloat(Edit3.Text);
d:= StrToFloat(Edit4.Text);
e:= (a*d)-(b*c);
Edit5.Text:= FloatToStr(e);
end;
end.
Hasil tampilannya seperti gambar berikut:
Komentar
Posting Komentar