challenge Hello, world!

「Hello, world!」と表示するプログラムを作ってください。

Posted feedbacks - FORTRAN

FORTRAN-77。これまた、懐かしい。。。 7桁目から書き始めます。
1
2
3
C234567
      WRITE(*,*) '簡単なプログラム'
      END

FORTRANと言ったらこうでしょう(^^;。
1
2
3
4
5
C234567
      WRITE(6,100)
      STOP
  100 FORMAT(1H ,13HHELLO, WORLD!)
      END

 あ,題意の Hello, world! になってませんね。全部大文字になっています。でも初期のFORTRANでは全部大文字になるのが当たり前だったんです。

 最近の処理系なら小文字でもコンパイルできますけど。
1
2
3
4
5
C234567
      WRITE(6,100)
      STOP
  100 FORMAT(1H ,13HHello, world!)
      END

 1
 2
 3
 4
 5
 6
 7
 8
 9
10
11
12
13
14
Module Universe
     implicit none
     Public :: HelloWorld
     contains
         Subroutine HelloWorld()
             Print *, "Hello World"
         End Subroutine HelloWorld
End Module

Program Main
     use Universe, Only: HelloWorld
     implicit none
     call HelloWorld
End Program Main

Index

Feed

Other

Link

Pathtraq

loading...