Архив форумов ЦИТФорума

[EWgeny]

Как найти полином пятой степени?(Желательно в Delphi)

[Security]

-

[Вовик]

#include
#include
#include
#include
#include
#define Y log(0.8*x-0.7)+1/(x*x)
#define A 4
#define B 8.5
#define n 4

float *a, *x;
char i, j, m;

float f (float x)
{return Y;};

char change (char g)
{char t;
if (g!=m)
{ for (i=g+1;i=g;j--)
{ t=*(a+i*m+j);
*(a+i*m+j)=*(a+g*m+j);
*(a+g*m+j)=t;
};return 0;
} } return 1;
};

void intab ()
{ for (i=0;i=g;i--)
*(a+g*m+i)/=*(a+g*m+g);
for (i=(n-1);i>g;i--)
for (j=n;j>=g;j--)
*(a+i*m+j)-=*(a+g*m+j)* *(a+i*m+g);
if (gg;i--)
*(x+g)-=*(a+g*m+i)**(x+i);
};

void main()
{ clrscr ();
m=n+1;
a=(float*) malloc ((n*n+n)*sizeof(float));
x=(float*) malloc (n*sizeof(float));
intab ();
outtab ();
gauss (0);
for (i=0;i