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!
