作者libra1005 (PTT乡民)
看板Fortran
标题[问题] 想请问一个cycle的问题
时间Thu Sep 17 14:12:27 2009
program ex0502
implicit none
real(kind=4)::ma,age,IQ
integer::counter
integer parameter::limit=5
do counter=1,limit
if(age<=0)cycle
write(*,*)"请输入心理年龄"
read(*,*)ma
write(*,*)"请输入实际年龄"
read(*,*)age
IQ=(ma/age)*100
end do
if(IQ>140)then
write(*,*)"您是天才"
else if(IQ<140.and.IQ>120)then
write(*,*)"您的智力非常优秀"
else if(IQ<120.and.IQ>110)then
write(*,*)"您的智力优秀"
else if(IQ<110.and.IQ>90)then
write(*,*)"您的智力普通"
else if(IQ<90.and.IQ>80)then
write(*,*)"您的智力偏低"
else if(IQ<80.and.IQ>70)then
write(*,*)"您的智力有缺陷"
else if(IQ<70.and.IQ>0)then
write(*,*)"您的智力属於低能程度"
else
write(*,*)"给你爸装笑伟"
end if
stop
end
这样写有两个错误，
1.C:\Program Files\Microsoft Visual Studio\MyProjects\0202\2020.f90(5) :
Error: Syntax error, found IDENTIFIER 'PARAMETER' when expecting one of
: ( : % . = => integer parameter::limit=5
------------------------------^
2.C:\Program Files\Microsoft Visual Studio\MyProjects\0202\2020.f90(7) :
Error: This name does not have a type, and must have an explicit type.[LIMIT]
do counter=1,limit
-------------------^
小弟试着找出，但不知道是甚麽意思错误，请高手解惑，感激不尽。
--
--
※ 发信站: 批踢踢实业坊(ptt.cc)
◆ From: 140.116.200.92
1F：→ gazzy:integer, parameter::limit=5 09/17 15:26
2F：→ libra1005:谢谢您的解答，但我改正之後还有一个错误 09/17 15:42
3F：→ libra1005:ＯＫ了 谢谢你 09/17 15:44
4F：→ UDP:按照1F修改後，测试没错误ㄚ..... 09/18 16:25
5F：→ gaiger:请问原po用谁的complier ? 怎可以吃中文? 09/19 02:25
6F：→ UDP:那不是吃中文，吃的是ASCII 09/20 01:26