чтение СЛАУ из файла

[16milashka16]

помогите пожалуйста прочитать систему линейных уравнений из файла.
Предположим, что в файле написана система вида:
x1+2x2+х3=4
2x1+x2=4
3х1-х3=-3
необходимо вывести на экран матрицу А:
1 2 1
2 1 0
3 0 -1
и вектор В:
4
4
-3
P.S. система может быть nxn
Заранее спасибо!

[TinMan]

Сообщение от 16milashka16

P.S. система может быть nxn

А какие ограничения на n? Мой код будет корректно работать только до 99.

// reading System of Linear Equations from a file
// by TinMan, programmersforum.ru

const
  m= 99;  // maximum rank
var
  f: text;
  a: array[1..m,1..m] of integer;
  b: array[1..m] of integer;
  s,t: string;
  i,j,k,n,p,v,c: integer;

function NextLine(var f: text; var s: string): boolean;
begin
  readln(f,s);
  NextLine:= s>''
end;

begin
  Assign(f,'SLE.txt');
  Reset(f);
  n:= 0;
  while NextLine(f,s) do begin
    inc(n);
    while Pos(' ',s)>0 do Delete(s,Pos(' ',s),1);
    s:= UpCase(s);
    for j:=1 to m do begin
      Str(j,t);
      p:= Pos('X'+t,s);
      if (p>0) and ((j>9) or not (s[p+2] in ['0'..'9'])) then begin
        k:= 1;
        repeat
          Val(Copy(s,p-k,k),v,c);
          if c=0 then a[n,j]:= v;
          inc(k)
        until (c>0) or (p=k);
        if (p=1) or not (s[p-1] in ['0'..'9']) then a[n,j]:= 1;
      end
    end;
    Val(Copy(s,Pos('=',s)+1,255),b[n],c)
  end;
  Close(f);
  for i:=1 to n do begin
    for j:=1 to n do write(a[i,j]:4);
    writeln
  end;
  for i:=1 to n do writeln(b[i]);
  readln
end.

Заранее спасибо!

Заранее-то легко сказать, а вот ПОТОМ почему-то всем становится жалко своего драгоценного спасиба для того, кто помог..

P.S.
да, и еще просьба к тебе: постарайся не писать русскую букву Х (ха) вместо латинской буквы X (икс). Твоя экономия нажатий стоила мне пары лишних минут на написание кода..

[16milashka16]

Спасибо огромное за помощь
только у меня проблема... на 24 строчке "s:= UpCase(s);" выдает ошибку: нельзя преобразовать тип string в char.

[TinMan]

Вау!!! Пожалуйста!!!

Сообщение от 16milashka16

только у меня проблема... на 24 строчке "s:= UpCase(s);" выдает ошибку: нельзя преобразовать тип string в char.

Ты какой компилятор используешь? TurboPascal что ли?
Лан, тогда замени эут строку на такую:

for i:=1 to Length(s) do s[i]:= UpCase(s[i]);

А вообще, переползай на FreePascal

[16milashka16]

Сообщение от TinMan

Вау!!! Пожалуйста!!!

Ты какой компилятор используешь? TurboPascal что ли?
Лан, тогда замени эут строку на такую:

for i:=1 to Length(s) do s[i]:= UpCase(s[i]);

А вообще, переползай на FreePascal

хех)) нее, я на делфи в консоле))

о Господи))) всё работает))) огромное преогромное спасибо))