Gauß-Elimination

[utd123]

Hallo Leute,
ich programmiere grade einen Rechner für lineare Gleichungssysteme basierend auf dem Gaußschen Eliminationsverfahren.
Dazu soll der User eine Matrix eingeben die dann gelöst wird. ich dachte nun, das der User seine Matrix in der folgenden Form in ein Memo-Feld eingibt:
-2,1 4 12
3 -5,1 -23
Meine Umsetzung für die Eingabe sieht dann so aus:

Code:

     for i:=1 to size do
     begin
          stringarray[i]:=MemoM.lines[i];
     end;


     for i:=0 to size do
     begin
          hilfsstring2 := stringarray[i];
          z:=0;
          for y:=0 to size+1 do
          begin
               while (hilfsstring2[z] <> ' ') do
               begin
                    hilfsstring := hilfsstring + hilfsstring2[z];
                    z += 1;
               end;
               gsys[getIndex(i,y,size)]:=strtofloat(hilfsstring);
               hilfsstring:='';
               z += 1;V'
          end;
     end;

gsys ist ein eindimensionales array of real. Die Anzahl der Zahlen ist bekannt(Anzahl=size*size+size).
Allerdings funktioniert das ganze nicht. Error: Project raised exeption class 'External:SIGSEGV'.
Hat jemand eine Idee wie das funktionieren könnte?

Danke für eure Antworten!:thumb:

[Notxor]

Sicher dass die Grenzen stimmen? Die 0-te Zeile vom Memo-Feld lässt du aus, greifst jedoch später darauf zu (arrays gehen normalerweise von 0..size-1, strings von 1..size)
Außerdem kennt Delphi kein += (was soll

Zitat:

z += 1;V'

machen?)

[utd123]

danke, dass ist mir noch gar nicht aufgefallen. Werds gleich mal versuchen. z += 1 soll heißen z:=z+1

[utd123]

Funzt immer noch nicht. Selbe fehlermeldung.:cry:

[Volker Z.]

Hallo,

Delphi-Quellcode:

while (hilfsstring2[z] <> ' ') do

Wird wohl an dieser Prorammzeile liegen. Wann kommt den nach der letzten gelesenen Zahl noch ein Leerzeichen?

Gruß

[utd123]

Könnte sein, jedoch tritt auch ein fehler auf wenn ich beim Eingeben hinter jede Zahl ein Leerzeichen mache.

[sx2008]

Ich würde folgende Funktion verwenden, um die Zahlen zu trennen

Delphi-Quellcode:

// kopiert aus der JCL
// Zerlegt den String "S" in seine Einzelteile die durch das "Separator"-Zeichen getrennt werden
// und liefert bei jedem Aufruf ein Teil zurück
function StrToken(var S: AnsiString; Separator: AnsiChar): AnsiString;
var
  I: Integer;
begin
  I := Pos(Separator, S);
  if I <> 0 then
  begin
    Result := Copy(S, 1, I - 1);
    Delete(S, 1, I);
  end
  else
  begin
    Result := S;
    S := '';
  end;
end;

Und dann so anwenden:

Delphi-Quellcode:

     for i:=0 to size do
     begin
          hilfsstring2 := stringarray[i];
          for y:=0 to size+1 do
          begin
               hilfsstring := StrToken(hilfsstring2, {Trennzeichen=}' ');
               gsys[getIndex(i,y,size)]:=strtofloat(hilfsstring);
          end;
     end;