Помогите решить

[макс122]

Помогите решить

Задание 2. Вычислить, вводя соответствующую функцию в разделе Function: y=arccos(x)-arccos(2x)+arccos3x)

 

[макс122]

Помогите решить

Задание 12. Построить таблицу функции «y» на отрезке [a;b] с шагом “h”, вводя соответствующую функцию в разделе Function. Найти максимальное/минимальное значения “y” и соответствующие им значения аргумента. Величину шага h взять равной 0,1, если|x|<1 и 0,2 для других значений x y=tgx-ctg(x+3) a=-2,0 b=2,0 .

 

[Léon1]

Ещё? А сам что сделал?

 

[макс122]

а я не понимаю в больнице лежал много пропустил..

 

[Vladimir_S]

а я не понимаю в больнице лежал много пропустил..

Так. Последнее предупреждение. Дальше подобные запросы БЕЗ УКАЗАНИЯ ЯЗЫКА ПРОГРАММИРОВАНИЯ буду просто удалять.
Надоело!

 

[макс122]

язык паскаль...

 

[Léon1]

Посмотрите тему http://www.tehnari.ru/f41/t45851/, там есть подобная задача.

 

[макс122]

блин смотрел вобще не понимаю

 

[Léon1]

блин смотрел вобще не понимаю

А вы не 30 сек. смотрите...
P.s. Короче я в ауте...

 

[Артём]

блин смотрел вобще не понимаю

А как вы, в таком случае, вообще собираетесь продолжать учебу? 5 курсов за вас всем форумом люди будут задачи решать?

 

[макс122]

да нет я просто понять не могу пока

 

[Wol]

у меня не получилось

 

[Léon1]

Ну подумай... Когда вопросы по задаче появятся тогда и напиши.

у меня не получилось

Что именно не получилось?

 

[макс122]

var
x,y:real;
function arccos(x:real):real;
begin
arccos:=arctan(sqrt(1-sqr(x))/x);
end;
function func(x:real):real;
var y:real;
begin
y:=arccos(x)-arccos(x*x)+arccos(x*x*x)
func:=y;
end;
begin
write ('x=');
read(x);
func(x);
write ('y=',y);
readln
end.

 

[макс122]

я так сделал правильно?

 

[макс122]

у меня не получилось не понял

 

[Léon1]

Задание 2. Вычислить, вводя соответствующую функцию в разделе Function: y=arccos(x)-arccos(2x)+arccos3x)

var
x,y: Real;
function ArcCos(x: Real): Real;
Begin
    IF ROUND(x*10000)=10000 THEN ArcCos:=0 ELSE
    IF ROUND(x*10000)=-10000 THEN ArcCos:=Pi ELSE
    ArcCos:=(Pi/2)-ArcTan(x/SQRT(1-x*x));
End;
function func(x: Real): Real;
var y: Real;
begin
y:=ArcCos(x)-ArcCos(2*x)+ArcCos(3*x);
func:=y;
end;
begin
write ('x=');
read(x);
func(x);
write ('y=',y);
readln
end.

 

[макс122]

помогите последняя осталась...

 

[макс122]

Задание 12. Построить таблицу функции «y» на отрезке [a;b] с шагом “h”, вводя соответствующую функцию в разделе Function. Найти максимальное/минимальное значения “y” и соответствующие им значения аргумента. Величину шага h взять равной 0,1, если|x|<1 и 0,2 для других значений x y=tgx-ctg(x+3) a=-2,0 b=2,0 .

 

[Vladimir_S]

Одна поправка: вместо

func(x);

должно быть

y:=func(x);

всё-таки это функция, а не процедура.