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

Slavon-851 · 21.09.2014, 15:01

-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 · 22.09.2014, 22:10

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

Slavon-851 · 26.09.2014, 23:38

Цитата:

Сообщение от Gruvi

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

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

Gruvi · 05.10.2014, 21:41

Цитата:

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.

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

21.09.2014, 15:01	#1 (permalink)
Slavon-851 Новичок Регистрация: 19.09.2014 Сообщений: 3 Сказал(а) спасибо: 0 Поблагодарили 0 раз(а) в 0 сообщениях Репутация: 10	Помогите написать программу в турбоделфи -3.3E-4tan(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 заранее спасибо

22.09.2014, 22:10	#2 (permalink)
Gruvi VIP user Регистрация: 10.03.2011 Сообщений: 765 Записей в дневнике: 1 Сказал(а) спасибо: 10 Поблагодарили 0 раз(а) в 0 сообщениях Репутация: 3453	Эмм, что вы имеете введу под "запрограммировать? Сделать простую программу, при вводе значений X , что бы выводился ответ ?

Ads
Яндекс Member Регистрация: 31.10.2006 Сообщений: 40200 Записей в дневнике: 0 Сказал(а) спасибо: 0 Поблагодарили 0 раз(а) в 0 сообщениях Репутация: 55070