Программирование типовых алгоритмов

[Any13]

Помогите написать программу в Delphi7. Вот условие Функция.JPG

[ОДИНОЧЕСТВО В СЕТИ]

Помогите написать программу в Delphi7

наработки, попытки есть?

[Any13]

unit Unit1;

interface

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

type
TForm1 = class(TForm)
LabeledEdit1: TLabeledEdit;
Button1: TButton;
Button2: TButton;
BitBtn1: TBitBtn;
LabeledEdit2: TLabeledEdit;
LabeledEdit3: TLabeledEdit;
Memo1: TMemo;
procedure Button1Click(Sender: TObject);
procedure Button2Click(Sender: TObject);
private
{ Private declarations }
public
{ Public declarations }
end;

const t=1e-12;
var x,xn,xk,dx,y:real;
Form1: TForm1;
implementation

{$R *.dfm}

procedure TForm1.Button1Click(Sender: TObject);
begin
xn:=strToFloat(LabeledEdit1.Text);
xk:=strToFloat(LabeledEdit2.Text);
dx:=strToFloat(LabeledEdit3.Text);
x:=xn;
while x<=xk+dx/4 do
begin
Memo1.Lines.Add('x='+FormatFloat('0 .00',x)+' y='+FormatFloat('0.0000',y));
x:=x+dx;
if x<t then
begin
if abs(x)>t then y:=1/x/abs(x)*Power(abs(x),1/3)
else Memo1.Lines.Add('x='+FormatFloat('0 .00',x)+' '+('y ne sushestvuet (znamenatel=0)'));
end
else
if x<=2 then
begin
y:=3*Power(x,3)+2*cos(x);
end
else
y:=exp(2*x)+x;
end;
x:=x+dx;
end;

procedure TForm1.Button2Click(Sender: TObject);
begin
LabeledEdit1.Clear;
end;
end.

Вот пробовала делать. Запускается программа, но ресчет делать не хочет.

[ОДИНОЧЕСТВО В СЕТИ]

вот так попробуйте

function f(x:real):real;
begin
 if x<0 then f:=-1/exp(1/3*ln(abs(x)))
   else if x<=2 then f:=3*x*x*x+2*cos(x)
       else f:=exp(2*x)+x;
 end;
procedure TForm1.Button1Click(Sender: TObject);
var
xn,xk:double;
dx:double;
begin
 xn:=strtofloat(Edit1.text);
 xk:=strtofloat(Edit2.text);
 dx:=strtofloat(Edit3.text);
while xn<xk do begin
memo1.Lines.Add('x='+FormatFloat('0 .00',xn)+' y='+FormatFloat('0.0000',f(xn)));
 xn:=xn+dx;
 end;
end;

[Any13]

Всё запустилось, а вот расчет вести не хочет.

[ОДИНОЧЕСТВО В СЕТИ]

вот откомпильте и запустите

[Any13]

Всё получилось)) Спасибо Вам большое)