Помогите пожалуйста!!!
Добавлено: 16 окт 2009, 18:10
Пожалуйста, помогите создать программу в паскале. Вычислить:
Y=10a/(x*ln|x^3|)-cos|x|; a=2
заранее спасибо!!!
Y=10a/(x*ln|x^3|)-cos|x|; a=2
заранее спасибо!!!
Код: Выделить всё
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.