مرجع دانلود پاورپوینت های درسی

حجم فایل : 57.2 KB
نوع فایل : پاور پوینت
تعداد اسلاید ها : 20
بنام خدا 1 2 عمليات تکرار Repetition از مهمترين ويژگيهای هر زبان برنامه نويسی است که اجازه می دهد تا يک بلوک از دستورات مکرراً اجرا گردد.
ساختار DO (DO Construct) در فرترن
جهت تکرار بلوک هايي از دستورات مختلف
فرم کلی
[name:] DO [Control Clause شرط کنترل ]
block
END DO [name] 3 انواع حلقه های DO حلقه با تکرار نامحدود
[name:] DO
block of statements
END DO [name]
باعث تکرار بلوک تا بی نهايت می گردد
مثال:
e=1.0; k=1; j=1

DO
e=e+1.0/REAL(j)
k=k+1
j=j*k

END DO
در اين نوع حلقه برنامه به وضوح متوقف نمی شود
برنامه تا انجا ادامه می دهد تا j از برد پردازنده بيشتر شود 4 کنترل حلقه DO بی نهايت دستور EXIT ( همراه با دستور IF)
کنترل به اولين دستور بعد از END DO می رود
مثال:
INTEGER::ifib(100)
Ifib(1)=1; ifib(2)=1; i=3
DO
ifib (i)=ifib(i-1)+ifib(i-2)
i=i+1
IF(i>100)EXIT
END DO 5 دستور STOP دستوری ساده ولی قوی (شبيه تابع exit در C)
اين دستور اجرای برنامه را در هر جا که باشد (ازجمله داخل حلقه تکرار) متوقف می کند
اين دستور با يد همراه با نوعی از دستور IF باشد
IF (condition) STOP
يا
IF (condition) THEN
block of statements
STOP
END IF
6 حلقه DO WHILE فرم کلی
DO WHILE (condition)
block of statements
END DO
ماداميکه condition به صورت TRUE باشد حلقه تکرار خواهد شد در غير اينصورت کنترل به دستور بعد از END DO می رود
اين حلقه معادل حالت زير است:
DO
IF (.NOT. condition) EXIT
block of statements
END DO 7 مثال x=1.0; y=1.0; z=1.0; count=0
Sample:DO WHILE ((x**2+y**2+z**2)<1000000.0)
xplus=10.0*(y-x)
yplus=x*z+28.0*x-y
zplus =x*y-8.0*z/3.0
Test=ABS(xplus)+ABS(yplus)+ABS(zplus)
IF (test<=0.000001)EXIT
Count=count+1
END DO sample 8 دستور CYCLE در حلقه های DO برای جهش به پايين بلوک و برگشت به ابتدای آن ولی با اين دستور کنترل از حلقه خارج نمی شود
معادل 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
اگر کلمه رمز درست تايپ نشود کاربر هرگز نمی تواند از حلقه خارج شود

9 حلقه های متداخل و دستور های EXIT و CYCLE به منظور جلوگيری از اغتشاش بهتر است حتماً حلقه ها دارای اسم باشند (به مثال...