создать типизированный файл который будет использоваться в Методе Гаусса

[vdv08]

Вот программа как в нее добавить типизированный файл?

var r,i,j,k,n: integer;
    max,c,m,s:real;a: array[1..100,1..100] of real;
    x,b: array[1..100]of real;
    begin
{ввод элементов массива}
write ('Введите размерность = ');
read (n);
for i:=1 to n do begin
    for j:=1 to n do begin
    write ('a[',i,',',j,']=');
   read (a[i,j]);
    end;
    writeln;
    write ('b[',i,']=');
    readln(b[i]);
    end;
{прямой ход метода Гаусса}
for k:=1 to n do begin
max:=abs(a[k,k]);
r:=k;
     for i:=k+1 to n do
     if abs(a[i,k])>max then begin
     max:=abs(a[i,k]);
     r:=i; end;
for j:=1 to n do begin
    c:=a[k,j];
    a[k,j]:=a[r,j];
    a[r,j]:=c;
    end;
    c:=b[k];
    b[k]:=b[r];
    b[r]:=c;
    for i:=k+1 to n do begin
    m:=a[i,k]/a[k,k];
        for j:=k to n do
        a[i,j]:=a[i,j]-m*a[k,j];
    b[i]:=b[i]-m*b[k];
    end;
end;{вывод треугольной матрицы}
for i:=1 to n do begin
for j:=1 to n do
write(a[i,j]:1:2,' ');
writeln(b[i]:1:2);
end;

{Обратный ход метода Гаусса}
   if a[n,n]=0 then
   if b[n]=0 then 
   writeln ('Бесконечное множество решений')
   else 
   writeln ('Нет решений')
else for i:=n downto 1 do begin
     s:=0;
     for j:=i+1 to n do begin
     s:=s+a[i,j]*x[j]; end;
     x[i]:=(b[i]-s)/a[i,i];
     writeln('x(',i,')=',x[i]:1:2);
      end;
     end.

Благодарен всем кто откликниться!!!

[eoln]

Что значит добавить? Сохранить результаты в типизированный файл али ещё как?

[vdv08]

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

Что значит добавить? Сохранить результаты в типизированный файл али ещё как?

да!сохранить результаты в типизированом файле!!!!Пдскажи как это сделать без наворотов.ЭТо типизированный файл!
Спасибо от души заранее!!!

[eoln]

var
  r,i,j,k,n: integer;
  max,c,m,s:real;a: array[1..100,1..100] of real;
  x,b: array[1..100]of real;
  f: file of real;//раз строчка
begin
  {ввод элементов массива}
  write ('Введите размерность = ');
  read (n);
  for i:=1 to n do begin
    for j:=1 to n do begin
      write ('a[',i,',',j,']=');
      read (a[i,j]);
    end;
    writeln;
    write ('b[',i,']=');
    readln(b[i]);
  end;
  {прямой ход метода Гаусса}
  for k:=1 to n do begin
    max:=abs(a[k,k]);
    r:=k;
    for i:=k+1 to n do
    if abs(a[i,k])>max then begin
      max:=abs(a[i,k]);
      r:=i;
    end;
    for j:=1 to n do begin
      c:=a[k,j];
      a[k,j]:=a[r,j];
      a[r,j]:=c;
    end;
    c:=b[k];
    b[k]:=b[r];
    b[r]:=c;
    for i:=k+1 to n do begin
      m:=a[i,k]/a[k,k];
      for j:=k to n do
      a[i,j]:=a[i,j]-m*a[k,j];
      b[i]:=b[i]-m*b[k];
    end;
  end;
  {вывод треугольной матрицы}
  for i:=1 to n do begin
    for j:=1 to n do
    write(a[i,j]:1:2,' ');
    writeln(b[i]:1:2);
  end;
  {Обратный ход метода Гаусса}
  assign(f, 'otvet.dat');//два строчка
  rewrite(f);
  if a[n,n]=0 then
  if b[n]=0 then
    writeln ('Бесконечное множество решений')
  else
    writeln ('Нет решений')
  else for i:=n downto 1 do begin
    s:=0;
    for j:=i+1 to n do begin
      s:=s+a[i,j]*x[j];
    end;
    x[i]:=(b[i]-s)/a[i,i];
    writeln('x(',i,')=',x[i]:1:2);
    write(f, x[i]);//три строчка
  end;
  close(f);//четыре строчка
  readln
end.

Сразу скажу, что файл otvet.dat блокнотом не прочитается, т.к. он типизированный

[vdv08]

[QUOTE=eoln;14Спасибо от души!!!

[vdv08]

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

var
  r,i,j,k,n: integer;
  max,c,m,s:real;a: array[1..100,1..100] of real;
  x,b: array[1..100]of real;
  f: file of real;//раз строчка
begin
  {ввод элементов массива}
  write ('Введите размерность = ');
  read (n);
  for i:=1 to n do begin
    for j:=1 to n do begin
      write ('a[',i,',',j,']=');
      read (a[i,j]);
    end;
    writeln;
    write ('b[',i,']=');
    readln(b[i]);
  end;
  {прямой ход метода Гаусса}
  for k:=1 to n do begin
    max:=abs(a[k,k]);
    r:=k;
    for i:=k+1 to n do
    if abs(a[i,k])>max then begin
      max:=abs(a[i,k]);
      r:=i;
    end;
    for j:=1 to n do begin
      c:=a[k,j];
      a[k,j]:=a[r,j];
      a[r,j]:=c;
    end;
    c:=b[k];
    b[k]:=b[r];
    b[r]:=c;
    for i:=k+1 to n do begin
      m:=a[i,k]/a[k,k];
      for j:=k to n do
      a[i,j]:=a[i,j]-m*a[k,j];
      b[i]:=b[i]-m*b[k];
    end;
  end;
  {вывод треугольной матрицы}
  for i:=1 to n do begin
    for j:=1 to n do
    write(a[i,j]:1:2,' ');
    writeln(b[i]:1:2);
  end;
  {Обратный ход метода Гаусса}
  assign(f, 'otvet.dat');//два строчка
  rewrite(f);
  if a[n,n]=0 then
  if b[n]=0 then
    writeln ('Бесконечное множество решений')
  else
    writeln ('Нет решений')
  else for i:=n downto 1 do begin
    s:=0;
    for j:=i+1 to n do begin
      s:=s+a[i,j]*x[j];
    end;
    x[i]:=(b[i]-s)/a[i,i];
    writeln('x(',i,')=',x[i]:1:2);
    write(f, x[i]);//три строчка
  end;
  close(f);//четыре строчка
  readln
end.

Сразу скажу, что файл otvet.dat блокнотом не прочитается, т.к. он типизированный

спасибо от души!!