GroupBox1 Caption Скорость

RadioButton1 Caption Медленно

RadioButton2 Caption Умеренно

RadioButton3 Caption Быстро

6.3. Записать код для процедуры TForm1. RadioButton3Click:

Timer1.Interval:= 1000;

Этот код реализует изменение свойства Interval объекта Timer1.

Самостоятельно записать код для процедур: TForm1.RadioButton1Click (3000) и TForm1.RadioButton2Click (2000)

6.4. Выполнить приложение и сохранить результаты.

Создание Windows-приложения для вычисления различных математических функций

Ввести значение x и вычислить значения следующих математических функций:

Abs(x) log10(x)

Ln(x) Sqr(x)

Power(x,k) Sqrt(x)

Sin(x) Exp(x)

Cos(x)

1. Поместить компоненты Label и Edit в окно формы Form1 и установить их свойства.

2. Записать код для обработки события OnClick на объекте Button1:

procedure TForm1.Button1Click(Sender: TObject);

Var x, y1, y2: real;

Begin

x:= StrToFloat(Edit1.Text);

y1:= cos(x);

y2:= ln(x);

Edit2.text:= FloatToStr(y1);

Edit3.text:= FloatToStr(y2);

End;

4. Добавить возможность вычисления остальных функций. Учесть, что для использования функций Log10 и Power необходимо в строке Uses добавить в перечень модуль Math.

Создание 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:='Число меньше искомого'

Else If n = m

Then s:='Вы угадали';

Label2.Caption:=s;

End;

Procedure tform1.formcreate(Sender: tobject);

Begin