Controls, Forms, Dialogs, StdCtrls, Grids,UnitPP;

Unit UnitPP;

Interface

type vec=array of integer; matr=array of vec;

var a:matr; m,n:integer;

procedure maxel(n:integer;x:vec;var max,imax:integer);

procedure minel(n:integer;x:vec;var min,imin:integer);

Implementation

Procedure maxel;

var i:integer;

begin max:=x[0]; imax:=0;

for i:=0 to n-1 do

if x[i]>max then begin max:=x[i];imax:=i end

End;

Procedure minel;

var i:integer;

begin min:=x[0]; imin:=0;

for i:=0 to n-1 do

if x[i]<min then begin min:=x[i];imin:=i end

End;

End.

Сценарий работы программы:

1. Запустить программу (Run);

2. В поле Edit1 ввести значение m;

3. В поле Edit2 ввести значение n;

4. В поле Edit3 ввести построчно элементов матрицы, разделитель элементов пробел;

5. Нажать кнопку “ Ввод ”;

6. Нажать кнопку “ Вывод ”;

7. Нажать кнопку “ Расчет ”;

8. Просмотреть и проанализировать результаты;

9. Для завершения обработки матрицы нажмите “ Выход ”;

Результат обработки матрицы ():

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