彭国伦教材P98课后第三题

15235312522 · 发表于 2020-6-30 09:47:13

彭国伦教材P98课后第三题，所得税有三个等级，岁年龄不同有不同算法。求教我的程序错在哪里

vvt · 发表于 2020-6-30 10:31:09

end case 改为 end select

15235312522 · 发表于 2020-6-30 11:23:48

vvt 发表于 2020-6-30 10:31
end case 改为 end select

改了，还是有两个问题
错误 1 error #5082: Syntax error, found IDENTIFIER 'TAX' when expecting one of: THEN
错误 2 Compilation Aborted (code 1)

vvt · 发表于 2020-6-30 14:17:55

重新给你改正后的代码。尽可能复制粘贴（不截图）

15235312522 · 发表于 2020-6-30 16:32:35

好的

[Fortran] 纯文本查看 复制代码

program test0503
implicit none
integer age
real income,tax

write(*,*) "Input your age:"
read(*,*) age
write(*,*) "Input your income:"
read(*,*) income

select case(age)
case(0:49)
if(income>=0.0.and.income<=1000.0) then
  tax=income*0.03
else if(income>1000.0.and.income<=5000.0) then
  tax=income*0.10
else if(income>5000.0) then
  tax=income*0.15
else if(income<0.0)  tax=0
end if
case(50:)
if(income>=0.0.and.income<=1000.0) tax=income*0.05
if(income>1000.0.and.income<=5000.0) tax=income*0.07
if(income>5000.0) tax=income*0.10
if(income<0.0)  tax=0
case default
  tax=0
end select

write(*,*) "Tax:"
write(*,*) tax

stop
end

Transpose · 发表于 2020-6-30 17:21:04

15235312522 发表于 2020-6-30 16:32
好的
program test0503
implicit none

[Fortran] 纯文本查看 复制代码

program test0503
implicit none
integer age
real income,tax

write(*,*) "Input your age:"
read(*,*) age
write(*,*) "Input your income:"
read(*,*) income

select case(age)
case(0:49)
if(income>=0.0.and.income<=1000.0) then
  tax=income*0.03
else if(income>1000.0.and.income<=5000.0) then
  tax=income*0.10
else if(income>5000.0) then
  tax=income*0.15
else if(income<0.0) then
!这个地方用了elseif就要用then
 tax=0
end if
case(50:)
if(income>=0.0.and.income<=1000.0) tax=income*0.05
if(income>1000.0.and.income<=5000.0) tax=income*0.07
if(income>5000.0) tax=income*0.10
if(income<0.0)  tax=0
case default
  tax=0
end select

write(*,*) "Tax:"
write(*,*) tax

stop
end

15235312522 · 发表于 2020-6-30 17:44:48

收到，程序正常了，谢谢老师

[读物] 彭国伦教材P98课后第三题

规矩勋章

元老勋章

新人勋章

水王勋章

热心勋章