[問題] fortran用do跑迴圈的問題
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
Programming 近期熱門文章
PTT數位生活區 即時熱門文章
