windows平台下fortran编程求解一元二次方程

1、关于codeblocks IDE的极速安装

请参考百度经验<<Windows下极速搭建fortran开发环境>>

2、编辑代码源文件，输入：

program main

    implicit none

    real*8::a,b,c,x1,x2

    !输入a,b,c

    print *, "please input a, b, c"

    read *, a, b, c

    x1=(-b+sqrt(b*b-4*a*c))/(2*a)

    x2=(-b-sqrt(b*b-4*a*c))/(2*a)

    !打印结果

    print *, "result: ",x1, x2

end

3、编译、运行，得结果：