Упражнение 9

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

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

Cos(x) Ln(x) Power(x,k) Sqr(x) Sqrt(x) Sin(x) Log10(x) Exp(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.