くだすれFORTRAN（超初心者用）

くだすれFORTRAN（超初心者用） at TECH

357:デフォルトの名無しさん
06/05/31 19:49:52
>>356
program parking
read(*,*) hour,fmin
write(*,*) ifee(hour,fmin)
stop
end

function ifee(hour,fmin)
totalmin=hour*60.+fmin
if(totalmin.le.60.) then
ifee=300*int(totalmin/30)
if(totalmin-30.*int(totalmin)/30.gt.0.) ifee=ifee+300
else
ifee=600+200*int(totalmin-60.)/30
if(totalmin-30.*int(totalmin-60.)/30.gt.0.) ifee=ifee+200
endif
return
end

次ページ

続きを表示

1を表示