FORTRAN77でプログラミング
今年、大学の授業でFORTRAN77を使ったプログラミングを勉強することになりました。
今で３回授業が終わったところなのですが、いきなりつまずいてしまい皆さんの知恵をお借りしたいと思います。。
作るプログラムは
問：摂氏(C)、華氏(F)、絶対温度(K)のいずれかの値を
{ xx(温度の数値）,yy(CかFかK) }のように入力したときに、入力した値以外の単位での温度値が表示されるプログラムを作れ。
自分なりに作ってみたのが下のプログラムです。
全く論外なプログラミングをしているかもしれませんが…。
（自作）
c234567
implicit none
real n,cx,fx,kx
character*1 d,c,f,k
c n:入力値 d:入力された温度の値 C:摂氏 F:華氏 K:絶対温度
write(*,*) '温度値、単位を表す文字を入力してください。'
read(*,*)n,d
if(d.eq.c)then
cx=n
fx=cx*(9/5)+32
kx=cx+273.15
else
if(d.eq.f)then
fx=n
cx=(fx-32)*(5/9)
kx=cx+273.15
else
kx=n
cx=kx-273.15
fx=cx*(9/5)+32
end if
end if
write(*,50) cx,'C',fx,'F',kx,'K'
50 format(' ',f7.3,a3,f7.3,a3,f7.3,a3)
stop
end
これをどうしたらいいのでしょうか。
ちなみに、使用しているFORTRAN77は
Compaq Visual Fortran Optimizing Compiler Version 6.1 です。
どうぞよろしくお願いします。
お礼
やはり一般的な書き方ではないのですね。 ありがとうございました。