Для поиска  заданного элемента в массиве   поступим методом простого перебора. Программа будет перебирать все элементы массива, пока не встретит искомый элемент, или пока не дойдёт до конца массива.

Элемент, совпадение с которым нам надо найти будем хранить в текстовом поле Edit2. Обработчик события OnClick нашей кнопки для поиска  заданного элемента в массиве   будет иметь такой вид:

 поиск заданного элемента в массиве

Для поиска  заданного элемента в массиве   поступим методом простого перебора. Программа будет перебирать все элементы массива, пока не встретит искомый элемент, или пока не дойдёт до конца массива.

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

Элемент, совпадение с которым нам надо найти будем хранить в текстовом поле Edit2. Обработчик события OnClick нашей кнопки для поиска  заданного элемента в массиве   будет иметь такой вид:

procedure TForm1.Button1Click(Sender: TObject);

var i:integer;

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

n:integer;//образец

found:boolean;

 

begin

//Введем массив в поле Edit1

for i:=1 to 10 do

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

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

 

 

n:=StrToInt(Edit2.text);

found:=false;

i:=1;

REPEAT

if a[i] = n then found:=true

 else i:=i+1;

UNTIL (i > 10) or (found = true);

if found then showmessage('Совпадение с элементом номер '+IntToStr(i));

end;

 

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

 

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

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


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