Курсовая работа: Алгоритмизация и программирование на языке Паскаль

For zi:=1 to c do zn := zn * zi;

{находим дробь - b = x^c / zn

!ПРИМЕЧАНИЕ так как отрицательное число под знаком логарифма приведёт к ошибке, дополнительно при вычислении избавляемся от знака "-". В нашём конкретном случае это не будет ошибкой т.к. при нашем задании степень ЧЕТНАЯ т.е. при любом значении x оно всегда будет чётное. Поэтому смело можно применять abs.}

b := exp ( c * ln ( abs ( x )))/ zn ;

{находим результат s = s+a*b (= 1 - (x^n/n!) + .. - ..}

s := s+a*b ;

{проверка дял пошагового режима}

if vr < 10 then

begin

Writeln (' =',i:7,'=',s:7:5,' x^',c,'=',b*zn:7:5,' ',c,'!=',zn);

Ch := ReadKey;

If Ch=#27 then goto 2;

end;

End;

if vr = 10 then Writeln (' =',i:7,'=',s:7:5);

Writeln (' ==================');

Writeln ;

textcolor (LightRed);

Writeln(' для завершения нажмите "Esc", для повтора любую клавишу');

Writeln ;

textcolor (White);

Ch := ReadKey;

If Ch=#27 then goto 2;

goto 1;

2:

Writeln ('До свидания.');

Writeln ('Работу выполнил:');

Writeln ('К.Виктор гр. ЗРП-118 (210402) 2009г.');

end.