ЛР11 Программирование (2.3 В21) - III

LabWork11
📑 Compile Pascal Online

III. Программа Pascal

Program Lab11;

var X,X1,X2,H: real;

var N,i: integer;

function factorial(i:integer): integer;

begin

    if i=1 then factorial:=1

    else factorial:=factorial(i-1)*i;        

end;

function power(X:real;i:integer): real;

begin

    if i=1 then power:=1

    else power:=power(X,i-1)*X; 

end;

function f(X:real): real;

begin

    f:=2*X-X*exp(-X*X)-sin(X);

end;

function fs(X:real;N:integer): real;

begin

    fs:=0;

    for i:=1 to N do

    begin

    fs:=fs+power(-1,i+1)*power(X,2*i+1)*(1/factorial(i)+

        1/factorial(2*i+1));

    end;

end;

begin

    writeln('Лаб.11':38);

    write('Начальное значение аргумента X1: '); 

    readln(X1); writeln(X1:5:2);

    write('Конечное значение аргумента X2: '); 

    readln(X2); writeln(X2:5:2);

    write('Величина изменения аргумента H: '); 

    readln(H); writeln(H:5:2);

    write('Количество суммируемых значений ряда N: '); 

    readln(N); writeln(N:3);

    X:=X1; writeln('Таблица значений');

    if (X2<=X1)or(X2-X1<H) then

        writeln('Данные не корректны')

    else

    begin

        while X2>X-H do

        begin

            writeln(X:5:2,' ',fs(X,N):9:7,' ',f(X):9:7);

            X:=X+H;

        end;

    end;

end.

STDIN

0.5

0.7

0.05

5