Помогите пожалуйста!!!

[мишель]

Пожалуйста, помогите создать программу в паскале. Вычислить:
Y=10a/(x*ln|x^3|)-cos|x|; a=2
заранее спасибо!!!

[Sheka]

Если хотите полное решение - пишите 255507394 - помогу быстро и не дорого.
если хотите написать сами - спрашивайте конкретные вопросы что не получается.

[atavin-ta]

Код: Выделить всё

program prog1; {заголовок самой проги}
var x,y:real; {две дейсвительные переменные}
function f(x:real):real; {заголовок функции: имя f, один действительный параметр, действительное значение} 
begin
       f:=10*a/(x*ln(abs(x*x*x))-cos(abs(x)); {возвращаем результат abs - модуль числа}
end;
begin
       readln(x); {ввод икса}
       y:=f(x); {вызов функции, ей передаётся значение икса, она возвращает значение игрека}
       writeln('y(',x:10:4,')=',y:10:4); {вывод}
end.

[мишель]

atavin-ta, спасибо большое!