Линейная программа на Delphi.

[Vyacheslav.]

Помогите разобраться с концовкой выражения: е в степени модуля.. как это написать на Delphi?

program Project2;

{$APPTYPE CONSOLE}

uses
  SysUtils;

var x, y, e, rez: real;

begin
x:=16.8;
y:=9.6;
e:=2.71;
rez:=(SQR(sin(x))-SQR(cos(x))/sin((x+y)/2))-e;
writeln('rez = ',rez:4:4);
readln(rez);
end.

______________________
Используйте тег [CODE] (кнопка с решеткой # в форме сообщения) при вставке кода на форум.

[Alex11223]

pow, abs

[Vyacheslav.]

rez:=(SQR(sin(x))-SQR(cos(x))/sin((x+y)/2))-pow(e,abc(cos(x)+sin(x)));

[Vyacheslav.]

rez:=((SQR(sin(x))-SQR(cos(x)))/(sin((x+y)/2)))-(power(e,abs(cos(x)+sin(x))));

[Аватар]

Скобки лишние что бы читать тяжелей было?

[Vyacheslav.]

Для надежности, чтобы точно работало, 100% правильно считало.

[Аватар]

Понятно. Добавь еще пару десятков скобок, тогда и на выключенном компе сработает, гарантированно ))

[p51x]

А разве Exp перестала работать?

[Vyacheslav.]

Что-то не так в программе? В интернете нашел что е = 2.71
Вроде все работает, или так неправильно?

program Project2;

{$APPTYPE CONSOLE}

uses
  SysUtils, Math;

var x, y, e, rez: real;

begin
x:=16.8;
y:=9.6;
e:=2.71;
rez:=((SQR(sin(x))-SQR(cos(x)))/(sin((x+y)/2)))-(power(e,abs(cos(x)+sin(x))));
writeln('rez = ',rez:4:4);
readln(rez);
end.

[Аватар]

exp подсказывают, и аргументы в радианах в косинусах и синусах если что