mk-mode BLOG

このブログは自作の自宅サーバに構築した Debian GNU/Linux で運用しています。
PC・サーバ構築等の話題を中心に公開しております。(クローンサイト: GitHub Pages
※2018年9月15日より非力な環境でサーバを運用しているため、各ページの表示に時間がかかる場合があります。ご了承ください。(改良の予定あり)

ブログ開設日2009-01-05
サーバ連続稼働時間
Reading...
Page View 合計
Reading...
今日
Reading...
昨日
Reading...

Fortran - 階乗の計算!

[ プログラミング, 数学 ] [ Fortran ]

こんばんは。

Fortran 95 で階乗の計算をしてみました。(あまりに簡単なアルゴリズムですが)

0. 前提条件

  • LMDE 3 (Linux Mint Debian Edition 3; 64bit) での作業を想定。
  • GCC 6.3.0 (GFortran 6.3.0) でのコンパイルを想定。

1. ソースコードの作成

factorial.f95
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
!****************************************************
! 階乗計算
!
! date          name            version
! 2018.08.20    mk-mode.com     1.00 新規作成
!
! Copyright(C) 2018 mk-mode.com All Rights Reserved.
!****************************************************
!
program fact_main
  implicit none
  integer n

  do n = 0, 20
    write (*,'(I3,3X,I20)') n, fact(n)
  enddo

  stop
contains
  ! 階乗計算
  !
  ! :param  integer n
  ! :return integer fact
  integer(kind=8) recursive function fact(n)
    implicit none
    integer, intent(IN) :: n
    integer :: i

    fact = 1
    do i = 1, n
      fact = fact * i
    enddo
    return
  end function fact
end program fact_main

2. ソースコードのコンパイル

1
$ gfortran -o factorial factorial.f95

3. 動作確認

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
$ ./factorial
  0                      1
  1                      1
  2                      2
  3                      6
  4                     24
  5                    120
  6                    720
  7                   5040
  8                  40320
  9                 362880
 10                3628800
 11               39916800
 12              479001600
 13             6227020800
 14            87178291200
 15          1307674368000
 16         20922789888000
 17        355687428096000
 18       6402373705728000
 19     121645100408832000
 20    2432902008176640000

以上、

Comments