Страница 1 из 1

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

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

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

Добавлено: 16 окт 2009, 20:37
Sheka
Если хотите полное решение - пишите 255507394 - помогу быстро и не дорого.
если хотите написать сами - спрашивайте конкретные вопросы что не получается.

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

Добавлено: 20 окт 2009, 07:55
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.

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

Добавлено: 22 окт 2009, 14:22
мишель
atavin-ta, спасибо большое!