Forum: Algorithmen, Datenstrukturen und Klassendesign
Delphi
by swarley,
24. Aug 2011
so ich habe meinen algorithmus jetzt optimiert. und mein unterprogramm enthält folgenden Quelltext:
procedure Inverse(a,zeilen,spaltengauss:Integer;var matgauss:TMatrixgauss);
var i,j,k : Integer;
begin
if a < zeilen-1 then
begin
for i := a to spaltengauss - 1 do
begin
matgauss:=matgauss/matgauss;
end;
Forum: Algorithmen, Datenstrukturen und Klassendesign
Delphi
by swarley,
23. Aug 2011
Hallo,
ich habe das Unterprogramm zur Berechnung der Inversen soweit hingekriegt (nehm ich an). Dummerweise mache ich wohl etwas bei der Übergabe der Ausgangsmatrix bzw Übergabe der Ergebnismatrix falsch. Dabei brauch ich noch einmal Hilfe.
Ich habe in meiner ButtonInverse.Onclick procedure zeilen-und spaltengröße, sowie meine Matrix, die ich invertieren möchte eingelesen. Daraufhin habe ich...