do ضمنی

ابتدا باید دانست که این حلقه فقط در دستورات  read,write print مورد استفاده قرار میگیرد.

نحوۀ استفاده از آن به صورت زیر است.

read(*,*)(دستورات1,I=a,b,k),(دستورات2,I=c,d,u),دستورات دیگر,...

write(*,*)(دستورات1,I=a,b,k),(دستورات2,I=c,d,u),دستورات دیگر,...

print*,(دستورات1,I=a,b,k),(دستورات2,I=c,d,u),دستورات دیگر,...

read*,(دستورات1,I=a,b,k),(دستورات2,I=c,d,u),دستورات دیگر,...

که قسمتهای  سبز حلقۀ do^* ضمنی بوده و "دستورات دیگر" همان دستوراتی میباشند که ما قبل از یاد گیری ^*doضمنی میخاندیم ،و "دستورات" همانند "دستورات دیگر" بوده ، با این تفاوت که ما در اینجا همان شمارنده ای که در دستور ^*do استفاده میکردیم در اینجا هم برای تکرار "دستورات" به کار میبریم ، لذا در اینجا نیازی به استفاده از doو enddo نداریم.

*=دقت داشته باشید که در  اینجا دستورات در یک خط (یا سطر) به طور متوالی ؛پشت سر هم تکرار میشوند ، ولی در حلقۀ do دستورات به صورت مکرر در خطوط متوالی ، زیر یکدیگر تکرار مشوند.

به تصاویر زیر دقت کنید: