#include <stdio.h>
#include <conio.h>
#define n 4
void main ()
{
float a[n][n+1]={{0.64, 0.72, -0.83, 4.2, 2.23},
{0.58, -0.83, 1.43, -0.62, 1.71},
{0.86, 0.77, -1.83, 0.88, -0.54},
{1.32, -0.52, -0.65, 1.22, 0.65}};
int i, j, k;
clrscr();
printf("Ishodhaya matrica \n");
for (i=0; i<n; i++)
{ for (j=0; j<n+1; j++)
printf("%6.2f ", a[i][j]);
printf("\n");
};
for (k=0; k<n; k++)
{
for (i=0; i<n; i++)
for (j=0; j<n+1; j++)
if ((i!=k)&&(j!=k))
a[i][j]=a[i][j]-a[i][k]*a[k][j]/a[k][k];
for (i=0; i<n+1; i++)
if (i!=k) a[k][i]=a[k][i]/a[k][k];
for (i=0; i<n; i++)
if (i==k) a[i][k]=1;
else a[i][k]=0;
};
printf("Rezult. matrica \n");
for (i=0; i<n; i++)
{ for (j=0; j<n+1; j++)
printf("%9.6f ", a[i][j]);
printf("\n");
};
getch();
};
написала в Сишке, переведите кто-нить плиз в Паскаль. оплата 10к, если будетЬ все работать как в сишке |
