Порядок выполнения работы. Создайте новый проект консольного приложения Delphi и сохраните его файлы в папку Ivanov-7 под именем Ivanov7

Создайте новый проект консольного приложения Delphi и сохраните его файлы в папку Ivanov-7 под именем Ivanov7.

Вставьте текстовый файл в проект (команда меню «File / New / Other…»). Выберите на вкладке «New» тип вставляемого объекта «Text».

В результате текстовый файл File1.txt будет вставлен в проект и открыт в окне редактора.

Сохраните файл под именем Ivanov7.txt (команда меню «File | Save As…»)

Внесите в новый файл Ivanov7.txt данные задания:

Сохраните изменения файла (команда меню «File | Save»).

Отредактируйте текст главной программы.

program Ivanov7;

{$APPTYPE CONSOLE}

uses

SysUtils;

Const

MaxDim = 10; // максимальный размер матрицы

Type

arr=array[1.. MaxDim,1.. MaxDim] of integer; // тип arr для массива А

Var

A:arr; // массив А

R:integer; // разность

Amax:integer; // максимальный элемент

Amin:integer; // минимальный элемент

i,j:integer; // счетчики по строкам, столбцам

m:integer; // размер квадратной матрицы

fi,fo:text; // файловые переменные

//-------------------------------------------------------------

// Описание процедуры чтения массива из файла

// f, a1, MaxD, m1 - формальные параметры

//

// Исходные данные:

// f - файл исходных данных,

// MaxD - максимальная размерность массива a1

//

// Результат:

// заполненный массив a1 и его реальный размер - m1

//-------------------------------------------------------------

Procedure ReadFromFile(var f:text;var A1:arr;MaxD:integer;var m1:integer);

Var

// счетчики по строкам, столбцам - локальные переменные

i,j:integer;

Begin

Readln(f,m1); // чтение размера матрицы из первой строки файла

if m1>MaxD then // проверка размера матрицы

Begin

m1:=MaxD;

Writeln('Матрица из файла урезана до размера массива');

End;

for i:=1 to m1 do // чтение из файла матрицы А

Begin

for j:=1 to m1 do Read(f,A1[i,j]);

Readln(f); // перевод указателя файла на новую строку

End;

End;

//-------------------------------------------------------------

// описание процедуры нахождения минимального и

// максимального элементов мас-сива

//

// Исходные данные: массив a1 и его реальный размер - m1.

// Результат: min, max - минимальный и максимальный его элементы.

//-------------------------------------------------------------

Procedure MaxMin(a1:arr; m1:word; var min, max: integer);

Var

// счетчики по строкам, столбцам - локальные переменные

i, j: word;

Begin

min:=a1[1,1]; // начальные установки

max:=a1[1,1];

// поиск минимального и максимального элементов:

for i:=1 to m1 do

for j:=1 to m1 do

Begin

if a1[i,j] < min then min:=a1[i,j];

if a1[i,j] > max then max:=a1[i,j];

End;

End;

//-------------------------------------------------------------

// описание процедуры вывода результата в файл и на экран

//

// Исходные данные:

// f - файл для сохранения результата,

// min, max, R - выводимые в файл и на экран данные.

// Результат - вывод результатов программы в файл и на экран

//-------------------------------------------------------------

Procedure SaveToFile(var f:text; min, max, R: integer);

Begin

Writeln(f,' Amax=',Amax,' Amin=',Amin,' Raznost = ',R);

Writeln('Amax=',Amax,' Amin=',Amin,' Raznost = ',R);

End;

begin

// Файловой переменной fi назначается файл Ivanov7.txt

AssignFile(fi,'Ivanov7.txt');

Reset(fi); // Текстовый файл открывается для чтения

// чтение данных из файла fi;

// A, MaxDim, m - фактические параметры