Gauß-Elimination

[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.

[Volker Z.]

Hallo,

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;