Документ взят из кэша поисковой машины. Адрес оригинального документа : http://www.mrao.cam.ac.uk/~rachael/compphys/examples/factorials.f90 Дата изменения: Tue Sep 13 13:07:48 2005 Дата индексирования: Tue Oct 2 11:58:43 2012 Кодировка: Поисковые слова: http astrokuban.info astrokuban

module fact_mod
contains
function factorial(n)
integer i,n
real (kind(1.0d0)) :: factorial
factorial=1
do i=2,n
factorial=factorial*i
enddo
end function
end module

program test
use fact_mod
integer i
write(*,*)'Please input i'
read(*,*) i
write(*,*)i,' factorial is ',factorial(i)
end