поиск бинарным способом

[shalgan]

доброго времени суток, помогите пожалуйста разобраться с программой,найти свои ошибки,программа работает,но работает не правильно

procedure TForm1.Button1Click(Sender: TObject);
var
mas:array[1..100] of integer;
n:integer;
i:integer;
s:integer;//середина
l:integer;//верхняя
r:integer;//нижняя
k:integer;// эл поиска
found:boolean;
p:integer;
begin
n:=memo1.lines.count;
for i:=1 to n do
mas[i]:=strtoint(memo1.Lines[i-1]);
k:=strtoint(edit1.Text);
l:=1;r:=n;
found:=false;
while (l<=r) and (not found) do begin
s:=(l+r) div 2;
if k=mas[s] then found:=true
else
if k<mas[s] then l:=s+1 else r:=s-1;
end;
if found then label1.caption:='mesto vstavki elementa p'+inttostr(s) else
label1.caption:='mesto vstavki elementa p'+inttostr(r);end;
end.

Безымянный.jpg

на некоторые числа,программа работает правильно
вот задание "Пусть первые (n-1) элемент массива х упорядочены по неубыванию,
а n-я позиция в этом массиве свободна. Требуется вставить новый элемент р в этот массив с сохранением упорядоченности по неубыванию. Для поиска места вставки для элемента р использовать бинарный поиск.
"

[Poma][a]

var
    n, i, p, l, r, s : Integer;
    a : array [1..100] of Integer;

begin
    ReadLn(n);
    for i := 1 to n do
        Read(a[i]);

    ReadLn(p);

    l := 1; r := n;
    while l < r do begin
        s := (l+r) div 2;
        if a[s] < p then
            l := s+1
        else
            r := s
    end;

    Move(a[l], a[l+1], (n-l+1)*SizeOf(Integer));
    a[l] := p;

    for i := 1 to n+1 do
        Write(a[i], ' ')
end.

[shalgan]

Сообщение от Poma][a

var
    n, i, p, l, r, s : Integer;
    a : array [1..100] of Integer;

begin
    ReadLn(n);
    for i := 1 to n do
        Read(a[i]);

    ReadLn(p);

    l := 1; r := n;
    while l < r do begin
        s := (l+r) div 2;
        if a[s] < p then
            l := s+1
        else
            r := s
    end;

    Move(a[l], a[l+1], (n-l+1)*SizeOf(Integer));
    a[l] := p;

    for i := 1 to n+1 do
        Write(a[i], ' ')
end.

спасибо,логику понял. Не могли бы рассказать о move и sizeof ,пока что их не брали

[Poma][a]

Хорошо..
Move(a, b, c) берет C байт начиная с a, и переставляет их в b.
SizeOf я использовал для того, чтобы сделать код, который будет корректно работать на каком угодно компиляторе, т.к. Integer в Turbo занимает 2 байт, в Фри(если включен режим совместимости с Делфи, в Делфи, и в ужасно ABC 4 байта.
А так.. Вместо Move Вы можете использовать простой цикл, сдвигающий элементы..

(Чуть более подробно и правильно про Move и SizeOf : тыц и тыц

[shalgan]

Сообщение от Poma][a

var
    n, i, p, l, r, s : Integer;
    a : array [1..100] of Integer;

begin
    ReadLn(n);
    for i := 1 to n do
        Read(a[i]);

    ReadLn(p);

    l := 1; r := n;
    while l < r do begin
        s := (l+r) div 2;
        if a[s] < p then
            l := s+1
        else
            r := s
    end;

    Move(a[l], a[l+1], (n-l+1)*SizeOf(Integer));
    a[l] := p;

    for i := 1 to n+1 do
        Write(a[i], ' ')
end.

программа работает также криво =( Безымянный.jpg

[shalgan]

Сообщение от Poma][a

Хорошо..
Move(a, b, c) берет C байт начиная с a, и переставляет их в b.
SizeOf я использовал для того, чтобы сделать код, который будет корректно работать на каком угодно компиляторе, т.к. Integer в Turbo занимает 2 байт, в Фри(если включен режим совместимости с Делфи, в Делфи, и в ужасно ABC 4 байта.
А так.. Вместо Move Вы можете использовать простой цикл, сдвигающий элементы..

(Чуть более подробно и правильно про Move и SizeOf : тыц и тыц

спасибо огромное)

[Poma][a]

У меня всё работает тыц

[shalgan]

Сообщение от Poma][a

У меня всё работает тыц

большое спасибо,подправил немного и у меня тоже все заработало
Безымянный.jpg