Программа загадывает случайное число в интервале от 0 до 100. Если введенное пользователем число совпадает с загаданным, то проигрывается файл Cool.avi, в метку выводится «Угадал!!!» и количество попыток, использованных игроком.
В противном случае число выводится в мемо поле с сообщением о результате сравнения: «больше» или «меньше» загаданного.
Организуйте главное меню игры: Игра/(Новая, Выход) и О программе.
Игра/Новая
procedure TMainForm.N2Click(Sender: TObject);
Begin
Memo.Visible:=True;
Animate.Visible:=False;
Randomize;
a:=Random(100);
Memo.Clear;
end;
procedure TMainForm.BitBtn1Click(Sender: TObject);
Begin
//Если нет входного текста, выводим
//на экран сообщение.
If Length(Trim(MaskEdit1.Text))=0 then
ShowMessage('Вы забыли ввести число!') else
//Сравниваем загаданное компьютером число с введенным с клавиатуры
Ifa=StrToInt(Trim(MaskEdit1.Text)) then
Begin
Label1.Caption:='Угадал за'+inttostr(memo.lines.count+1)+ ‘попыток!’ ;
Label1.Visible:=True;
Animate.Visible:=True;
Animate.Active:=True;
End
else
If a<StrToInt(Trim(MaskEdit1.Text)) then
Memo.Lines.Add(Trim(MaskEdit1.Text) + ' больше загаданного!')
else Memo.Lines.Add(Trim(MaskEdit1.Text)+меньше загаданного!');
MaskEdit1.Clear;
MaskEdit1.SetFocus;
end;
Самостоятельно опишите пункты меню «Выход», «О программе…».
