Помогите написать программу в турбоделфи

[Slavon-851]

Помогите написать программу в турбоделфи

-3.3E-4*tan(X)*(log10(sqr(X)-5)*Sqrt(Abs(tan(X)))/(exp(sqr(X)-5)*(1/3))*
X*(Exp(-2X))

эту формулу надо запрограмировать, и получить ответ при X=1 2.5 5 7 10 заранее спасибо

 

[Gruvi]

Эмм, что вы имеете введу под "запрограммировать?
Сделать простую программу, при вводе значений X , что бы выводился ответ ?

 

[Slavon-851]

Эмм, что вы имеете введу под "запрограммировать?
Сделать простую программу, при вводе значений X , что бы выводился ответ ?

да, надо так сделать.

 

[Gruvi]

unit Unit1;

interface

uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, StdCtrls,Math;

type
TForm1 = class(TForm)
Edit1: TEdit;
Edit2: TEdit;
Label1: TLabel;
Label2: TLabel;
Edit3: TEdit;
Label3: TLabel;
Edit4: TEdit;
Label4: TLabel;
Button1: TButton;
procedure Button1Click(Sender: TObject);
private
{ Private declarations }
public
{ Public declarations }
end;

var
Form1: TForm1;

implementation

{$R *.dfm}

procedure TForm1.Button1Click(Sender: TObject);
var x,f:real;
begin
x:=strtofloat(Trim(Edit1.Text));
f:=-3.3E-4*tan(x)*(log10(sqr(x)-5))*Sqrt(Abs(tan(x)))/(exp(sqr(x)-5)*(1/3))*
X*(Exp(-2*X));
Edit3.Text:=FloatToStr(f);
end;

end.

Ну вот как-то так. это элементарная задачка.