第十题~~~
嗯,我们还是不能忘了学习是吧。。。
这个关于编程的。。。。。
看下面的程序,说出程序所使用的语言叫什么名字
。。。版本号无所谓。
program main
integer i,j
real x(41),y(31),u(41,31),t,p,q,M
real,parameter::w=1.25,eps=1e-4,h=0.1,pi=3.1415926
open(1,file='example.dat')
do i=1,41
x(i)=(i-1)*h
u(i,1)=sin(pi*x(i)/4)
u(i,31)=0.0
enddo
do j=1,31
y(j)=(j-1)*h
u(1,j)=y(j)*(y(j)-3)
u(41,j)=0.0
enddo
do i=2,40
do j=2,30
u(i,j)=0.0
enddo
enddo
10 p=0.0
do i=2,40
do j=2,30
t=u(i,j)
u(i,j)=w*(u(i,j-1)+u(i-1,j)+u(i,j+1)+u(i+1,j))/4+(1-w)*u(i,j)
q=abs(u(i,j)-t)
if(q.gt.p) p=q
enddo
enddo
M=M+1
if(p.gt.eps)goto 10
write(*,*)M
write(1,*)M
do i=1,41
do j=1,31
write(*,*)i,j,u(i,j)
write(1,*)i,j,u(i,j)
enddo
enddo
end
发布答案:http://www.livejh.com/ba/thread-59362-1-1.html
[ 本帖最后由 维兰 于 2007-6-8 16:01 编辑 ] |