早教吧作业答案频道 -->其他-->
为啥我写的fortran结果算出来都是零,程序如下.programex01useimslparameter(n=50,l=1,p=1,h=l/(n-1))parameter(pi=3.1415926535)dimensiona(n-2,n),b(n-2,1),y(n,1),q(n,1)open(1,file='naodu.dat')y(:,:)=0doi=1,nq(i,1)=p*sin((i-1)*h*pi/l)end
题目详情
为啥我写的fortran结果算出来都是零,程序如下.
program ex01
use imsl
parameter(n=50,l=1,p=1,h=l/(n-1))
parameter(pi=3.1415926535)
dimension a(n-2,n),b(n-2,1),y(n,1),q(n,1)
open(1,file='naodu.dat')
y(:,:)=0
do i=1,n
q(i,1)=p*sin((i-1)*h*pi/l)
end do
do i=1,n
write(*,*) q(i,1)
end do
end
program ex01
use imsl
parameter(n=50,l=1,p=1,h=l/(n-1))
parameter(pi=3.1415926535)
dimension a(n-2,n),b(n-2,1),y(n,1),q(n,1)
open(1,file='naodu.dat')
y(:,:)=0
do i=1,n
q(i,1)=p*sin((i-1)*h*pi/l)
end do
do i=1,n
write(*,*) q(i,1)
end do
end
▼优质解答
答案和解析
program ex01
implicit none
integer , parameter :: n=50 , l=1 , p=1
real , parameter :: h= 1.0* l / (n-1)
Real , parameter :: pi=3.1415926535
Real :: a(n-2,n),b(n-2,1),y(n,1),q(n,1)
integer :: i
y(:,:)=0
do i=1,n
q(i,1)=p*sin((i-1)*h*pi/l)
end do
do i=1,n
write(*,*) q(i,1)
end do
end program ex01
implicit none
integer , parameter :: n=50 , l=1 , p=1
real , parameter :: h= 1.0* l / (n-1)
Real , parameter :: pi=3.1415926535
Real :: a(n-2,n),b(n-2,1),y(n,1),q(n,1)
integer :: i
y(:,:)=0
do i=1,n
q(i,1)=p*sin((i-1)*h*pi/l)
end do
do i=1,n
write(*,*) q(i,1)
end do
end program ex01
h=l/(n-1) = 0
注意 l 和 n 是整数.
注意 l 和 n 是整数.另外你的编程风格非常不好,建议这样写.
另外你的编程风格非常不好,建议这样写.
看了 为啥我写的fortran结果...的网友还看了以下:
open的用法Thezooisopenfrom7.30a.m.to5p.m.这句话中open是形容 2020-05-13 …
三、选词填空。1.浮现笼罩浸润弥漫(1)如水的月光()着大地,白茫茫一片。(2)离开了学校,老师的 2020-05-16 …
三、选词填空。1.浮现笼罩浸润弥漫(1)如水的月光()着大地,白茫茫一片。(2)分别多年,她的笑容 2020-05-16 …
open的被动 how soon will concert be open 还是OPENEDhow 2020-05-17 …
单词后面加ed怎么翻译?如open,ask加ed变成opened,asked怎么翻译啊? 2020-05-23 …
用所给词的适当形式填空快.、、、1.Please()(open)thedoor.2.()(notb 2020-06-03 …
见到你们所有人都很高兴.英语怎么说?1.It‘scoldoutside.Don’topenthew 2020-06-06 …
x/5/8*4/5=1如题的解方程 2020-06-06 …
如果可以选择一种动物的能力?你会?如果有一天,你可以选择一种其他动物的能力,附加在自己身上,你会选 2020-07-03 …
故乡的月光阅读答案:请根据原文片段写出古诗句或成语。1.如盘的素月刚一升起,人们就在如水的月光中开 2020-07-03 …