コンパイルが成功しないです;;。
fortran77初心者です。コンパイルの段階でエラーが多く、どうしてもうまくいきません。下のプログラムにアドバイスをくれる人がいたらうれしいです。お願いします。
program ex30
integer tensuu,bangou
na=0
nb=0
nc=0
ninzuu=0
goukei=0
10 write(*,*) 'bangou,tensuu?'
read(*,*) bangou,tensuu
ninzuu=ninzuu+1
goukei=goukei+tensuu
select case(tensuu) *
case(80:100) *
write(6,*) bangou,tensuu,' a'
na=na+1
case(60:79) *
write(6,*) bangou,tensuu,' b'
nb=nb+1
case default *
write(6,*) bangou,tensuu,' c'
nc=nc+1
end select *
if(ninzuu<10) go to 10 *
heikin=goukei/ninzuu *
write(6,*) 'a=',na,'mei' *
write(6,*) 'b=',nb,'mei' *
write(6,*) 'c=',nc,'mei' *
write(6,*) heikin *
60 format(' ', 'heikin', F8.3,'ten')
end
エラーが出た行には行の後半に*を付けました。
お礼
早々のご回答ありがとうございました。またお時間あればよろしくお願い致します。