بخشی از پاورپوینت
--- پاورپوینت شامل تصاویر میباشد ----
اسلاید 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
