Метод быстрого последовательного поиска - 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.

Объяснение кода листинга программы

  1. Объявляются константа n равная 10 и переменные a, i и x типа integer.
  2. Заполняется массив a случайными числами от 10 до 100 с шагом 10.
  3. Выводится заполненный массив a.
  4. Пользователю предлагается ввести число для поиска.
  5. Введенное число сохраняется в переменной x.
  6. Массив a дополняется введенным числом, размещая его в позиции n+1.
  7. Инициализируется переменная i равная 1.
  8. В цикле while происходит сравнение числа x с каждым элементом массива a начиная с позиции i.
  9. Если число x равно текущему элементу массива a, то цикл завершается и выводится сообщение о нахождении числа с указанием его индекса.
  10. Если цикл while завершается без прерывания, то число x не найдено и выводится соответствующее сообщение.

Оцени полезность:

12   голосов , оценка 3.917 из 5
Похожие ответы