Pohuyumer

Lab 12 main

Jan 24th, 2020
96
Never
Not a member of Pastebin yet? Sign Up, it unlocks many cool features!
  1. program PFU;
  2.  
  3. {$APPTYPE CONSOLE}
  4.  
  5. uses
  6.   windows,
  7.   sysutils,
  8.   Unit12 in '..\..\..\Documents\Embarcadero\Studio\Projects\Unit12.pas'; {там все константы, типы, процедуры и функции}
  9.  
  10. var{раздел описания переменных}
  11.   dat,rez:textfile;
  12.   a:matrix;
  13.   n,p,e,m:shortint;
  14.   av:real;
  15.   flag_n,flag_a:boolean;
  16.  
  17. begin {раздел операторов}
  18.   SetConsoleCP(1251);
  19.   SetConsoleOutputCP(1251);
  20.   check_files(dat,rez);
  21.   check_n(dat,n,flag_n);
  22.   writeln('N = ',flag_n,' in program');
  23.   if (flag_n=false) then
  24.       begin
  25.          close_pr(dat,rez);
  26.       end
  27.   else
  28.      begin
  29.         input(a,n,dat,p,e);
  30.         check_a(dat,n,a,flag_a);
  31.         writeln('A = ',flag_a,' in program');
  32.         if (flag_a=false) then
  33.             begin
  34.               close_pr(dat,rez);
  35.             end
  36.         else
  37.            begin
  38.               writeln(rez,'               Типовой расчет');
  39.               writeln(rez);
  40.               writeln(rez,'Исходная матрица из ',n,' строк и ',n,' столбцов');
  41.               output_a(a,n,p,e,rez);
  42.               if (analysis(a,n,P,E,m) = true) then
  43.                   begin
  44.                   check_average_positive(rez,a,n,av);
  45.                   end
  46.               else
  47.                  begin
  48.                     writeln(rez,'в матрице А есть элемент(=',m,'), его абсолютная величина');
  49.                     writeln(rez,'отличается от заданной величины Р(=',p,') менее, ');
  50.                     writeln(rez,'чем на заданную величину Е(=',e,')');
  51.                  end;
  52.               close_pr(dat,rez);
  53.            end;
  54.      end;
  55. end.
RAW Paste Data