دانلود پاورپوینت کامپیوتر ( عمليات تکرار Repetition در برنامه نویسی )

به منظور جلوگيری از اغتشاش بهتر است حتماً حلقه ها دارای اسم باشند (به مثال زير توجه شود)
PROGRAM averscore
REAL :: mark, average
INTEGER:: stid, loop ,n
WRITE(*,*)”type in the number of students”
mainloop: DO
WRITE(*,*) Please give student id
READ(*,*) stid
IF (stid==0) EXIT mainloop
average=0
innerloop: DO loop=1,n
WRITE(*,*) Please enter mark
READ(*,*) mark
IF (mark==0) CYCLE innerloop
negs: IF (mark<0) THEN
WRITE(*,*) Wrong mark. Start again
CYCLE mainloop
END IF negs
average=(average+mark)
END DO innerloop
average=(average)/n
WRITE(*,*) Average of student,stid, is = ,average
END DO mainloop
END PROGRAM averscore

برای جهش به پايين بلوک و برگشت به ابتدای آن ولی با اين دستور کنترل از حلقه خارج نمی شود
معادل continue در C
Do
WRITE(*,*) “type the password”
READ(*,*)yourword
IF (yourword/=password)CYCLE
WRITE(*,*)”that’s right, now type a new password”
READ(*,*) password
WRITE(*,*) “the new password is”,password
EXIT
END DO
اگر کلمه رمز درست تايپ نشود کاربر هرگز نمی تواند از حلقه خارج شود