11.12.2012, 17:51
|
#11 (permalink) |
|
Member
Регистрация: 11.12.2012
Сообщений: 26
Сказал(а) спасибо: 0
Поблагодарили 0 раз(а) в 0 сообщениях
Репутация: 10
|
|
|
|
|
11.12.2012, 17:51
|
|
|
Helpmaster
Member
Регистрация: 08.03.2016
Сообщений: 0
|
Моя задача - облегчить вам поиск схожих постов Помогите решить Помогите решить С++ Помогите решить Помогите решить Помогите решить |
|
11.12.2012, 17:53
|
#13 (permalink) | |
|
С# - learn or die
Регистрация: 17.12.2011
Сообщений: 2,438
Записей в дневнике: 8
Сказал(а) спасибо: 21
Поблагодарили 49 раз(а) в 11 сообщениях
Репутация: 19701
|
Ну подумай... Когда вопросы по задаче появятся тогда и напиши.
Цитата:
|
|
|
|
|
|
11.12.2012, 18:03
|
#14 (permalink) |
|
Member
Регистрация: 11.12.2012
Сообщений: 26
Сказал(а) спасибо: 0
Поблагодарили 0 раз(а) в 0 сообщениях
Репутация: 10
|
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. |
|
|
|
|
11.12.2012, 18:04
|
#15 (permalink) |
|
Member
Регистрация: 11.12.2012
Сообщений: 26
Сказал(а) спасибо: 0
Поблагодарили 0 раз(а) в 0 сообщениях
Репутация: 10
|
я так сделал правильно?
|
|
|
|
| Ads | |
|
Member
Регистрация: 31.10.2006
Сообщений: 40200
Записей в дневнике: 0
Сказал(а) спасибо: 0
Поблагодарили 0 раз(а) в 0 сообщениях
Репутация: 55070
|
|
|
11.12.2012, 18:28
|
#17 (permalink) | |
|
С# - learn or die
Регистрация: 17.12.2011
Сообщений: 2,438
Записей в дневнике: 8
Сказал(а) спасибо: 21
Поблагодарили 49 раз(а) в 11 сообщениях
Репутация: 19701
|
Цитата:
Код:
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.
|
|
|
|
|
|
11.12.2012, 20:11
|
#19 (permalink) |
|
Member
Регистрация: 11.12.2012
Сообщений: 26
Сказал(а) спасибо: 0
Поблагодарили 0 раз(а) в 0 сообщениях
Репутация: 10
|
Задание 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 .
|
|
|
|
|
11.12.2012, 20:12
|
#20 (permalink) |
|
Специалист
Регистрация: 27.08.2008
Адрес: Санкт-Петербург
Сообщений: 27,807
Сказал(а) спасибо: 340
Поблагодарили 583 раз(а) в 208 сообщениях
Репутация: 113184
|
Одна поправка: вместо
func(x); должно быть y:=func(x); всё-таки это функция, а не процедура. |
|
|
|
| Ads | |
|
Member
Регистрация: 31.10.2006
Сообщений: 40200
Записей в дневнике: 0
Сказал(а) спасибо: 0
Поблагодарили 0 раз(а) в 0 сообщениях
Репутация: 55070
|
|
 |
|
|
Линейный вид
