امثلة على الحلقات DO WHILE LOOP في لغة FORTRAN

حلقة do while :

تقوم do while loop بتنفيذ كتلة من العبارة أولاً ثم تتحقق من الحالة. اذا عاد الشرط صحيحًا ، فستواصل الحلقة تكرارها.

إنها مشابهة  لـ while loop ولكن الاختلاف الوحيد هو أنه في حلقة do-while سيتم تنفيذ كتلة من العبارات داخل جسم الحلقة مرة واحدة على الأقل.

ايجاد العاملة Factorial :

program factorial  
implicit none  

   ! define variables
   integer :: nfact = 1   
   integer :: n = 1 
   
   ! compute factorials   
   do while (n <= 10)       
      nfact = nfact * n 
      n = n + 1
      print*,  n, " ", nfact   
   end do 
end program factorial 

الخرج:

2             1
3             2
4             6
5            24
6           120
7           720
8          5040
9         40320
10        362880
11       3628800