Нужна программа...

[Neo_one]

Напишите кто-нибудь программу для решения систем линейных алгебраических уравнений методом простой итерации (методом постепенных приближений).......очень нужно!

[Grag]

Pascal; Delphi...
Обращайся, если договоримся - сделаю.
Контакты:
e-mail: skiper@rol.ru
icq: 585281783
Skype: delmas61

[Филантроп]

с++

#include <stdio.h>
#include <conio.h>
#include <stdlib.h>
#include <mem.h>
#include <string.h>
#include <math.h>
#define eps 0.0001
void Out_A(float** a, int size)
{
	

	for (int i=0;i<size;i++)
	{
		for (int j=0;j<size;j++)
		{
			printf("%f ",a[i][j]);
			
		}
	printf("\n");
	}
}

void Out_B(float* b, int size)
{
	
	for ( int i=0;i<size;i++)
	{
		printf("%f ",b[i]);
	}
	printf("\n");
	
}
void iteration(float** a,int size, float* b,float* x)
{
 int i,j,k=0;
 float norma; 
 float * xn = new float[size];
	memset(xn,0,size*sizeof(float) );
 

 do{
  norma=0.0;
  for(i=0;i < size;i++)
  {
   xn[i]=-b[i];
   for(j=0;j < size;j++)
   {
    if(i!=j)
     xn[i]+=a[i][j]*x[j];
   }
   xn[i]/=-a[i][i];
  }
  for(i=0;i < size;i++)
  {
   if(fabs(x[i]-xn[i]) > norma)
    norma=fabs(x[i]-xn[i]); 
   x[i]=xn[i];
  }
  
	k++;
	printf("x\n");
	Out_B(x, size);
	printf("iteration %d \n",k);
	printf("norma %f \n",norma);
 }
 while(norma > eps); 
	
 return;
}


int main()
{
	float **a,** a1;
	float  b[10],*x;
	char str[255];
	int count = 0, 
		count_read = 0,
		res = 0;
	int i,j;
	char *tk;
	

	

	a = new float*[10];
	for (int k = 0; k<10 ;k++)
		a[k] = new float[10];

	a1 = new float*[10];
	for (int k = 0; k<10 ;k++)
		a1[k] = new float[10];
	
	
	FILE *stream;
	if ( ( stream=fopen("input.txt","rt")) == NULL )
	{ 
		printf("File %s didn\'t found\n ", "input.txt");
		return 1;
	}
	while (!feof(stream))
	{
		fgets(str,255,stream);
		if (!count_read || (count_read < count))
		{
			tk = strtok(str," ");
			i = 0;
			while(tk)
			{
				a[count_read][i++] = strtod(tk,NULL);
				tk = strtok(NULL," ");
			}
			count_read++;
			if(!count)
				count = i;
		}
		else
		{
			tk = strtok(str," ");
			i = 0;
			while(tk)
			{
				b[i++] = strtod(tk,NULL);
				tk = strtok(NULL," ");
			}
		}
	}
	printf("A\n");
	Out_A(a, count);
	printf("b\n");
	Out_B(b, count);

	x = new float[count];
	memset(x,0,count*sizeof(float) );
	iteration( a,count,  b, x);
	
     getch();
	return 0;
}

[Google2010]

Напишите кто-нибудь программу для решения систем линейных алгебраических уравнений методом простой итерации

вот держи))))
для связи icq:55[три]-56[шесть]-17[девять])

[Neo_one]

Спасибо большое!!!.....а может у кого-нибудь есть сам код на DELPHI?

[Google2010]

а может у кого-нибудь есть сам код на DELPHI?

У меня есть! отдам недорого!

для связи icq:55[три]-56[шесть]-17[девять])