Pascal
Napisz programy realizujący sortowanie wyszukiwania połówkowego (binary search).
Rozwiązanie załącz w postaci kodu źródłowego programu.
Napisz programy realizujący sortowanie wyszukiwania połówkowego (binary search).
Rozwiązanie załącz w postaci kodu źródłowego programu.
Odpowiedź:
Program w języku Pascal:
program BinarySearch;
var
ArrayOfNumbers : array[1..100] of Integer;
SearchNumber : Integer;
Low, High, Mid : Integer;
begin
// wypełnienie tablicy liczbami
for i := 1 to 100 do
ArrayOfNumbers[i] := i;
// wprowadzenie liczby do wyszukania
Write('Podaj liczbę do wyszukania: ');
Readln(SearchNumber);
// ustawienie wartości początkowych
Low := 1;
High := 100;
// wyszukiwanie połówkowe
while Low <= High do
begin
Mid := (Low + High) div 2;
if ArrayOfNumbers[Mid] = SearchNumber then
begin
Writeln('Liczba ', SearchNumber, ' znajduje się na pozycji ', Mid);
Break;
end
else
if ArrayOfNumbers[Mid] > SearchNumber then
High := Mid - 1
else
Low := Mid + 1;
end;
end.
Wyjaśnienie: