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, x2end

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