ساختارهای کنترلی
ساختارهای کنترلی جهت اجرای برنامه را کنترل می کنند.
ساختار 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'
