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

end;

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

enablecommands(wincoml);

tmatrix.printmatrix; {выводим рабочую матрицу }

end;

end;

{_______________________________________________}

procedure tmatrix.fileinput; {ввод данных из файла }

var

pf:pfiledialog;

s:pathstr;

x:char;

i,j:integer;{счётчики }

begin

new(pf,init('*.txt','Выберите нужный файл:','Имя файла',fdopenbutton,0));

if desktop^.execview(pf)=stddlg.cmfileopen then

begin{считывание матрицы из файла }

pf^.getfilename(s);

assign(filework,s);

reset(filework); {открываем файл для чтения }

enablecommands(wincoml);

dispose(pf,done);

i:=1;

j:=1;

while not eof(filework ) do

begin

while not eoln(filework) do

begin

read(filework,mxx[i,j]); {заносим в матрицу значения }