Дано действительное число х

@Mr.Dek · Регистрация: 03.12.2010

Author24 — интернет-сервис помощи студентам

Пожалуйста, помогите составить программу.
Дано действительное число х. Нужно не используя стандартные функции, вычислить сумму n первых членов следующего ряда (n, х вводятся с клавиатуры):

Или немогли бы исправить код..

Pascal

uses crt;
var i,j,k,n,x,fac:integer;
s,y:real;
begin
clrscr;
writeln;
writeln('Vvedite x,n:');
write('x=');
readln(x);
write('n=');
readln(n);
For k:=1 to n do begin
x:=x*(2*k);
end;
s:=0;
for i:=1 to n do begin
fac:=1;
for j:=1 to 2*n do begin
Fac:=fac*j;
end;
y:=1;
for j:=1 to n do begin
y:=y*(-1);
end;
s:=s+1-(y*x)/fac;
end;
writeln('s=',s:2:6);
readln;
end.

@SuPeR XaKer · 29.12.2010, 12:17

Pascal

uses crt;
var
 i,n,j,l:integer;
 s,x,st,fac:real;
begin
clrscr;
writeln;
writeln('Vvedite x,n:');
write('x=');
readln(x);
write('n=');
readln(n);
s:=1;
l:=1;
For i:=1 to n do
begin
st:=1;
fac:=1;
 For j:=1 to i*2 do
 begin
  st:=st*x;
  fac:=fac*j;
 end;
l:=-l;
s:=s+(l*(st/fac));
end;
writeln('s=',s);
readln;
end.

	29.12.2010, 12:17