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

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

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

ساختار 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'