| 查看: 472 | 回复: 2 | ||
[求助]
请大神帮我看下问题到底出在哪里？纠结啊··快疯了·· 已有2人参与
|
|
我这个程序在输入那里总是触发断点，不知道怎么回事·我是新手·研究了一星期了··求大神给帮帮忙改一下程序 real(8) function jiechengXstep(x,step) implicit none real(8),intent(in)::x,step real(8)::i jiechengXstep=1.0 do i=x,1,-step jiechengXstep=jiechengXstep*i end do end function jiechengXstep program main implicit none interface real(8) function jiechengXstep(x,step) real(8),intent(in)::x,step end function jiechengXstep end interface real(8):: part,x,a1,d1=1.0,i integer,parameter:: n=10 real(8),dimension(n)::inputNm open(1,file='inputNm',status='old') open(3,file="result.txt",form='formatted') do i=1,n read(10,*) inputNm(i) end do a1=x/2 do i=1,50 part=(-1.0)**i*(x)**(2.0*i+1.0)/((2.0)**(2.0*i+1.0)*(jiechengXstep(i,d1))*(jiechengXstep((i+1),d1))) a1=a1+part end do do i=1,n write(3,*)"x=",x write(3,*) "a1=",a1 write(*,*)'a1=',a1 end do read(*,*)x end |
回复此楼» 猜你喜欢
08工科275分求调剂
已经有13人回复
-
材料工程322分
已经有6人回复
-
一志愿北京科技大学085601材料工程英一数二初试总分335求调剂
已经有7人回复
-
274求调剂
已经有5人回复
-
【求调剂】新能源材料本科，一志愿211，初试321
已经有3人回复
-
材料考研调剂
已经有3人回复
-
材料调剂
已经有12人回复
-
英一数一408，总分284，二战真诚求调剂
已经有14人回复
-
085410 一志愿211 22408分数359求调剂
已经有4人回复
-
271求调剂
已经有19人回复
» 本主题相关价值贴推荐，对您同样有帮助:
- 请大神看看下面红外图1500-1700分别啥峰很纠结
已经有3人回复
- 【酶连】三片段连接总是做不出来，求助！
已经有7人回复
baobiao007
木虫 (职业作家)
中国特色
- 应助: 201 (大学生)
- 金币: 6482.7
- 散金: 557
- 红花: 40
- 帖子: 3050
- 在线: 1009.9小时
- 虫号: 505962
- 注册: 2008-02-18
- 专业: 应用地球物理学
2楼2014-06-08 13:45:45
3楼2014-06-08 16:49:18
120
