Метод быстрого последовательного поиска - Pascal
Формулировка задачи:
Написать алгоритм поиска данных из файла согласному указанному
методу (метод быстрого последовательного поиска)
Решение задачи: «Метод быстрого последовательного поиска»
textual
Листинг программы
const n=10; var a:array[1..n+1] of integer; i,x:integer; begin randomize; for i:=1 to n do begin a[i]:=10+random(90); write(a[i]:3); end; writeln; write('Введите число для поиска x='); readln(x); a[n+1]:=x; i:=1; while a[i]<>x do inc(i); if i<=n then write('Число найдено, его индекс=',i) else write('Число не найдено') end.
Объяснение кода листинга программы
- Объявляются константа
n
равная 10 и переменныеa
,i
иx
типа integer. - Заполняется массив
a
случайными числами от 10 до 100 с шагом 10. - Выводится заполненный массив
a
. - Пользователю предлагается ввести число для поиска.
- Введенное число сохраняется в переменной
x
. - Массив
a
дополняется введенным числом, размещая его в позицииn+1
. - Инициализируется переменная
i
равная 1. - В цикле while происходит сравнение числа
x
с каждым элементом массиваa
начиная с позицииi
. - Если число
x
равно текущему элементу массиваa
, то цикл завершается и выводится сообщение о нахождении числа с указанием его индекса. - Если цикл while завершается без прерывания, то число
x
не найдено и выводится соответствующее сообщение.