Лабораторная №5. Задание №2

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

Program Lab5_3; uses crt;

const eps=1.0E-5;

var y,tfact,fact,sum:real;
    i,n:integer;


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

Write('--------------------------------------------------------------------------------');
Fact:=1; {Начальное значение факториала}
N:=0; {Начальное значение счетчика}
Sum:=0; {Начальное значение суммы}

Repeat
Inc(N); {Счетчик}
Fact:=Fact*N; {Вычисляем факториал N}
tFact:=1; {Начальное значение факториала}

for i:=1 to 2*n do
    Begin
      tFact:=tFact*i; {Вычисляем факториал 2N}
      end;

Y:=(Exp(N*Ln(3))*Fact)/tFact; {Очередной член ряда}

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

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