Readln;

END.

Запустите приложение на выполнение (горячая клавиша F9). Консольное окно с результатами расчета для задачи 1 выглядит так:

Откройте файл с результатами Ivanov6_1.out (команда меню «File | Open»)

Проанализируйте содержание выходного файла Ivanov6_1.out

Сохраните и закройте проект Ivanov6.

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

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

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

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

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

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

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

program Ivanov6_2;

{$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; // файловые переменные

begin

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

AssignFile(fi,'Ivanov6_2.txt');

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

// Файловой переменной fo назначается файл Ivanov6_2.out

AssignFile(fo,'Ivanov6_2.out');

Rewrite(fo); // Текстовый файл fo открывается для записи

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

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

Begin

m:=MaxDim;

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

End;

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

Begin

for j:=1 to m do Read(fi,A[i,j]);

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

End;

CloseFile(fi); // Закрывается прочитанный файл fi

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

Amax:=A[1,1];

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

for i:=1 to m do

for j:=1 to m do

Begin

if A[i,j] < Amin then Amin:=A[i,j];

if A[i,j] > Amax then Amax:=A[i,j];

End;

R:=Amax-Amin; // разность

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

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

CloseFile(fo); // Закрывается файл fo,созданный программой

WriteLn('***** Press <ENTER> to finish *****');

Readln; // задержка экрана

end.

Запустите приложение на выполнение (горячая клавиша F9). Консольное окно с результатами расчета для задачи 1 выглядит так:

Откройте файл с результатами Ivanov6_2.out (команда меню «File | Open»)

Проанализируйте содержание выходного файла Ivanov6_2.out

Сохраните и закройте проект Ivanov6_2.

ВАРИАНТЫ ЗАДАНИЙ