Проверьте програму...

@walkerok · Регистрация: 27.09.2009

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

Пользуясь рекурентной формулой найти сумму S бесконечного ряда с точностью до e, где 0<=x<=2

Pascal

program aaa;
uses crt;
var y,x,e,s:real;
    k:integer;
begin
clrscr;
writeln ('e?');
readln (e);
writeln ('0<=x?<=2');
readln (x);
s:=0;
k:=1;
y:=x-1;
while abs(y)>e do begin
y:=y*((x-1)/k);
s:=s+y;k:=k+1;
end;
writeln ('s=',s:15:7);
readln;
end.

@Puporev · 02.03.2010, 19:31

где 0<=x<=2

Какое-то странное условие. Было бы логичнее x<>1;

Pascal

uses crt;
var x,e,f,s:real;
    n:integer;
begin
clrscr;
repeat
write('Введите х [0;2] x=');
readln(x);
until(x>=0)and(x<=2);
write('e=');
readln(e);
n:=0;
s:=0;
f:=1;
while abs((x-1)*f)>e do
 begin
  n:=n+1;
  f:=1/n;
  s:=s+(x-1)*f;
 end;
write('S=',s:0:6);
readln
end.

@walkerok · 02.03.2010, 19:43 **[ТС]**

спасиб
а условие если неправильно то в учебнике опечатка.....

@walkerok 0 / 0 / 0 Регистрация: 27.09.2009 Сообщений: 13
	02.03.2010, 19:43 [ТС]	3
	спасиб а условие если неправильно то в учебнике опечатка..... 0

Опции темы