Реферат: Програмирование на языке Паскаль

procedure inputmatrix;

procedure getrandommatrix;

procedure main(f:boolean);

procedure PrintMatrix ;

procedure fileinput;

procedure fileoutputv(f:boolean);

end;

tdata=record

col:string[4];

row:string[4];

max:string[4];

end;

var

matrix_perim:Tmatrix;

x,y:integer;

const

MAX = 10; {максимально матрица 10 на 10 }

type

Matrix = array [1..MAX,1..MAX] of integer;

Perim = array [1..MAX*4] of integer;

var

wind:pwind;

Mxx:Matrix; {исходная матрица }

N,M:integer; {количество строк и столбцов }

l:integer; {количество элементов по периметру подматрицы }

per:Perim; {элементы периметра }

mf:boolean; {флаг ввода исходной матрицы - true }

data:tdata;

matr_v:array[1..10] of string;