Не могу решить эту задачку:

[Driver_09]

Всё не могу решить её, а хотя это всего первая домашняя работа=)

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

попытки?наработки?

[Driver_09]

ОДИНОЧЕСТВО В СЕТИ, не совсем понял вопросы, но затруднения в том, как поставить корень третей степени.
Это, по идее, степень 1/3, но всё равно никак сообразить не могу

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

x^y=exp(ln(x)*y) то есть в твоем случае

y:=exp(ln(exp(x)+sin(x)/cos(x))*1/3)+1/x

[Driver_09]

ОДИНОЧЕСТВО В СЕТИ,

program Project2;

{$APPTYPE CONSOLE}

uses
SysUtils;
const
x=-3.449;
var y: real;
begin
writeln(x); readln;
write(y); readln(y);
y:=exp(ln(exp(x)+sin(x)/cos(x))*1/3)+1/x;

end.

Delphi всё же неправильно считает, конечно, у меня есть ошибка, но я не знаю какая.

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

uses
SysUtils;
const
x=-3.449;
var y: real;
begin
y:=exp(ln(exp(x)+sin(x)/cos(x))*1/3)+1/x;
write(y);
readln; 
end.

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

[Driver_09]

ОДИНОЧЕСТВО В СЕТИ, щас будет совсем детский вопрос: у меня окно открытым не держит, хотя оператор стоит.

[Stilet]

хотя оператор стоит.

Еще один поставь )