Алгоритмические языки и программирование. Игошина Л.В. - 87 стр.

UptoLike

ВУЗ: 

ПГУ | Пенза

Составители: 

Рубрика: 

write(' Введите элементы массива Х ');
for i:=1 to n do read(X[i]);
writeln;
write(' Введите искомое число');
readln(isk);
First:=1; Last:=n;
while First <= Last do begin
adr:=(First+Last) div 2;
if isk=X[adr] then
begin writeln('Yes! isk = ',isk,' adr = ',adr);
exit
end
else if isk<X[adr] then Last:=adr-1
else First:=adr+1;
end;
writeln(' Not found');
end.
Лабораторная работа №11
Цель работы:
3. Изучить алгоритмы поиска.
4. Приобрести навыки программирования задач поиска данных различных
типов.
Типовое задание
Разработать схему алгоритма и программу решения задачи поиска в
массиве записей по заданным полям, с использованием алгоритмов линейного
и двоичного поиска.
Варианты самостоятельных заданий
В а р и а н т 1
Дан список
, содержащий 10 записей, каждая из которых имеет структуру:
Шифр книги Ф.И.О. авторов Название Год
тип строка тип строка тип строка издания
5 символов 20 символов 15 символов целое
Список упорядочен по возрастанию года издания.
Разработать алгоритмы и программы линейного и двоичного поиска всех
книг, изданных до 1960 год с выводом найденных записей
на экран. 
           write(' Введите элементы массива Х ');
          for i:=1 to n do read(X[i]);
          writeln;
          write(' Введите искомое число');
          readln(isk);
          First:=1; Last:=n;
          while First <= Last do begin
            adr:=(First+Last) div 2;
            if isk=X[adr] then
                  begin writeln('Yes! isk = ',isk,' adr = ',adr);
                       exit
                  end
            else if isk

Страницы