Fortran Coder

标题: 关于读real型数据时读到一个非法字符 [打印本页]

作者: PTVenn    时间: 2016-9-1 16:32
标题: 关于读real型数据时读到一个非法字符
本帖最后由 PTVenn 于 2016-9-1 16:32 编辑

使用梯形法求解f(x)在[a,b]上的定积分,f(x)=1/(1+x)。为了求得图形面积,先将区间[a,b]分成n等分,每个区间的宽度为h=(b-a)/n,对应将图形分成n等分,再分别求小曲边梯形的面积并累加得到积分面积。
代码如下:
real a,b,h,x,s,f0,f1,si
integer n,i
read *,a,b,n
h=(b-a)/n
x=a;s=0;f0=1.0/(1+x)
do i=1,n
   x=x+h
   f1=1.0/(1+x)
   si=(f0+f1)*h/2
   s=s+si
   f0=f1
end do
print *,s
end


运行结果如图,求解哪个是非法字符啊

QQ图片20160901163003.png (18.41 KB, 下载次数: 198)

运行结果

运行结果

作者: li913    时间: 2016-9-1 16:34
本帖最后由 li913 于 2016-9-1 16:36 编辑

请用半角逗号。另外建议更换主流编译器,你这个太老。
作者: PTVenn    时间: 2016-9-1 16:41
li913 发表于 2016-9-1 16:34
请用半角逗号。另外建议更换主流编译器,你这个太老。

原来如此哈哈,非常感谢!一时忘记了!




欢迎光临 Fortran Coder (http://bbs.fcode.cn/) Powered by Discuz! X3.2