Не используя стандартных функций вычислить tg x

[Boris18]

Всем привет) Нужна помощь, буду очень благодарен, если поможете.
Вычислить tg x не используя стандартных функций, при этом используя ряд тейлора

[Вадим Мошев]

1. Ищите разложение тангенса в ряд Тейлора
2. Программируете с помощью цикла вычисление этого ряда для заданного значения аргумента.

[Boris18]

Я бы с радостью, но мы к сожалению не проходили еще ряд Тейолра, а нас уже на информатике просят решать такие задачи, поэтому не знаю что делать

[Аватар]

Найти ряд Тейлора в для тангенса в интернете, например. Там числа Бернулли всплывут, узнать что это такое. В конце концов и примеры есть в интерне для тангенса, за минуту на разных языках нашел несколько примеров

[Вадим Мошев]

Числа Бернулли https://ru.wikipedia.org/wiki/%D0%A7...BB%D0%BB%D0%B8

Вот здесь есть разложение тангенса в ряд:
https://ru.wikipedia.org/wiki/%D0%A0...86.D0.B8.D0.B9

Не обращайте внимания на то, что там написано "ряд Маклорена"
================

Либо же можно поступить следующим образом.
Воспользоваться тем, что тангенс = синус / косинус, после чего воспользоваться разложением отдельно для синуса и косинуса (это легче будет, ИМХО).

[Boris18]

Это и я нашел, у меня вопрос только как это воспроизвести в паскале, я не малейшего представления не имею

[Вадим Мошев]

Вот почитайте здесь http://www.programmersforum.ru/showp...1&postcount=35
Там, правда, чуть-чуть другое, но, полагаю, вы должны разобраться.
Кстати, там как раз считается косинус, разложенный в ряд.

[Аватар]

function Fact(n: Integer): Double;
begin
  if n=0 then Fact:=1 else Fact:=n*Fact(n-1);
end;

function Bern(n: Integer): Double;
var s,f: Double;
    k: Integer;
begin
  if n=0 then Bern:=1
  else if n=1 then Bern:=-1/2
  else if Odd(n) then Bern:=0
  else begin
    s:=0; f:=Fact(n+1);
    for k:=1 to n do s:=s+f/Fact(k+1)/Fact(n-k)*Bern(n-k);
    Bern:=-s/(n+1);
  end;
end;

function Tangens(x,Eps: Double): Double;
var s,f: Double;
    k: Integer;
begin
  s:=0; k:=1;
  repeat
    f:=Power(-1,k-1)*Power(2,2*k)/Fact(2*k)*(Power(2,2*k)-1)*Bern(2*k)*Power(x,2*k-1);
    s:=s+f;
    Inc(k);
  until Abs(f)<Eps;
  Tangens:=s;
end;

обращение Tangens(Pi/3,0.000001)

ЗЫ - проверил в делфи, в паскале, особенно турбо или абц возможны нюансы

Не используя стандартных функций

Забыл. Odd заменить на проверку на нечетность с помощью mod. Power на свою функцию возведения в целую степень. Ну и от Abs избавиться

[Boris18]

Ты можешь написать правильную программу, чтобы я просто списал, я в Паскале плохо разбираюсь, я не программист а металлург, мне это просто для зачета нужно, помоги пожалуйста))

[Аватар]

Не хочу, тут на форуме много примеров по консольному вводу-выводу данных. Хоть чуть-чуть понимать для зачета не помешает