Алгоритм простого перебора

Ниже приведен текст программы поиска в массиве целых чисел. Перебор элементов массива осуществляется инструкцией repeat, в теле которой инструкция if сравнивает текущий элемент массива с образцом и присваивает переменной found значение true, если текущий элемент и образец равны.

Цикл завершается, если в массиве обнаружен элемент, равный образцу (в этом случае значение переменной found равно true), или если проверены все элементы массива. По завершении цикла по значению переменной found можно определить, успешен поиск или нет.

Вид диалогового окна программы Поиск в массиве приведен на рис. 5.9.

Рис. 5.9. Диалоговое окно программы Поиск в массиве

Щелчок на командной кнопке Поиск (Button1) запускает процедуру TForm1.Button1Click (ее текст приведен в листинге 5.7), которая из компонента stringGrid1 вводит массив, а из поля редактирования Edit2 — число (образец). Затем выполняется проверка, содержит ли массив введенное число. После завершения проверки процедура showMessage выводит сообщение о результате поиска.