Вычисление корней с точностью e=0.0001 по итерационной формуле

29.05.2012, 14:53. **Показов** 1211. **Ответов** 0

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

Вычисление корней $https://www.cyberforum.ru/cgi-bin/latex.cgi?y=\sqrt[k]{x}$ с точностью e=0.0001 по итерационной формуле:
{Y}_{n+1}={Y}^{n}+(X/(({Y{}_{n}})^{k-1})-{Y}_{n})/k.
Предполагается, что все вводимые значения положительные. тестирую на х=4, k=2, e=0.0001.
y[1] =2,5 A2=2 sum=0,5.
y[2] =2,05 A2=2 sum=0,05.
y[3] =2,0006 A2=2 sum=0,0006.
(считала вручную)
На цикле появляются ошибки(( заранее спасибо
код программы:

Pascal

program laba3;
uses crt;
     type mas=array[1..n] of real;
 var
       i:integer; A2,x,k,sum,e,kor: real;
       y,b:mas;
{ function y1(var i:integer;var x,k:real; var y:mas):real;
  begin
  y[i]:=1;
  y[i+1]:=(y[i]+(x/(exp(1/(k-1)*ln(y[i])))-y[i])/k);
  y[i]:=y[i+1]; y1:=y[i];
  end;}
  {---------------------------------------------------}
  begin  clrscr;
  i:=0; { sum:=0;{ A2:=0; kor:=0;}   y[i]:=1;
  writeln('vvedite e');
  read(e);
  writeln('vvedite A');
  read(x);
  writeln('vvedite K');
  read(k);
  repeat
  i:=i+1;{ y[i]:=1;  }
  y[i+1]:=(y[i]+(x/(exp(1/(k-1)*ln(y[i])))-y[i])/k);
  y[i]:=y[i+1];
 { kor:=y1(i,x,k,y);}
  A2:=exp((1/k*ln(x)));
  sum:=abs(A2-y[i]);
  writeln('y[',i,']=',y[i],'  A2=',A2,' sum=',sum );
 until sum<e;
   end.

	29.05.2012, 14:53

Опции темы