Проверьте

[ReM]

Господа нужна помощь...

Вот ее решение одной задачки.

unit laba1;

interface

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

type
  TForm1 = class(TForm)
    Edit1: TEdit;
    Edit2: TEdit;
    Edit3: TEdit;
    LabelX: TLabel;
    LabelY: TLabel;
    LabelZ: TLabel;
    Memo1: TMemo;
    Rez: TButton;
    procedure FormCreate(Sender: TObject);
    procedure RezClick(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  Form1: TForm1;

implementation

{$R *.dfm}

procedure TForm1.FormCreate(Sender: TObject);
begin
Edit1.Text:='2,444';
Edit2.Text:='0,00869';
Edit3.Text:='-130';
Memo1.Clear;

end;

procedure TForm1.RezClick(Sender: TObject);

var
x,y,z,a,b,c,h : extended;
begin
 x:=StrToFloat(Edit1.Text);
 y:=StrToFloat(Edit2.Text);
 z:=StrToFloat(Edit3.Text);
Memo1.Lines.Add(' X = '+Edit1.Text);
Memo1.Lines.Add(' Y = '+Edit2.Text);
Memo1.Lines.Add(' Z = '+Edit3.Text);
 a:=((power(x,y+1)+exp(y-1))/(1+x*(y-sin(z)/cos(z))))*(1-abs(y-x));
 b:=sqr(abs(y-x))/2;
 c:=(abs(y-x)*abs(y-x)*abs(y-x))/3;
 h:=a+b-c;
Memo1.Lines.Add(' Результат H = '+FloatToStrF(h,fffixed,8,3));

end;
end.

Есть подозрение, что где то я допустил просчет.

Вот условие:

[Stilet]

a:=((power(x,y+1)+exp(y-1))/(1+x*abs(y-sin(z)/cos(z))))*(1-abs(y-x));
b:=sqr(abs(y-x))/2;
c:=power(abs(y-x),3)/3;

Вроде не напутал )