Дано действительное а > 0. Последовательность х 0 , х 1 , . образована по закону

@Lacostenya · Регистрация: 28.06.2013

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

Полное условие на изображение.

@Puporev · 30.06.2013, 13:52

Если правильно понял...

Pascal

uses crt;
var a,x0,xn:real;
begin
write('a=');
read(a);
if a<=1 then
 begin
  if 2*a<0.95 then x0:=2*a
  else x0:=0.95
 end
else if (a>1)and(a<25)then x0:=a/5
else x0:=a/25;
xn:=4*x0/5+a/(5*x0*x0*x0*x0);
while 5*a*abs(xn-x0)>=0.000001 do
 begin
  x0:=xn;
  xn:=4*x0/5+a/(5*x0*x0*x0*x0);
 end;
writeln('xn=',xn:0:6,' dx=',5*a*abs(xn-x0):0:7);
write('a-xn^5=',a-xn*xn*xn*xn*xn:0:6);
end.

Добавлено через 12 минут
Чуть поправил....

@Lacostenya 0 / 0 / 0 Регистрация: 28.06.2013 Сообщений: 10
		1
	Дано действительное а > 0. Последовательность х 0 , х 1 , . образована по закону 30.06.2013, 12:42. Показов 4007. Ответов 1 Метки нет (Все метки) Полное условие на изображение. Миниатюры 0

Опции темы

Дано действительное а > 0. Последовательность х 0 , х 1 , . образована по закону

Решение