#include<stdio.h>
#include<math.h>
void Guass(int n,float Array[][10])
{
float s,u
int i,j,k,a,x,y
for(i=0i<n-1i++)
{
s=Array[i][i]
k=i
for(a=i+1a<na++)
{
if(fabs(s) <fabs(Array[a][i]))
{
s=Array[a][i]
k=a
}
}
if(k!=i)
{
for(j=ij<n+1j++)
{
u=Array[i][j]Array[i][j]=Array[k][j]Array[k][j]=u
}
}
for(x=i+1x<nx++)
{
u=Array[x][i]/s
for(y=iy<n+1y++)
{
Array[x][y]=Array[x][y]-u*Array[i][y]
}
}
}
for(x=n-1x>=0x--)
{
s=0
for(y=x+1y<ny++)
s=s+Array[x][y]*Array[y][n]
Array[x][n]=(Array[x][n]-s)/(Array[x][x])//得到结果
}
for(i=0i<ni++)printf("%f ",Array[i][n])printf("\n")
}
int main()
{
int n,i,j
float Array[10][10]
scanf("%d",&n)
for(i=0i<ni++)
{
for(j=0j<n+1j++)
scanf("%f",&Array[i][j])
}
Guass(n,Array)
return 0
}
程序语言：Dim d As Double
d = b ^ 2 - 4 * a * c
If d <0 Then
MsgBox "Δ小于0，没有实根", , "消息"
x(0) = 0: x(1) = 0
ElseIf d = 0 Then
x(0) = -b / (2 * a): x(1) = x(0)
Else
x(0) = (-b - Sgn(b) * Sqr(d)) / (2 * a): x(1) = c / (a * x(0))
End If
End Sub
