Лабораторная №6. Вариант №12.

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

Program Lab6_12; uses crt;

var x,y,fact:real;
    n,i:integer;

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

Write('--------------------------------------------------------------------------------');
X:=2; {Начальное значение}
for i:=1 to 17 do
    Begin
    Fact:=1; {Начальное значение факториала}
    Y:=0; {Начальное значение суммы}

    for n:=1 to 20 do
        Begin
        Fact:=Fact*n; {Факториал N}
        Y:=Y+Sqrt(Exp(3*Ln(Exp(N*Ln(X))+1))/Fact); {Функция}
        end;

    Writeln(' При X= ',X:4:2,', Y= ', Y:8:5);
    Readkey;
    X:=X+0.5; {Получаем очередное значение X}
    end;

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