Błąd dzielenia przez zero

rafal733

2006-05-18T22:49:04+02:00

Rejestracja: dni
Ostatnio: dni

Znalazłem taki kod do obliczania wyznacznika macierzy. Problem występuje wtedy gdy na przekątnej macierzy znajduje się liczba 0. Wywala błąd dzielenia przez zero. Jak można tego uniknąć

Kopiuj

for k:=1 to n-1 do
 for l:=k+1 to n do
   for m:=k+1 to n do
     I[l,m] := I[l,m] - I[l,k]/I[k,k] * I[k,m];
det:=1;
for k:=1 to n do det := det * I[k,k];

Dzięki za pomoc

Artur

2006-05-18T23:50:45+02:00

Rejestracja: dni
Ostatnio: dni

Kopiuj

for k:=1 to n-1 do
 for l:=k+1 to n do
   for m:=k+1 to n do
   begin
     if I[k,k]<>0 then
        I[l,m] := I[l,m] - I[l,k]/I[k,k] * I[k,m]
     else
        //instrukcje jakie mają być wykonane w przypadku wystąpienia dzielenia przez zero 
   end;
//nio i trzeba jeszcze poniższy fragment nieco zmodyfikować, ale to zależy od Ciebie jak chcesz to zrobić
det:=1;
for k:=1 to n do det := det * I[k,k];