SHARE
TWEET

Untitled

a guest Nov 20th, 2019 68 Never
Not a member of Pastebin yet? Sign Up, it unlocks many cool features!
  1. program lab9;
  2.                {$APPTYPE CONSOLE}
  3. uses
  4.   SysUtils,
  5.   windows;
  6.  
  7. var
  8.    m,n,k:integer;
  9.    i,j:byte;
  10.    a:array[1..10,1..10] of real;
  11.    fin,fout:textfile;
  12.    flag:boolean;
  13.    err:integer;
  14.  
  15. begin
  16.   SetConsoleCP(1251);
  17.   SetConsoleOutputCP(1251);
  18.  
  19.   Assignfile(fin,ParamStr(1));Assignfile(fout,ParamStr(2));
  20.   k:=0;
  21.   try
  22.     reset(fin);
  23.     try
  24.       try
  25.         rewrite(fout);
  26.         try
  27.           try
  28.              //Начало программы
  29.              read(fin,m,n);
  30.              writeln(fout,'Матрица: ',m,'x',n);
  31.              for i:=1 to m do Begin
  32.                for j:=1 to n do read(fin,a[i,j]);
  33.                readln(fin);
  34.              end;
  35.              writeln(fout,'Исходная матрица: ');
  36.              for i:=1 to m do Begin
  37.                for j:=1 to n do write(fout,a[i,j]:5:1);
  38.                writeln(fout,' ');
  39.              end;
  40.              flag:=false;
  41.              i:=1;
  42.              j:=1;
  43.              while (j<=n) and not flag do Begin
  44.                    i:=1;
  45.                    while (i<=m) and not flag do Begin
  46.                      if A[i,j]>0 then Begin
  47.                        flag:=true;
  48.                        k:=j;
  49.                      end;
  50.                      i:=i+1;
  51.                    end;
  52.                    j:=j+1;
  53.              end;
  54.              if flag then Begin
  55.                 writeln(fout,'Номер положительного столбца равен ',k);
  56.              end
  57.              else writeln(fout,'Такого столбца не существует');
  58.              //Конец программы
  59.              writeln('Ok. File',paramstr(2),' is ready.');
  60.           except err:=1;
  61.           //writeln('Ошибка при считывании или записи в файл')
  62.           end;
  63.         finally closefile(fout);
  64.         end;
  65.       except err:=2;
  66.       //writeln('Ошибка при открытии выходного файла')
  67.       end;
  68.     finally closefile(fin);
  69.     end;
  70.   except err:=3;
  71.   // writeln('Ошибка при открытии исходного файла',paramstr(1))
  72.   end;
  73.   //writeln(''); Readln;
  74.   if (err>0) then Begin
  75.      case err of
  76.      1:begin
  77.      writeln('Ошибка при считывании или записи в файл');
  78.      readln;
  79.      end;
  80.      2:begin
  81.      writeln('Ошибка при открытии выходного файла');
  82.      readln;
  83.      end;
  84.  
  85.      3:begin
  86.      writeln('Ошибка при открытии исходного файла');
  87.      readln;
  88.      end;
  89.      end;
  90.  
  91.   end;
  92. 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
 
Top