Jump search


read_first_record; while key > r.k do Jump_records; while key < r.k do read_previous_record; if key=r.k then found( r ) else notfound( key );

Pascal source (315.search.p)


© Addison-Wesley Publishing Co. Inc.