Fortran Coder

查看: 88|回复: 2

[求助] 出现“未能完成操作”提示框且无法编译

[复制链接]

1

帖子

1

主题

0

精华

新人

F 币
10 元
贡献
4 点
发表于 2020-8-27 18:10:54 | 显示全部楼层 |阅读模式
求各位大神帮忙看看这是出了问题。。。感谢感谢
点击“启动”会报错
点击“编译”会出现图片所示
QQ截图20200827180738.png
代码也放上来了(初学菜鸡路过)
[Fortran] 纯文本查看 复制代码
program ex0524
    implicit none
    integer age
    real pay,tax
    write(*,*)"Your age?"
    read(*,"(I3)")age
    write(*,*)"Pay?"
    read(*,*)pay

    select case(age)
    case(0:49)
        if(pay>=5000)then
            tax=pay*0.15
        else if(pay>=1000)then
            tax=pay*0.1
        else if(pay>=0)then
            tax=pay*0.03
        else
            write(*,*)"WRONG PAY!!!"
            stop
        end if
    case(50:)
        if(pay>=5000)then
            tax=pay*0.1
        else if(pay>=1000)then
            tax=pay*0.07
        else if(pay>=0)then
            tax=pay*0.05
        else
            write(*,*)"WRONG PAY!!!"
            stop
        end if
    case default
        write(*,*)"WRONG AGE!!!"
        stop
    end case

    write(*,*)"Your tax is",tax
    read(*,*)
    end




回复

使用道具 举报

57

帖子

2

主题

0

精华

专家

F 币
391 元
贡献
170 点

规矩勋章

发表于 2020-8-27 22:55:43 | 显示全部楼层
1. 改read(*,*) pay 成 read *, pay
2. 改end case 成 end select
3. 去掉最后一个read(*,*)

1543

帖子

12

主题

5

精华

论坛跑堂

臭石头雪球

F 币
1458 元
贡献
958 点

美女勋章热心勋章星光勋章新人勋章贡献勋章管理勋章帅哥勋章爱心勋章规矩勋章元老勋章水王勋章

发表于 2020-8-28 07:58:18 | 显示全部楼层
第8行,read(*,*)pay 的反括号 )应该在英文状态输入。
第36行,end case 应为 end select
您需要登录后才可以回帖 登录 | 极速注册

本版积分规则

QQ|捐赠本站|Archiver|关于我们 About Us|群聊|Fcode

GMT+8, 2020-9-27 08:49

Powered by Discuz! X3.2

© 2001-2017 Comsenz Inc.

快速回复 返回顶部 返回列表