プログラミング言語論に戻る

FORTRAN(1957)

Cygwin + Fortranコンパイラを利用する
講義スライド PDF
事前準備: Cygwinをインストールしておく
Cygwin実行
- Cygwinアイコンをダブルクリック
- Cygwinウィンドウ表示
Hello World
- Cygwin上でエディタを実行し、ファイル hello.f を作る。Viをすすめる。
```
vim hello.f
```
  Emacsでもよい。
```
emacs hello.f
```
  軟弱ものはメモ帳でもよい。
```
notepad hello.f
```
- プログラムHello Worldを入力し、保存する。空白に注意!
```
      print *,'Hello, world!'
      end
```
- Fortran77コンパイラでコンパイル
```
gfortran hello.f
```
- 実行
```
./a
```
  実行結果
```
 Hello, world!
```
コンパイル -o オプションで実行プログラム名を指定
```
gfortran -o hello.exe hello.f
```
FORTRAN命令
- 標準入力 read.f
  read 書式, 入力項目並び
  *はデフォルト書式
```
read *,a
```
- 標準出力 print.f
  print 書式, 出力項目並び
  *はデフォルト書式
```
print *,a
print *,'your input is',a
```
- 整数
```
integer i
```
- 実数 real.f
```
real r
```
  暗黙の型宣言により、型宣言しない変数は、a-h,o-zで始まる変数は実習型、i-nで始まる変数は整数型となる。
- 文字列 char.f
  character 変数名*長さ
```
character c*5
c='hello'
```
- GOTO文 goto.f
  goto 文番号
```
goto 10
```
- IF文 if.f
  if (条件) 処理
```
if(a.eq.5) print *,'=5'
```
  if (条件) then
  条件が真の場合の処理
  else
  条件が偽の場合の処理
  end if
```
if(a.eq.5) then
print *,'=5'
else
print *,'<>5'
end if
```
- DO文 do.f
  DO 文番号変数=初期値, 最終値 [,刻み幅]
  繰り返したい処理
  文番号 CONTINUE
```
      do 10 i=1,10
      print *,i
10    continue
```
- SIN関数 sin.f
```
s=sin(a)
```
- 四則演算 math.f
```
d=(3*4)/2
```
課題: 砲台ゲームをFORTRANで作る
1. キーボードから角度aと速度sを入力する
2. 砲弾の着弾点dを計算 d=s²Sin(2a)/9.8
3. もし着弾が 500m +/-10m なら命中で終了
4. はずれならやり直し
水色キーボードからのユーザ入力
```
$ ./canon
 enter angle
0.6
 enter speed
60
 canon landed at  342.381683
 enter angle
0.65
 enter speed
65
 canon landed at  415.41156
 enter angle
0.68
 enter speed
68
 canon landed at  461.392456
 enter angle
0.69
 enter speed
70
 canon landed at  490.926758
 Target hit!
$ _
```
Fortranソースコード提出先:
題名: Fortran
提出期限: 次回授業開始前まで