回 帖 发 新 帖 刷新版面

主题:哪位帮小弟解决一下这个IVF初级问题?

ff.f90 
!
!  FUNCTIONS:
!  ff      - Entry point of console application.
!

!****************************************************************************
!
!  PROGRAM: ff
!
!  PURPOSE:  Entry point for the console application.
!
!****************************************************************************

    program ff

    implicit none


    ! Variables
data a,b,c,x/3,5,-2,2/
    fx=(a*x+b)*x+c
    write(*, *)'f(',x,')=',fx[/b]    ! Body of ff[/color]

    end program ff
运行出现:  error :this is an invaliddata statement object.a,b,c,x

回复列表 (共7个回复)

沙发


已经解决!去掉implicit none.但不知道为何?而且运行时结果窗口只是一闪而过,不能固定,不知为何。。。

板凳

program ff
    implicit none
    ! Variables
    real:: a, b, c, x
    real:: fx

    data a,b,c,x/3,5,-2,2/
    fx = (a * x + b) * x + c
    write(*, *)'f(',x,') = ', fx    ! Body of ff
    
    stop
  end program ff

3 楼

我不知道阁下用的是哪本书,但我建议您换一本书,原因是:
1。 作者的编程习惯不好;
2。 似乎其对浮点数不甚了解,在 Data 赋值中,整数必须先转换为浮点数再赋值,
还不如直接写成小数形式。

4 楼


楼上大哥和厉害!向你学习!

5 楼

Implicit None 绝对不能去掉!!!多好的东西啊,必不可少的。你以后就知道了,它对程序是无比重要的

6 楼

致谢五楼大哥!问题已经快速研究了下,implicit是变量设置提示,比如REAL,INTEGER,涉及参数精度设置。若是IMPLICIT NONE则表明没有任何的初始变量默认精度设置,需要自己设置!不知小弟说的对不对?还有就是第二个问题已得到解决,就在末尾结束语句前加PAUSE语句就可以固定住结果窗口了!但是问题又来了(不好意思,初出茅庐),运行GOTO语句时候在IVF中,表示行号的那个断点怎么也不能设置上去,继续求教。。。。

7 楼

很高兴终于解决楼上问题:加行号只需单独空出一行,格式为(后面那个&符号很重要,缺了就不行):
  行号 &

我来回复

您尚未登录,请登录后再回复。点此登录或注册