SHARE
TWEET

Untitled

a guest Dec 9th, 2019 67 Never
Not a member of Pastebin yet? Sign Up, it unlocks many cool features!
  1. procedure DataWrite(var aFile : TextFile; const aFlag : boolean; const aNum, aM, aN: integer; const aX : mat);
  2. var i, j : integer;
  3. begin
  4.     AssignFile(aFile, ParamStr(2));
  5.     ReWrite(aFile);
  6.  
  7.     WriteLn(aFile, 'X[', aN, ',', aM, '] = ');
  8.  
  9.     for i := 1 to aN do
  10.     begin
  11.         for j := 1 to aM do
  12.             Write(aFile, aX[i, j]:7:3, ' ');
  13.         WriteLn(aFile);
  14.     end;
  15.        
  16.     if (aFlag = true) then
  17.         WriteLn('номер строки', aNum - 1)
  18.     else
  19.         WriteLn('все суммы больше');
  20.  
  21.     CloseFile(aFile);
  22. end;
RAW Paste Data
We use cookies for various purposes including analytics. By continuing to use Pastebin, you agree to our use of cookies as described in the Cookies Policy. OK, I Understand
Not a member of Pastebin yet?
Sign Up, it unlocks many cool features!
 
Top