Создание 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.