- 357 名前：デフォルトの名無しさん mailto:sage [2006/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
