Цитата:
Сообщение от Mitti
Ой я извиняюсь)) Решаю эти задачки уже второй день) У меня уже само собой разумеющееся - паскаль)
Закон студента работает до сих пор: Была куча времени,а делать в последний момент)
|
Получите:
Код:
CONST
Eps=0.0001;
VAR
Xbeg,Xfin,DX,SUM,X:REAL;
N:WORD;
Nx,i:INTEGER;
PROCEDURE SUMS(Xs:REAL; Var S:REAL; Var Ns:WORD);
VAR
a:REAL;
Begin
a:=Xs;
S:=Xs;
Ns:=1;
Repeat
Inc(Ns);
a:=a*Xs*(Ns-1)/Ns;
S:=S+a;
Until Abs(a)<Eps;
S:=-S;
End;
BEGIN
Xbeg:=-0.5;
Xfin:=0.5;
DX:=0.1;
WriteLn(' Results of calculation:');
WriteLn(' X SUM N Ln(1-X)');
WriteLn;
Nx:=ROUND((Xfin-Xbeg)/DX);
X:=Xbeg;
For i:=0 to Nx do
begin
X:=Xbeg+DX*i;
SUMS(X,SUM,N);
WriteLn(X:8:5,' ',SUM:8:5,' ',N:3,' ',Ln(1-X):8:5);
end;
ReadLn;
END.