Упражнение 10

Создание Windows-приложения для вычисления случайного числа и сравнения его с числом, введенным пользователем. По результатам сравнения выдается сообщения: "Вы угадали", "Число меньше искомого", "Число больше искомого", "Число вне диапазона"

Код:

var

Form1: TForm1; m: integer; {Случайное число}

. ..

procedure TForm1.Button1Click(Sender: TObject);

Var n: integer; s: string;

begin

n:= StrToInt(Edit1.Text);

If (n < 0) Or (n > 10) Then s:= 'Число вне диапазона'

Else if n > m Then s:= 'Число больше искомого'

Else If n < m Then s:= 'Число меньше искомогоl'

Else If n = m Then s:= 'Вы угадали';

Label2.Caption:= s;

end;

procedure TForm1.FormCreate(Sender: TObject);

begin

Randomize; m:= Random (10);

end;