Составить программу вычисления значения функции

@dadet · Регистрация: 26.11.2015

Составить программу вычисления значения функции F(x):
f(x)=1-x+(x*x)-(x*x*x)+(x*x*x*x)-.....+- x^n-1+...

До выполнения условия
abs(x^n-1)<=e
где
e=0,0001;0,0005;0,001
x=0,51;0,61;0,71

@Puporev · 26.11.2015, 21:54

Pascal

function f(x,e:real):real;
var t,s:real;
begin
t:=1;
s:=t;
while abs(t)>e do
 begin
  t:=-t*x;
  s:=s+t;
 end;
f:=s;
end;
var x:real;
    i:byte;
begin
writeln('----------------------------------');
writeln('|  x  |e=0.0001|e=0.0005|e=0.0010|');
writeln('----------------------------------');
x:=0.51;
for i:=1 to 3 do
 begin
  writeln('|',x:5:2,'|',f(x,0.0001):7:4,' |',f(x,0.0005):7:4,' |',f(x,0.001):7:4,' |');
  x:=x+0.1;
 end;
writeln('----------------------------------');
end.

@dadet 0 / 0 / 0 Регистрация: 26.11.2015 Сообщений: 3
		1
	Составить программу вычисления значения функции 26.11.2015, 18:43. Показов 1568. Ответов 1 Метки нет (Все метки) Составить программу вычисления значения функции F(x): f(x)=1-x+(xx)-(xxx)+(xxxx)-.....+- x^n-1+... До выполнения условия abs(x^n-1)<=e где e=0,0001;0,0005;0,001 x=0,51;0,61;0,71 0

Опции темы

Составить программу вычисления значения функции

Решение