Использование функций

[snauk3]

PASCAL ABC

По вещественным числам 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).
Написать функцию для вычисления корня.

[Vanta11a]

Вычислил и написал. И чо?

Наработки где?

[snauk3]

их нет. Задача цельная, ничего при ней не было.

[Аватар]

Определение
Наработками называются попытки ТС самостоятельно решить поставленную задачу. В виде кода. Хотя бы минимальные.

А если полный ноль - оно вам надо?

[snauk3]

а у тебя код программы есть?

[snauk3]

Есть полностью код аналогичной задачи

function arctg(x: real): real;
const e = 0.0001; //точность
var s, a: real; //сумма, член ряда
    n: integer; //номер члена ряда
begin
  s := a; //сумма ряда пока равна нулю
  n := 2; //номер первого члена ряда
  repeat  //цикл до тех пор, пока очередной член ряда не станет меньше e
    a := power(x, (2*n-1)) / (2*n -1); //
    if (n mod 2) <> 0 then
    s := s + a//сумма
    else
    s := s - a; //сумма
    inc(n) //следующее
  until abs(a) < e;
  arctg := s //возвращаемое значение
end;
//===
var a, y: real;
begin //основная программа
  write('a = '); //ввод a
  readln(a);
  begin //вычисляем
      y := arctg((a*a - 1) / (a * a + 1)) *
           arctg(cos(a) - sin(a)*sin(a)) / (a*a + 4) - 
           arctg(1 / (a*a + 4));
      writeln('f(a) = ', y); //выводим результат
    end;
  readln
end.

[Vanta11a]

Ну так адаптируйте его под свою формулу.

[snauk3]

вот в это и вся проблема, я не могу найти формул, если я её нашел бы, то давно заменил бы.

[snauk3]

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.
вот нароботки