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

begin

writeln('Преобразованная матрица');

for i: =1 to m do begin

for j: =1 to n do

write(C [i,j]: 5: 4,' ');

writeln

end

end;

end.

Модуль zad4

unit zad4;

interface

uses crt;

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

n_max=15;

type {Определение типа запись}

Tabliza=record

nomer,data: byte;

tovar: string [20] ;

srok: integer;

stoim: real

end;

spisok=array [1. . n_max] of Tabliza;

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

procedurevvod2(vard: spisok);

procedure sort(var d: spisok);

procedure vyvod3(d: spisok);

implementation

{Процедура считывания данных из файла}