ساختارهای کنترلی فرترن

ساختارهای کنترلی

 

 

ساختارهای کنترلی جهت اجرای برنامه را کنترل می کنند.

 

 

ساختار IF

 

 

این ساختار یک ساختار تصمیم گیری است. در این ساختار بنابر حاصل یک مقایسه اجرای برنامه به جای دیگری منتقل می شود. ساختار عمومی آن به شکل زیر است.

 

 

IF (First condition statement) THEN

 

 

                First sequence of commands

 

 

ELSE IF (Second condition statement) THEN

 

 

                Second sequence of commands

 

 

ELSE IF …

 

 

                …

 

 

ELSE

 

 

                Alternative sequence of commands

 

 

END IF

 

 

برای مثال برای یافتن علامت یک عدد می توان از بخش زیر استفاده کرد:

 

 

IF (number .LT. 0) THEN

 

 

            sign=-1

 

 

ELSE IF (number .GT. 0) THEN

 

 

            sign=1

 

 

ELSE

 

 

            sign=0

 

 

END IF

 

 

می توان برای اجرای یک IF با یک دستور، آنرا در یک خط خلاصه کرد. در این حالت از THEN ، ELSE و END IFصرفنظر می شود.

 

 

IF (Condition statement) Statement to be executed

 

 

IF (r==0) WRITE(*,*) 'r=0'