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

If Ch=#49 then vr:=10

else if Ch=#50 then vr := 1

else goto 1;

clrscr ;

if vr = 1 then

begin

textcolor (LightRed);

Writeln ;

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

Writeln ;

textcolor (LightGreen);

end

else Writeln ;

Writeln (' x^2 x^4 x^6 x^n');

Writeln (' s = 1 - --- + --- - --- + ... ---');

Writeln (' 2! 4! 6! n!');

Writeln ;

{-= выводим в табличном значении =-}

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

Writeln (' = решение = s при x = ', x:6:5);

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

s := 1;

For i:=1 to n do

Begin

{проверяем на чётность и соответственно добавляем знак}

if odd(i) then a := -1 else a := 1;

{находим степень с}

c := 2*i;

{вычисляем факториал знаменателя - zn (n!)}