Цитата:
Сообщение от Long Cat
Счетчик в смысле вычислитель? Подпрограмма для вычисления факториала есть?
|
Ну если просто вычислитель, то без проблем:
VAR
N,i:INTEGER;
x,y:EXTENDED;
FUNCTION X2np(X:Extended; n:INTEGER):Extended;
Var
i:INTEGER;
Y:Extended;
BEGIN
IF n=0 THEN X2np:=1 ELSE
IF n=1 THEN X2np:=X ELSE
BEGIN
Y:=X;
FOR i:=2 TO n DO Y:=Y*X;
X2np:=Y;
END;
END;
FUNCTION Nfact(n:LongInt):Extended;
VAR
i:LongInt;
fact:Extended;
BEGIN
IF n=0 THEN fact:=1 ELSE
BEGIN
fact:=1;
FOR i:=1 TO n DO
fact:=fact*i;
END;
Nfact:=fact;
END;
BEGIN
Write('x= ');
ReadLn(x);
Write('N= ');
ReadLn(N);
Y:=1;
FOR i:=1 TO N DO
Y:=Y+X2np(x,i)/Nfact(i);
WriteLn('Y= ',Y);
ReadLn;
END.