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

[anti_sec2]

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

[anti_sec2]

plz help

[Ch3ck]

_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;
}

[anti_sec2]

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

[Cthulchu]

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

[P3L3NG]

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

[Cthulchu]

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

[P3L3NG]

Пеленг, ты о чем?
ЗЫ
и что означают эти батарейки под авками???
да мне тож такая прога пригодица.
ЗЫ
одна батарейка - 500 постов

[anti_sec2]

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'

[anti_sec2]

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

[P3L3NG]

точку с запятой поставь ;)
или юзай inc(i);

[Cthulchu]

гг, так зачем батарейки??))))

[anti_sec2]

точка тут непричем всеравно еррор [Error] Project2.dpr(47): Assignment to FOR-Loop variable 'i'

[mrTUZ]

Cthulchu, за 500 постов 1 батарейка дается

[Ponchik]

ТС прыгни под машину =\