一元二次方程的求解是數(shù)學(xué)中常見(jiàn)的問(wèn)題，我們可以使用Fortran編程語(yǔ)言在Windows平臺(tái)上動(dòng)態(tài)輸入系數(shù)a、b和c，并求解方程。 Fortran代碼示例 以下是用Fortran編寫的一元二次方程

一元二次方程的求解是數(shù)學(xué)中常見(jiàn)的問(wèn)題，我們可以使用Fortran編程語(yǔ)言在Windows平臺(tái)上動(dòng)態(tài)輸入系數(shù)a、b和c，并求解方程。

Fortran代碼示例

以下是用Fortran編寫的一元二次方程求解的代碼：

subroutine dy
  implicit none
  real*8 :: a, b, c, x1, x2
  ! 輸入a、b、c
  print *, "請(qǐng)輸入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)
  ! 打印結(jié)果
  print *, "方程的解為：", x1, x2
end subroutine dy

使用Codeblocks IDE進(jìn)行快速安裝

關(guān)于在Windows平臺(tái)上快速搭建Fortran開發(fā)環(huán)境，可以參考百度經(jīng)驗(yàn)中的相關(guān)教程：Windows下極速搭建Fortran開發(fā)環(huán)境

編輯源代碼文件

在Codeblocks IDE中，新建一個(gè)Fortran項(xiàng)目，并將以下代碼復(fù)制到源代碼文件中：

program main
  implicit none
  real*8 :: a, b, c, x1, x2
  ! 輸入a、b、c
  print *, "請(qǐng)輸入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)
  ! 打印結(jié)果
  print *, "方程的解為：", x1, x2
end program main

編譯與運(yùn)行

在Codeblocks IDE中進(jìn)行編譯，并運(yùn)行程序。程序會(huì)動(dòng)態(tài)地接收用戶輸入的a、b和c，并計(jì)算出方程的解。