FORTRAN(関数その2)


アニメ『Just Because!』
高校卒業間際になって始まる恋愛ですね。まだ皆の心の内が分からないので、どんな想いを秘めているのだろうと、楽しみに見ています。

FORTRANです。
組み込み関数を使用して計算してみます。

takk@deb9:~$ cat math.f
      PROGRAM MAIN
      READ (*,*) A
      B=SQRT(A)
      WRITE(*,11111) B
11111 FORMAT(F5.2)
      STOP
      END

takk@deb9:~$ 
takk@deb9:~$ gfortran math.f
takk@deb9:~$ ./a.out
25
 5.00
takk@deb9:~$ ./a.out
3
 1.73
takk@deb9:~$ ./a.out
5
 2.24
takk@deb9:~$

SQRTは平方根を求める関数ですが、他の言語だとして使う時にインポートしたりインクルードしたりいろいろ必要ですが、FORTRANの場合はそのまま使えます。

他の計算もしてみましょう。

takk@deb9:~$ cat math.f
      PROGRAM MAIN
      A=LOG(10.0)
      WRITE(*,11111) A
      A=LOG10(1000.0)
      WRITE(*,11111) A
      RAD=30 * (2 * 3.14 / 360)
      A=SIN(RAD)
      WRITE(*,11111) A
      A=COS(RAD)
      WRITE(*,11111) A
      A=TAN(RAD)
      WRITE(*,11111) A
11111 FORMAT(F5.2)
      STOP
      END

takk@deb9:~$ gfortran math.f
takk@deb9:~$ ./a.out
 2.30
 3.00
 0.50
 0.87
 0.58
takk@deb9:~$

Leave a Reply

Your email address will not be published. Required fields are marked *

CAPTCHA