Приложение "Угадай число"

[FlayGlam]

Разработайте игровое приложение «Угадай число». Смысл игры такой. Компьютер «задумывает» случайное число в диапазоне [1..1000]. Игрок вводит число и нажимает кнопку «Проверить». В ответ появляется одно из сообщений «МАЛО», «МНОГО» или «УГАДАЛ за столько-то ходов» (после этого сообщения игра заканчивается, после двух первых окно ввода очищается, чтобы игрок снова ввел число). Если число не угадывается за 12 ходов, надо посоветовать игроку тренировать логику и закончить игру.

[Аватар]

Покажите свои наработки, конкретные вопросы и т.п.

Или в раздел Фриланс если вы не хотите ничего делать, а ищете кого-то, кто выполнит ваши задачи за вознаграждение.

[newerow1989]

var
  Form1: TForm1;
  a,b,k:integer;

implementation

{$R *.dfm}

procedure TForm1.FormCreate(Sender: TObject);
begin
   Randomize;
   Button2.Visible:=false;
end;

procedure TForm1.Button1Click(Sender: TObject);
begin
   a:=1+Random(1000);
   k:=0;
   Label1.Caption:='ЧИСЛО ЗАГАДАНО!';
   Button2.Visible:=true;
   Button2.Default:=true;
end;

procedure TForm1.Button2Click(Sender: TObject);
begin
   b:=StrToInt(Edit1.Text);
   k:=k+1;
   If a<b then
      Label1.Caption:='МНОГО';
   If a>b then
      Label1.Caption:='МАЛО';
   If a=b then
      Label1.Caption:='УГАДАЛ ЗА '+IntToStr(k)+' ХОДОВ!!! :)';
   If k>=12 then
   begin
      Label1.Caption:='ТРЕНИРУЙ ЛОГИКУ!!! :(';
      Button2.Visible:=false;
   end;
end;