您所在位置：主题：[讨论]为什么没有结果，太奇怪了
zhuizhui
[专家分：0] 发布于 2010-11-12 20:55:00
character::op,p
real::x,y
do
read *,x,op,y
select case(op)
case('+')
print *,x+y
case('-')
print *,x-y
case('*')
print *,x*y
case('/')
if(y==0) then
print *,"chu shu wei 0!"
else
print *,x/y
endif
case default
print *,"shu ru cuo wu"
end select
print *,"if you want to contineu,press y"
print *,"if you not,press n"
read*,p
if(p=='n') then
exit
else
cycle
endif
enddo
end
这个程序是一个计算器程序，输入如：3+5
2-6 6*2 9/6然后问你是否继续，如果继续就按y，结束就按n
这个程序编译没有错误，关键是没有结果，一执行就没得反应啊
哪个高手帮帮我啊，
real::x,y
do
read *,x,op,y
select case(op)
case('+')
print *,x+y
case('-')
print *,x-y
case('*')
print *,x*y
case('/')
if(y==0) then
print *,"chu shu wei 0!"
else
print *,x/y
endif
case default
print *,"shu ru cuo wu"
end select
print *,"if you want to contineu,press y"
print *,"if you not,press n"
read*,p
if(p=='n') then
exit
else
cycle
endif
enddo
end
这个程序是一个计算器程序，输入如：3+5
2-6 6*2 9/6然后问你是否继续，如果继续就按y，结束就按n
这个程序编译没有错误，关键是没有结果，一执行就没得反应啊
哪个高手帮帮我啊，
