Курсовая работа: Автоматизированная система обработки структур данных

end;

end.

Модуль zad3

unit zad3;

interface

uses crt;

Const {определение констант размерности массива}

m2 = 50;

n2 = 50;

Type{определение типа двумерного массива}

Mat = array [1. . m2,

1. . n2] Of Real;

{Определение используемых процедур}

Procedure vvod3 (Var A: Mat; Var m, n: Integer);

procedure obrab1(var A: Mat; var C: Mat; m,n: integer);

procedure vyvod2 (C: Mat; m,n: integer);

implementation

{Процедура ввода размерности и элементов матрицы, а также вывода её на экран}

Procedure vvod3 (Var A: Mat; Var m, n: Integer);

Var

i, j: Byte;

Begin

Repeat

WriteLn('Введите размеры матрицы');

ReadLn(m);

ReadLn(n);

Until (m>1) AND (n>1) AND (m<=100) AND (n<=100);

For i: =1 To m Do

For j: =1 To n Do Begin