?? ex1105.f90
字號:
module MA
implicit none
interface getx
module procedure getx1
module procedure getx2
end interface
contains
subroutine getx1(a,b)
real a,b
write(*,"('x=',F5.2)") -b/a
return
end subroutine
subroutine getx2(a,b,c)
real a,b,c
real a2, d, sqrt_d
a2=2*a
d=b*b-4*a*c
if ( d>=0 ) then
sqrt_d = sqrt(d)
write(*,"('x=',F5.2,',',F5.2)") (-b+sqrt_d)/a2, (-b-sqrt_d)/a2
else
write(*,*) "無實數(shù)解"
end if
end subroutine
end module
program main
use MA
implicit none
call getx(1.0,2.0) ! 實際會調(diào)用getx1
call getx(1.0,3.0,2.0) ! 實際會調(diào)用getx2
end program
?? 快捷鍵說明
復(fù)制代碼
Ctrl + C
搜索代碼
Ctrl + F
全屏模式
F11
切換主題
Ctrl + Shift + D
顯示快捷鍵
?
增大字號
Ctrl + =
減小字號
Ctrl + -