Для поиска заданного элемента в массиве поступим методом простого перебора. Программа будет перебирать все элементы массива, пока не встретит искомый элемент, или пока не дойдёт до конца массива.
Элемент, совпадение с которым нам надо найти будем хранить в текстовом поле 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;
Скачать исходник «Поиск заданного элемента в массиве »:
 |
 |
