Форум АНТИЧАТ - ОЧЕН СРОСНА (кто знает pascal,)

Форум АНТИЧАТ (https://forum.antichat.xyz/index.php)

- Болталка (https://forum.antichat.xyz/forumdisplay.php?f=46)

- - ОЧЕН СРОСНА (кто знает pascal,) (https://forum.antichat.xyz/showthread.php?t=95421)

ОЧЕН СРОСНА (кто знает pascal,)

помогите пожалуйста
нужна составит прогу на pascale
Решение СНАУ методом Ньютона
пример x^3+2x^2+3x+5=0 задав точность e=0,001
очен срочно плз help

_http://forum.sources.ru/index.php?showtopic=252282
и на Сипипи есть...

Код:



      #include "iostream.h"



      #include "math.h"



      #include "stdlib.h"



       



      double f(double x)



      {



          return pow(x, 3)+2*pow(x, 2)+3*x+5;

 

      }



       



      double df(double x)



      {



        return 3*pow(x, 2)+4*x+3;



      }



       



      int main()



      {



        double eps = 0.001;



        double x = 0;



        while( fabs(f(x)) > eps )



        {



          x = x - f(x)/df(x);



        }



        cout << x << endl;



        system("pause");



        return 0;

      }

Спасибо этот код у меня ест помоему это прога для решения x^3+2x^2+3x+5=0
мне нужна на паскале
ср3сл спасибо за хелп
плз помогите на pascale

Чувак, а не мог бы ты решить уравнение просто так, руками. А то решение школьное я не помню, а за такое решение, которое я могу предложить - тебе двойку поставят, ибо спалят.
Просто напомни, как оно решается в школе.
ЗЫ
вот, щас паскаль вспоминать буду)))
только, автор, если ты хеллоу ворлд на паскале не делал - обьяснять тебе ничего никто не будет.

тож не откажусь :)

Пеленг, ты о чем?
ЗЫ
и что означают эти батарейки под авками???

Цитата:

Сообщение от Cthulchu

Пеленг, ты о чем?
ЗЫ
и что означают эти батарейки под авками???

да мне тож такая прога пригодица.
ЗЫ
одна батарейка - 500 постов

program Newtoon;

uses crt;

const
n = 2;
Nn = (n-1)*n/2;

function Nuton(p: array of double; n: integer; x: array of double; Xx: double):double;
var
s:double;
i:integer;
begin
s:=p[n-1];

for i:=n-2 downto 0 do
begin
s:=p[i]+(Xx-x[i])*s;
end;
Nuton:=s;
end;

procedure Nuton1(x: array of double;y: array of double;n:integer;p: array of double);
var
j,m,k,i,l: integer;

begin
for j:=0 to n-1 do
begin
p[j]:=(y[j+1]-y[j])/(x[j+1]-x[j]);
write(p[j],' ');
end;
m := n-1;
l:=2;

for i:= n-2 downto 1 do
begin
k:=0;
for j:= 1 to i do
begin
p[m]:=(p[m-i]-p[m-i-1])/(x[k+l]-x[k]);
inc(m);
inc(k);
end;
i:=i+1
end;

j:=0;
for i:=1 to n-1 do
begin
y[i]:=p[j];
j:=j+(n-i);
end;
end;

var
x: array [1..5] of double;
y: array [1..n] of double;
i: integer;
p: array [1..n] of double;
z: double;
begin
for i:= 0 to n do
begin
y[i] := 1+2*x[i]+3*x[i]*x[i]+4*x[i]*x[i]*x[i]+5*x[i]*x[i]*x[i]*x[i];
end;
z:= 1.5;
Nuton1(x,y,n,p);
writeln(Nuton(y,n,x,z),' ', 1+2*z+3*z*z+4*z*z*z+5*z*z*z*z);
readln;
end.

выдает ошибку встроке i:=i+1 [Error] Project2.dpr(46): Assignment to FOR-Loop variable 'i'

cthlchu нечего обяснат ненадо проста дайте код проги