主题:[讨论]fortran中百分数怎么用
program exer0501
implicit none
real::income,tax
write(*,*) "input income"
read(*,*) income
if(income>5000) then
tax=income*0.15
else if(income>1000) then
tax=income*0.05
else
write(*,*) "your input is wrong"
end if
write(*,*) "yor tax is",tax
end
如果把上面的0.15,0.05改为15%和5%为什么报错
implicit none
real::income,tax
write(*,*) "input income"
read(*,*) income
if(income>5000) then
tax=income*0.15
else if(income>1000) then
tax=income*0.05
else
write(*,*) "your input is wrong"
end if
write(*,*) "yor tax is",tax
end
如果把上面的0.15,0.05改为15%和5%为什么报错