以下这段源码是用什么语言编写的？

来源：百度知道 编辑：UC知道 时间：2024/05/31 09:36:30
墙角温度场数值解法程序
#include "math.h"
#define EPS 1e-4
#define M 16
#define N 12
main()
{ int i,j;
float t[M][N], t1[M][N],h=0.53,q1=0,q2=0;double max,e;
for(i=0,i<M;i++)t[i][0]=30.0;
for(j=0,j<N;j++)t[0][j]=30.0;
for(i=5,i<M;i++)t[i][5]=0.0;
for(j=5,j<N;j++)t[5][j]=0.0;
for(j=1;j<N;j++)
for (i=1;i<M;i++)
{ if(i>4&&j>4)break;
t1[i][j]=t[i][j]=20.0;}
do
{max=0;
for(j=1;j<N;j++)
for(i=1;i<M;i++)
{if(i>4&&j>4)beak;
t1[i][j]= t[i][j];}
{if(I>4&&j>4)break;
if(i==M-1)t[i][j]=0.25*(2.0*t[i-1][j]+t[i][j-1]+t[i][j+1]);
else if (j==N-1)t[i][j]=0.25*(2.0*t[i][j-1]+t[i-1][j]+t[i+1][j])
else t[i][j]=0.25*(t[i-1][j]+t[i+1][j]+t[i][j+1] +t[i][j-1]);
e=fabs(t[i][j]-t1[i][j])/t[i][j];
if (e>max)max=e;
}
}while (max>=ESP);
for(j=0;j<N;j++)
{for(i=0;i<M;i++)
{if(i&g

当然是用C编写的，
没有编译出来是因为代码有Error，导致编译出错。

下面是我改正了代码中编译Error后的程序，在VC6.0上已经编译确认了，
你看一下，错误的地方已经用////////////////////Error标出来了，
你和之前的代码比较一下就知道了：

#include<stdio.h> ///////////////////////////////Error
#include "math.h"
#define EPS 1e-4
#define M 16
#define N 12
main()
{ int i,j;
float t[M][N], t1[M][N],h=0.53,q1=0,q2=0;double max,e;
for(i=0;i<M;i++)t[i][0]=30.0; ///////////////////////////////Error
for(j=0;j<N;j++)t[0][j]=30.0; ///////////////////////////////Error
for(i=5;i<M;i++)t[i][5]=0.0; ///////////////////////////////Error
for(j=5;j<N;j++)t[5][j]=0.0; ///////////////////////////////Error
for(j=1;j<N;j++)
for (i=1;i<M;i++)
{ if(i>4&&j>4)break;
t1[i][j]=t[i][j]=20.0;}
do
{max=0;
for(j=1;j<N;j++)
for(i=1;i<M;i++)
{if(i>4&&j>4)break; ///////////////////////////////Error
t1[i][j]= t[i][j