e_121_05.f90

来自「Fortran77和90/95编程入门对应的程序源码」· F90 代码 · 共 9 行

!---函数的计算---
real :: f, x, a
f(x) = x**5+6*x**4+2*x**3+x**2+4  ! 簡単な関数の定義※※※简单函数※※※

write(*,'(10(''武二郎喊道：“酒家”！''/)''伙计连忙陪上笑脸：“客官要点啥”？'')')
read *, a
print *, '道："小菜一碟罢了"：f(', a, ')=', f(a)
end