Лекция: 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)