1+1=0 definieren?

[grenzgaenger]

Häng mal 'ne lösungsroutine hinten an...

Delphi-Quellcode:

function AddVektor(const fromVektor, toVektor: tVektor; Skalar: double): tVektor;
var
  i: integer;
begin
 setlength(result, high(toVektor)+1);
  for i := low(fromVektor) to high(fromVektor) do
   result[i] := trunc(fromVektor[i]*Skalar) + toVektor[i];
end;
procedure TForm1.autosolveClick(Sender: TObject);
var
 Zeile1,Zeile2: integer;
begin
 for Zeile1 := 0 to high(m)-1 do
 begin
  for Zeile2 := Zeile1+1 to high(m) do
   M[Zeile2] := AddVektor(M[Zeile1],
                          M[Zeile2], 
                          M[Zeile2, Zeile1] / M[Zeile1, Zeile1] * -1);
  MatrixOut(m, memo);  
 end;
end;

vorausgesetzt wird hierbei, dass die zeile 0 keinen "0" wert aufweist, da ansonsten eine exeption ausgelöst würde. beispiel im anhang.