IPB
ЛогинПароль:

> Компиляция правил для данного раздела

1. Заголовок темы должен быть информативным. В противном случае тема закрывается и удаляется ...
2. НЕ используйте форум для личного общения, все что не относится к обсуждению темы - на PM!
3. Одна тема - один вопрос (задача)
4. Спрашивайте и отвечайте четко и по существу!!!

 
 Ответить  Открыть новую тему 
> Функции, Помощь в задаче с функциями ABC Pascal
Alexs
сообщение 18.03.2014 16:07
Сообщение #1





Группа: Пользователи
Сообщений: 2
Пол: Мужской

Репутация: -  0  +


По вещественным числам e>0 и t вычислить величину
((1-(cos(t/4))^4)^1/4)+((1-arctag(t/200))^1/5)*(((1-/(3+t^2))^1/9).
Корни вычислить с точностью e , используя ряд Тейлора
(1+x)^a=1+ax+(a(a-1)/2!)*(x^2)+(a(a-1)(a-2)/3!)*(x^3)+... (|x|<=1, a>0).
Написать функцию для вычисления корня.


Эскизы прикрепленных изображений
Прикрепленное изображение
 Оффлайн  Профиль  PM 
 К началу страницы 
+ Ответить 
Alexs
сообщение 19.03.2014 18:41
Сообщение #2





Группа: Пользователи
Сообщений: 2
Пол: Мужской

Репутация: -  0  +


function summa(x: real): real;
const e = 0.0001; //точность
var s,a,l,g: real; //сумма, член ряда
n,i: integer; //номер члена ряда
begin
g:=2;
s := 1+a*l;
n := 1; //номер первого члена ряда
repeat
for i:=1 to n do
begin
g:=g*n;
end;
s:= s+(s*(a*(a-(i))))/g;
inc(i) //следующее
until abs(a) < e;
summa := s
end;
var a, y, t: real;
begin //основная программа
write('a = '); //ввод a
readln(a);
begin //вычисляем
y:=exp(ln(1-arctan(t/200))*(1/5))+exp(ln(1-sqr(sqr(cos(t/4))))*(1/4))*exp(ln(1-t/(3+sqr(2)))*(1/9));
writeln('f(a) = ', y); //выводим результат
end;
readln
end.
вот нароботки
 Оффлайн  Профиль  PM 
 К началу страницы 
+ Ответить 

 Ответить  Открыть новую тему 
2 чел. читают эту тему (гостей: 2, скрытых пользователей: 0)
Пользователей: 0

 



- Текстовая версия 28.03.2024 23:32
Хостинг предоставлен компанией "Веб Сервис Центр" при поддержке компании "ДокЛаб"