Метод бинарного поиска

[Ксения Юрьевна]

Здравствуйте,Нужна помощь в написание программы Бинарного поиска в массиве Помогите пожалуйста

[Niro]

Вот держите, взял из одной своей прожки, ищется первое вхождение нужного элемента.
Массив называется mas, нумерация от 0 до n-1.
Результат заностится в переменную average, вернее туда заносится индекс элемента массива,
Ну дальше думаю сами сообразите

procedure TForm1.Start_findClick(Sender: TObject);
var
    first, last, average: word;
    word: string;
    flag, found: boolean;
begin
    word:= enter_word.Text;
    flag:= false;
    first:= 0;
    last:= n - 1;

    while flag <> true do
      begin
        average:= trunc ( (last - first)*0.5 + first);

        if last - first = 0 then
          begin
            flag:= true;
            if word = mas [average]
              then found:= true;
          end;

        if word > mas[average] then first:= average + 1;
        if word <= mas [average] then last:= average;
      end;

  if found = true then edit2.Text:= inttostr (average)
                    else edit2.Text:= 'Not found';
end;

[Stilet]

Ыть: http://ru.wikipedia.org/wiki/%D0%91%...B8%D1%81%D0%BA

[Ксения Юрьевна]

спасибо,попробую разобраться)

[Ксения Юрьевна]

Вот что-то накидала с помощью интернета Но при запуске вылетает вот такая ошибка. (project1.exe raised exception class EConvertError with message ""is not a valid integer value')
Вот код

unit Unit1;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs,StdCtrls, Grids;

type
  TForm1 = class(TForm)
    strngrd1: TStringGrid;
    edt1: TEdit;
    btn1: TButton;
    chk1: TCheckBox;
    lbl1: TLabel;
    lbl2: TLabel;
    lbl3: TLabel;
    procedure btn1Click(Sender: TObject);
    procedure StrnGrd1KeyPress(Sender: TObject; var Key: Char);

procedure Edt1KeyPress(Sender: TObject; var Key: Char);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  Form1: TForm1;

implementation

{$R *.dfm}
 {бинарный поиск в массиве}
procedure TForm1.btn1Click(Sender: TObject);
const
SIZE=10;
 var

a:array[1..SIZE] of integer;


obr:integer;

verh:integer; { ??????? ??????? ?????? } 

niz: integer; { ?????? ??????? ?????? } 

sred:integer;

found:boolean; { TRUE — ?????????? ??????? ? ????????? ??????? } 

n:integer;

i:integer;

begin
//ввод массива


for i:=1 to SIZE do

a[i]:=StrToInt(StrnGrd1.Cells[i-1,0] ) ;

obr:= StrToInt(Edt1.text);

// ????? verh:=1;

niz:=SIZE; n:=0;

found:=FALSE; lbl3.caption:='';

if Chk1.State = cbChecked

then lbl3.caption:='verh'+#9+'niz'#9'sred'#13;

  repeat

sred:=Trunc ( (niz-verh) /2)+verh; if Chk1.Checked

then Lbl3.caption:=lbl3.caption +IntToStr(verh) + #9

+IntToStr(niz) + #9 +IntToStr(sred) + #13; n:=n+1;

if a[sred] = obr then found:=TRUE else

if obr < a[sred]

then niz:=sred-1 else verh:=sred+1;

 until (verh > niz) or found;

if found

then lbl3.caption:=lbl3.caption

+'Совпадение с элементом номер '

+ IntToStr(sred)+#13 + 'Сравнений '

+ IntToStr(n)

else lbl3.caption:=lbl3.caption

+'Образец в массиве не найден.1';

end;

// ??????? ??????? ? ?????? StringGrid 

procedure TForm1.StrnGrd1KeyPress(Sender: TObject; var Key: Char);

begin

if Key = #13 then // ?????? ??????? <Enter> 

if StrnGrd1.Col < StrnGrd1.ColCount - 1

then // ?????? ? ????????? ?????? ???????

StrnGrd1.Col := StrnGrd1.Col +1

else // ?????? ? ???? Editl, ? ???? ????? ???????

Edt1.SetFocus;

end;

// ??????? ??????? ? ???? Editl

procedure TForm1.Edt1KeyPress(Sender: TObject; var Key: Char);

begin

if Key = #13 // ?????? ??????? <Enter> 

then // ??????? ???????? ????????? ?????? 

Btn1.SetFocus;

end;

end.

Что я не так сделала?

[Stilet]

На какой строке?

[Ксения Юрьевна]

Ну она уже запускается,а когда вводишь что-либо в edt1 и нажимаешь на кнопку вылетает вот такая ошибка

[Stilet]

StrToInt замени на StrToIntDEF(что там у тебя, 0) тогда если не удастся преобразовывать строки в числа выдаст 0

[Ксения Юрьевна]

это в a[i]:=StrToInt(StrnGrd1.Cells[i-1,0] ) ; заменять?
заменили,пишет [Error] Unit2.pas(63): Not enough actual parameters
Вот сейчас ещё одну увидела [Warning] Unit2.pas(79): Variable 'verh' might not have been initialized

[Ксения Юрьевна]

во всём разобралась) Аж самой стыдно за такие ошибки^^всем спасибо