вывести результаты работы программы в текстовый файл паскаль

[Demon11101995]

Program gordan_gaus;
Const m=3;  m1=4;
Label 110,170,230,340,360,420,430,520,540,550;
Var A:array [1..m,1..m1] of Real;
    X: array [1..m] of Real;
    I1,I2,i,j,k,n:integer;
    Z,F,C,C1:real;
Begin
Writeln ('Введите расширенную матрицу А(',m,',',m1,')');
For i:=1 to m do
  For j:=1 to m1 do Read (A[i,j]);
N:=0;
110 : N:=N+1;
F:=A[n,n];
K:=N;
For i:=n to m do if Abs(F)-Abs(A[i,n])>=0 then goto 170;
F:=A[i,n];
K:=I;
170 :
If N=K then goto 230;
For j:=1 to m1 do Begin
           Z:=A[n,j];
           A[n,j]:=A[k,j];
           A[k,j]:=Z;
          End;
230 : If A[n,n]=0 then goto 360;
I:=N; C:=A[i,i];
For j:=1 to m1 do A[i,j]:=A[i,j]/C;
For k:=1 to m do Begin
          if k=i then goto 340;
          C1:=A[k,i];
          for j:=1 to m1 do A[k,j]:=A[k,j]-C1*A[i,j];
    340 :    End;
If N<M then goto 110;
360: I1:=0;  I2:=0;
For i:=n to m do Begin
          k:=0;
          for j:=1 to m1 do if A[i,j]=0 then k:=k+1;
          if k<M then goto 430;
          If K>M then goto 420;
          I1:=I1+1; goto 430;
       420:   I2:=I2+1;
       430:  End;
If I1>=1 then goto 520;
If I2>=1 then goto 540;
Writeln ('Решение ');
For j:=1 to m do Begin
          X[j]:=A[j,m1];
          write ('X(',j,')= ',X[j]:2:2);
         End;
goto 550;
520: writeln ('Нет решений');
goto 550;
540: Writeln ('Множество решений');
550: End.

как это можно осуществить?

[BDA]

var f: text;
...
assign(f, 'output_file.txt');
rewrite(f);
//весь остальной код, в котором заменить write(<список параметров>) на write(f, <список параметров>)
close(f);

Или еще можно пробовать после строки Writeln ('Введите расширенную матрицу А(',m,',',m1,')'); написать assign(output, 'output_file.txt');.

[Demon11101995]

Спасибо выручили.

[Demon11101995]

а именно куда его вставлять?чтобы и на экран выводился и в txt?у меня либо одно либо другое!

[BDA]

Или выводить по два раза, продублировав команды вывода, или вывести в файл, а затем вывести все содержимое файла на экран.

[Serge_Bliznykov]

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

а именно куда его вставлять?чтобы и на экран выводился и в txt?у меня либо одно либо другое!

продублируйте строчку с Write:

например, Вы написали вывод в текстовый файл:

открытие файла...
Reset(f);
for ....
  for ....
     Write(f, что-то);
закрытие файла

если нужно, чтобы и в файл выводилось и на экран изменяем код так:

открытие файла...
Reset(f);
for ....
  for .... begin
     Write(f, что-то);
     Write( что-то );
  end;
закрытие файла

[Demon11101995]

что то не получается осуществить!вы можете показать?хотябы куда это вставлять?

[Serge_Bliznykov]

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

что то не получается осуществить!вы можете показать?хотябы куда это вставлять?

А куда Вы вставляли код, чтобы результат записывался в текстовый файл?!!

Ведь, судя по вашей реплике:

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

чтобы и на экран выводился и в txt?у меня либо одно либо другое!

Вы нашли место, где изменить, чтобы данные выводились в текстовый файл! Или не нашли?!!


вот сюда:

Writeln ('Решение ');
For j:=1 to m do Begin
          X[j]:=A[j,m1];
          write ('X(',j,')= ',X[j]:2:2);
         End;

p.s. а ещё, программировать с Label/goto - это очень плохой стиль (моветон). я бы рекомендовал Вам переписать код без использования переходов!