SetLength(a,m);

for i:=0 to m-1 do SetLength(a[i],n);{Ввод матрицы из Edit3}

k:=1;

for i:=0 to m-1 do

for j:=0 to n-1 do

begin a[i,j]:=StrToInt(GetSubStr(Edit3.text,k));

k:=k+1

End;end;

Процедура обработки щелчка на кнопке “Вывод”

(Вывод введенной матрицы в таблицу)

procedure TForm1.Button2Click(Sender: TObject);

var i,j:integer;

Begin

{Вывод номеров строк в 0-м столбце и столбцов в 0-й строке}

With StringGrid1 do

begin i:=0; //0-й столбец

for j:=1 to RowCount-1 do //вывести номера строк

Cells[i,j]:=IntToStr(j);

j:=0; //0-я строка

for i:=1 to ColCount-1 do //вывести номера столбцов

Cells[i,j]:=IntToStr(i);

End;

with StringGrid1 do {Вывод элементов матрицы в таблицу}

for i:=0 to m-1 do

for j:=0 to n-1 do Cells[j+1,i+1]:=IntToStr(a[i,j]);

End;

Процедура обработки щелчка на кнопке “Расчет”

(Развертывание матрицы в вектор, поиск максимального и минимального элемента этого вектора, а также индексов этих элементов, а затем формирование массива из тех элементов, которые располагаются между min и max элементами (или между max и min)).

procedure TForm1.Button3Click(Sender: TObject);

var b:vec; n1,i,j,k:integer;

bmax,bmin,nom,imax,imin:integer;

begin n1:=m*n; SetLength(b,n1); k:=-1;

for i:=0 to m-1 do

for j:=0 to n-1 do begin k:=k+1; b[k]:=a[i,j] end;

for i:=0 to n1-1 do Edit4.text:=Edit4.text+' '+IntToStr(b[i]);

k:=length(b);

Maxel(k,b,bmax,imax); minel(k,b,bmin,imin);

Label9.Caption:='Максимальный элемент

вектора='+IntToStr(bmax);

Label10.Caption:='Его номер='+IntToStr(imax);

Label11.Caption:='Минимальный

элемент вектора='+IntToStr(bmin);

Label12.Caption:='Его номер='+IntToStr(imin);

if imax>imin then begin nom:=imin+1; k:=imax-imin-1

End

else begin nom:=imax+1; k:=imin-imax-1

End;

b:=copy(b,nom,k);

for i:=0 to k-1 do

Edit5.text:=Edit5.text+' '+IntToStr(b[i]);

a:=nil; b:=nil; end;

Модуль без формы с подпрограммами

для использования из приложения

Внимание! Общие ресурсы для всех процедур Unit1 объявлены в этом модуле. Поэтому необходимо модуль UnitPP подключить к Unit1.

Uses

Windows, Messages, SysUtils, Classes, Graphics,

Date: 2015-07-25; view: 349; Нарушение авторских прав