Не верный алгоритм

[Enathris]

Всем привет , прошу вашей помощи , ибо уже не знаю что делать :/
Задали задание сделать пример на языке object pascal в среде delphi .
Написал код , сижу уже не знаю что делать , может подскажите . Почему решил что неправильно , дело в том что в примере фигурируют 3 переменные , x y z и для проверки своего кода дали значения этих переменных и ответ , в общем он не сходиться ... вот пример :

unit Unit1;

interface

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

type
  TForm1 = class(TForm)
    X: TLabel;
    Y: TLabel;
    Z: TLabel;
    Edit1: TEdit;
    Edit2: TEdit;
    Edit3: TEdit;
    Memo1: TMemo;
    Button1: TButton;
    BitBtn1: TBitBtn;
    procedure Button1Click(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  Form1: TForm1;

implementation

{$R *.dfm}

procedure TForm1.Button1Click(Sender: TObject);
var x,y,z,a,b,c,h,s:extended;
begin

x:=StrToFloat(Edit1.Text);
y:=StrToFloat(Edit2.Text);
z:=StrToFloat(Edit3.Text);
s:=x-Pi/6;
a:=(2*cos(s))/(0.5+(sqr(sin(y))));
b:=(1+(sqr(z)))/(3-(sqr(z))/5);
c:=a*b;
Memo1.Lines.Add('x='+Edit1.Text+
     '    y='+Edit2.Text+'    z='+Edit3.Text+
     '   Result = '+FloatToStrF(c,fffixed,9,4));

end;

end.

Значения :
x=14.26, y=-1.22, z=3.5´10-2 Result=0.564846.

[Stilet]

Вроде так должно быть:

b:=1+sqr(z)/(3-sqr(z)/5);

[Enathris]

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

Вроде так должно быть:

b:=1+sqr(z)/(3-sqr(z)/5);

а разве что-то изменится? вроде скобки ничего не меняют же
просто не могу проверить ибо забыл сохранить , сейчас быстренько сделаю все и скажу , только мне кажется что ничего не будет :\

[Stilet]

вроде скобки ничего не меняют же

Наоборот. Еще как меняют.

[Enathris]

помогло , а можешь пояснить почему? я думал скобки расставляют приоритеты , но видимо что то не так , расскажи пожалуйста

[p51x]

Вы не видите разницы между (1 + дробь) и дробью с числителем (1 + ...)?

[SNUPY]

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

помогло , а можешь пояснить почему? я думал скобки расставляют приоритеты , но видимо что то не так , расскажи пожалуйста

может так будет более понятнее:

(
	1+(
		sqr(
			z
		)
	)
)
/(
	3-(
		sqr(
			z
		)
	)
	/5
)

или вот так
(1+(sqr(z)))/(3-(sqr(z))/5)

[Enathris]

Еще такой же вопрос по поводу другого примера , пример :
Условие x=2.444, y=0.869´10-2, z=-0.13´103, Result=-0.49871.

unit Unit1;

interface

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

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

var
  Form1: TForm1;

implementation

{$R *.dfm}

procedure TForm1.Button1Click(Sender: TObject);
var x,y,z,a,b,s,h,c,d,f,j:extended;
begin
x:=StrToFloat(Edit1.Text);
y:=StrToFloat(Edit2.Text);
z:=StrToFloat(Edit3.Text);
a:=exp(ln(x)*y+1)+exp(ln(2.72)*y-1);
b:=1+x*abs(y-(sin(z)/cos(z)));
c:=1+abs(y-x);
d:=exp(ln(abs(y-x))*2)/2;
f:=exp(ln(abs(y-x))*3)/3;
h:=a/b*c+d-f;


Memo1.Lines.Add(FloatToStrF(h,fffixed,9,5));

end;

end.

в числителе левой дроби есть буква "е" . её значение гуглил , ибо так его не дано :\
Спасибо всем кто ответил по поводу 1 вопроса . И заранее спасибо по поводу этого !

[BDA]

ln(e) = 1
http://bpascal.ru/download/desc/436.php

Однако, необходимо учитывать частные случаи когда основание или степень отрицательные числа, либо когда один из них является нулем. Также необходимо учесть тот факт, что при возведении отрицательного числа в четную степень, результат становится положительным

Кроме того:
a:=exp(ln(x)*(y+1))+exp(y-1);(нужны скобки в первом слагаемом)
Проверка косинуса на неравенство нулю.
Проверка b на неравенство нулю.
d:=sqr(abs(y-x))/2;(возможно, быстрее)
f:=abs(y-x);f:=f*f*f/3;(возможно, быстрее)

[Enathris]

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

a:=exp(ln(x)*(y+1))+exp(y-1);(нужны скобки в первом слагаемом)

помогло . огромное спасибо