Как мы уже рассматривали ранее для того чтобы найти максимальный элемент массива нужно сначала массив ввести (см. статью ввод массива). Для этого создаём функцию с заголовком:

function GetSubStr(st:string; expl:string; n:integer):string;

Далее сама функция:

function TForm1.GetSubStr(st:string; expl:string ;n:integer):string;

 

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

         Как мы уже рассматривали ранее для того чтобы найти максимальный элемент массива нужно сначала массив ввести (см. статью ввод массива). Для этого создаём функцию с заголовком:

function GetSubStr(st:string; expl:string; n:integer):string;

Далее сама функция:

function TForm1.GetSubStr(st:string; expl:string ;n:integer):string;

Var p,i:integer;

Begin

 for i:= 1 to n-1 do

 begin

  p:=pos(expl,st);

  st:=copy(st,p+1,Length(st)-p);

  while (pos(expl,st)=1) and (length(st)>0) do

   delete(st,1,1);

 end;

p:=pos(expl,st);

if p<>0 then result:=copy(st,1,p-1)

else result:=st;

 

End;

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

Чтобы осуществить поиск  максимального элемента массива , для этого нужно изменить  всего  лишь одну строку:

if a[i] < a[min] then min:=i;

Надо заменить на:

 if a[i] > a[min] then min:=i;

Только теперь a[min] - максимальный элемент, а min - номер максимального элемента.

OnClick принимает теперь такой вид:

procedure TForm1.Button1Click(Sender: TObject);

var i:integer;//номер элемента, сравниваемого с минимальным

a:array[1..10] of integer;

min:integer;//номер минимального элемента

 

begin

//Введем массив(см. статью ввода массива)

for i:=1 to 10 do

//Преобразуем полученные подстроки в числа

 a[i]:=StrToInt(GetSubStr(Edit1.text,' ',i));//используем пробел в качестве разделителя

//Найдем максимальный  элемент массива

min:=1; //пусть номер максимального элемента = 1

for i:= 2 to 10 do // начнем искать со следующего

if a[i] > a[min] then min:=i;

Form1.caption:=IntToStr(a[min]); // выводим в заголовок

формы максимальный элемент массива

end;

 

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

 

  Скачать исходник «поиск максимальног элемента массива »:

Добавить комментарий


Защитный код
Обновить