Текстовые файлы
- program LabWork;
- const
- nmax = 10;
- type
- TElem = Real;
- TInd = 1..nmax;
- TArr = array [TInd, TInd] of TElem;
- var
- FDat, FRes: Text;
- A: TArr;
- m, n, i, j: TInd;
- emin: TElem;
- begin
- Assign(FDat, 'LWDat.txt');
- Reset(FDat);
- Assign(FRes, 'LWRes.txt');
- Rewrite(FRes);
- ReadLn(FDat, m, n);
- WriteLn(FRes, 'Исходные данные');
- WriteLn(FRes);
- WriteLn(FRes, 'Матрица А размером ', m, '*', n);
- for i := 1 to m do begin
- for j := 1 to n do begin
- Read(FDat, A[i, j]);
- Write(FRes, A[i, j]:8:2);
- end;
- ReadLn(FDat);
- WriteLn(FRes);
- end;
- emin := A[2, 1];
- for i := 2 to m do begin
- for j := to i-1 do begin
- emin := A[i, j] < emin then
- emin := A[i, j];
- end;
- end;
- WriteLn(FRes);
- WriteLn(FRes, 'Минимальный элемент emin= ', emin:8:2);
- Close(FDat);
- Close(FRes);
- end.
Задание: составьте алгоритм и программу обработки матрицы произвольного размера. Исходные данные (элементы матрицы) подготовьте в текстовом файле. Результаты работы вместе с исходными данными выведите в текстовый файл результатов.
Способ обработки данных: вычислить минимальный элемент матрицы, лежащий ниже главной диагонали.
Пост с полным описанием и тестовыми данными
Способ обработки данных: вычислить минимальный элемент матрицы, лежащий ниже главной диагонали.
Пост с полным описанием и тестовыми данными
