作者demonhell (＃42 DH)
看板Programming
标题[问题] fortran用do跑回圈的问题
时间Thu May 24 22:31:15 2007
module global
implicit none
type login
character (len=30) :: id
character (len=30) :: name
character (len=30) :: phone_number
character (len=30) :: password
character (len=30) :: e_mail
character (len=30) :: id_check
character (len=30) :: password_check
end type
type(login) , allocatable :: l(:)
integer , parameter :: logins = 300
character (len=80) :: filename = "abc.txt"
end module
program
use global
implicit none
integer i
open (unit = 10 , file = "abc.txt" , iostat = iso)
allocate (l(logins),stat = i)
do i = 1 , logins
write(*,*) "请输入欲申请之帐号"
read (*,*) l(i)%id
write(*,*) "请输入密码"
read (*,*) l(i)%password
write(*,*) "注册成功!!"
write(10,"(A30/,A30") l(i)%id,l(i)%password
end do
end program
我要用一个阵列以及一个档案来纪录申请的帐号密码
可是如果这样用回圈跑的话，程式永远都不会停下来
如果在do中间插了一个exit，回圈又不会跑了
因为我後续还需要写检查帐号密码的程式
所以我希望第一次注册 i = 1 第二次注册i = 2 ...
请问我该怎麽写，
才可以让回圈每次都停下来，但是下次要再写的时候会写到i+1 ??
--
不要看啦，我不是签名档
这样我会害羞啦
http://www.wretch.cc/blog/demonhell
It's all about me!!!!↑↑↑↑↑↑↑
--
※ 发信站: 批踢踢实业坊(ptt.cc)
◆ From: 61.228.130.109