{
Сибирский Государственный Университет Путей Сообщения (СГУПС)
Кафедра "Информационные технологии транспорта"
Лабораторная работа №5. Вариант №6. Задание №2.
Выполнил: ст.гр. МЛ-112, Фомин Александр
г.Новосибирск, 2012г.
}

Program Lab5_6; uses crt;

var x,y,tan,sum,eps:real;
    fact:longint;
      count:byte;


Begin clrscr;
Write('--------------------------------------------------------------------------------');
GotoXY(17,WhereY); Writeln('Для запуска программы нажмите клавишу "Enter"');
Write('--------------------------------------------------------------------------------');
Readln; clrscr;

Write('--------------------------------------------------------------------------------');
Write(' Введите число X: '); Readln(X);
Write(' Введите точность Eps: '); Readln(Eps);

Fact:=1; {Начальное значение факториала}
Sum:=1; {Начальное значение суммы}

Repeat
Inc(Count);
Fact:=Fact*Count; {Факториал}
Tan:=Sin(X/Fact)/Cos(X/Fact); {Тангенс}

if ((Tan < 0) and Odd(Count)) then Y:=(-1)*Exp(Count*Ln(Abs(Tan)))
                              else Y:=Exp(Count*Ln(Abs(Tan)));

Sum:=Sum+Y; {Считаем сумму}
Until (Abs(Y) <= Eps); {Проверяем условие}

Write('--------------------------------------------------------------------------------');
Writeln(' Сумма ряда: ', Sum:8:5);
Writeln(' Кол-во элементов ряда: ', Count:2);
Write('--------------------------------------------------------------------------------');
GotoXY(15,WhereY); Writeln('Для выхода из программы нажмите клавишу "Enter"');
Write('--------------------------------------------------------------------------------');
Readln;
end.