بخشی از پاورپوینت

--- پاورپوینت شامل تصاویر میباشد ----

اسلاید 1 :

انواع

IF

CASE

DO

توجه: در فرترن احکام غير اجرايي (مثل اعلان) در اين بلوک ها پذيرفته نمی شود

هر کدام ازاين بلک ها می تواند با نوعی ديگر به صورت متداخل ترکيب شوند

جهت سهولت در فهم برنامه می توان به دلخواه به هر بلوک يک نام اختصاص داد

اسلاید 2 :

دستور های شرطی
Conditional Statements

  • هر تصميمی احتياج به برآورده شدن شرط يا شروطی دارد (حتی در زندگی روز مره)
  • با بر آورده شدن شرايط يک سری عمليات انجام می گيرد

اگر هوا آفتابی باشد

  • ............
  • .............
  • شرايط به صورت دستور های منطقی بيان می شوند که بر اساس نتيجه TRUE يا FALSE عملياتی انجام می گيرد

اسلاید 3 :

جريان کنترل FLOW CONTROL

  • انتخاب و کنترل مسير اجرای برنامه از ابزار مهم و قدرتمند در برنامه نويسی است
  • در فرترن 90 و C دو ساختار زير جهت کنترل اجرا براساس خروجی يک عبارت منطقی مورد استفاده قرار می گيرد

ساختار و دستور IF

سازه و دستور CASE

اسلاید 4 :

ساختار و دستور IFدر فرترن
 IF statement and construct

  • ساده ترين فرم IF

IF (Logical Expression) Executable Statement

Statement  : هر دستور اجرايي ( نه غير اجرايي و بجز END و خود دستور ديگری از IF)

اگر Logical Expression مقداری TRUE باشد انگاه دستور statement اجرا می شود

در اين ساختار هميشه دستور بعد از آن اجرا می شود

  Statementفقط بايد يک دستور واحد باشد

مثال

IF (x<0.0) x=0.0

اسلاید 5 :

ساختار
IF THEN

  • ساده ترين بلوک IF
  • چنانچه نتيجه دستوری منطقی TRUE باشد بلوکی شامل مجموعه ای از دستورات اجرا می شود
  • در غير اينصورت اجرا به بعد از END IF منتقل می گردد
  • فرم کلی

[name:] IF (logical expression) THEN

                  block1

               END IF   name

اسلاید 6 :

ساختار
IF THEN ELSE

اجازه می دهد بر اساس نتيجه منطقی دو مسير مختلف انتخاب گردد. يک مسير با true بودن و مسير ديگر با false بودن اجرا می شود. در هر تکرار فقط يک بلوک می تواند اجرا شود

[name:] IF (logical expression) THEN

                       block1

                  ELSE

                       block2

                  END IF name

اسلاید 7 :

ساختارچند گانه
Cascaded IF THEN ELSE

  • چندين گزينه پشت سر هم امکان پذير است
  • تنها يک گزينه می تواند در هر بار اجرا شود
  • به مجرد اجرای يک گزينه کنترل به انتهای END IF می رود
  • در فرترن 90 با ساختار CASE جايگزين شده است

[name:] IF (logical expression) THEN

                       block1

                  ELSE IF (logical expression) THEN

                       block2

                  ELSE IF (logical expression) THEN

            bolock3

      ELSE

            block4

                  END IF name

 

اسلاید 8 :

مثال ساختار IF

برنامه ای بنويسيد که بر اساس شکل سطح (دايره circle، مثلث triangle و مستطيل Rectangle) در هر مورد مساحت آنها را محاسبه نمايد

PROGRAM shap

! Finding area of a surface based on shape identification

! shap= shape ID CHARACTER variable

!radius= radius of circle

!base= base of rectangle or Triangle

!Height=height of rectangle or Triangle

REAL:: area, radius, base, height, pi

CHARACTER (10):: shap

Pi=3.14

!input shape ID to choose a branch

PRINT*, “input shape ID as “”circle””, “”triangle””,&

&“”rectangle””.”

READ(*,*) shapادامه در صفحه بعد

اسلاید 9 :

IF (shap(1:1) == “c” . OR. shap(1:1) == “C” )THEN

     PRINT*, “input radius of circle”

     READ (*,*) radius

     Area=pi*radius**2.

     PRINT*, “radius and area for circle”, radius, area

ELSE IF (shap(1:1) == “t” . OR. shap(1:1) == “T” )THEN

     PRINT*, “input base and height of triangle”

     READ(*,*) base, height

     Area=0.5*base*height

     PRINT*, “base, height and area for triangle are”, base, height, area

ELSE IF (shap(1:1) == “r” . OR. shap(1:1) == “R” )THEN

     PRINT*, “input base and height of rectangle”

     READ (*,*) base, height

     Area=base*height

     PRINT*, “base, height and area for rectangle are:”, base, height, area

ELSE

    PRINT*, “the requested shape is not a circle, triangle or rectangle”

END IF

END PROGRAM shap

 

اسلاید 10 :

ساختار متداخل
Nested IF THEN ELSE

  • ساختار IF را می توان به صورت متداخل نيز نوشت. بطوريکه تقريباً تداخل در هر جايي امکان پذير است
  • ماداميکه تصوير صحيحی از نوع تصميم داشته باشيد ساختاری ساده است در غير اينصورت ممکن است برنامه به درستی اجرا نشود
  • فرم کلی:

outer: IF( x>0.0 ) THEN

                block1...

                          inner: IF( y<0.0 ) THEN

                              block2….

                         END IF inner

       ELSE

       …………

      ………….

          END IF outer

در متن اصلی پاورپوینت به هم ریختگی وجود ندارد. برای مطالعه بیشتر پاورپوینت آن را خریداری کنید