Программа Угадыватель. Имеются вопросы...

[oliviya1111]

надо чтобы компьютер угадывал цифру, которую загадал пользователь.(от 1 до 100). Но при начале программы. При нажатии он выдает 8(к примеру), нажимаешь больше - он выдает 83(к примеру), нажимаешь снова меньше а он может выдать 4( к примеру). как сделать так чтобы стал выдавать до того числа...помогите пожалуйста. есть еще мелкие вопросики, но только при решении этого...очень надо.

procedure TForm1.Button1Click(Sender: TObject);
begin
n:=StrToInt(Edit1.Text);
Edit1.Text:=IntToStr(Random(n)+1);
end;

procedure TForm1.Button2Click(Sender: TObject);
begin
n:=StrToInt(Edit1.Text);
if Edit1.Text=IntToStr(100)
then Edit1.Text:=IntToStr(100)
else Edit1.Text:= IntToStr(random(99-n)+n+1);
end;

procedure TForm1.Button3Click(Sender: TObject);
begin
n:=StrToInt(Edit1.Text);
if Edit1.Text=IntToStr(n)
then
begin
Label2.Visible:=True;
Label2.Caption:='Я угадал - вы загадали '+Edit1.Text;
Edit1.Text:=''
end
else Edit1.Text:=''
end;

procedure TForm1.Button4Click(Sender: TObject);
begin
Edit1.Text:=IntToStr(Random(99)+1);
Label2.Visible:=False;
end;
end.

___________
Код нужно оформлять по правилам:
тегом [CODE]..[/СODE] (это кнопочка с решёточкой #)
Не забывайте об этом!
Модератор.

[Mad_Cat]

читать про бинарный поиск

[Zer0]

ох.. как бы объяснить то...
нужно помнить как минимум два последних введенных числа (в переменные, в массив - как вам удобнее)
Затем:
1) Если сначала было больше, потом меньше, то генерировать число только из этого диапазона ( Random(a2-a1)+a1 )
2) Если сначала было больше, и потом больше, то число из диапазона a2..100 ( Random (100-a2)+a2 )
3) Если оба меньше, то из диапазона 1..a1 ( Random(a1)+1 )
4) Случай сначала меньше, потом больше аналогичен первому, только надо поменять a1 и a2

[oliviya1111]

Сообщение от Zer0

ох.. как бы объяснить то...
нужно помнить как минимум два последних введенных числа (в переменные, в массив - как вам удобнее)
Затем:
1) Если сначала было больше, потом меньше, то генерировать число только из этого диапазона ( Random(a2-a1)+a1 )
2) Если сначала было больше, и потом больше, то число из диапазона a2..100 ( Random (100-a2)+a2 )
3) Если оба меньше, то из диапазона 1..a1 ( Random(a1)+1 )
4) Случай сначала меньше, потом больше аналогичен первому, только надо поменять a1 и a2

я не понимаю как это сделать. как задавать чтобы он помнил два последних числа? удобнее в переменные но все равно не понятно как...

[Zer0]

в процедуре где компьютер угадывает число:

{здесь компьютер предлагает число}
a1:=a2;
a2:={текущее угаданное число};

эти a1 и a2 и есть то, что нужно, не забудьте в начале программы присвоить им значения 1 и 100 соответственно

[oliviya1111]

Сообщение от Zer0

в процедуре где компьютер угадывает число:

{здесь компьютер предлагает число}
a1:=a2;
a2:={текущее угаданное число};

эти a1 и a2 и есть то, что нужно, не забудьте в начале программы присвоить им значения 1 и 100 соответственно

не будет оно так работать

[Zer0]

прошу пояснить - почему?

[oliviya1111]

Сообщение от Zer0

прошу пояснить - почему?

во-первых программа угадывать будет явно больше чем за два значения. а во вторых задавать так просто подействует только изначально а потом работать то не будет.

[oliviya1111]

Как сделать так чтобы писать в Edit сразу в середину? Как сделать чтобы Image изменялся вместе с формой? И как сделать чтобы Label был цвета формы(форма не одного цвета)?

[Zer0]

1) В edit нет расположения по центру, пользуйтесь или ручной отрисовкой, или сторонними компонентами
2) У любого объекта есть свойство Anchor, установите для Image их все в true и ее размер будет меняться вместе с формой
3) Возможно вам нужно свойство Transparent у Label

P.S. По поводу угадывания Вы просто не так понимаете принцип работы, угадывать может сколько угодно, но для отсеивания лишних предположений - достаточно двух последних