جملات شرطی

جملات شر طی را می توانیم به حالت های مختلفی مطرح می کنیم .

1.     جمله شرطی می تواند از یک مقایسه مستقیم باشد .

مثال:

Age>12          یا         x

2.     جمله شرطی می تواند شامل محاسبات باشد .

مثال:

x>(12*a)                      یا                (x-5)<(y-5)+(x+5)

3.     جمله شرطی می تواند شامل چندین شرط باشد .

مثال:

(age >21)   and  (name='Sara')

x>=12     or      y<=x

مثال1:

خروجی برنامه زیر چیست؟

Program EXAMPL1;

       Var

           i, j: integer;

           i:=9 ;

            y:=-47;

             Writeln (' i     or    J>0='  ,   i    or   J>0);

             Writeln;

             Writeln ('( i>0)     or    (J>0)  ='  , ( i >0)  or ( J>0));

             Writeln;

            Writeln ('presenter.');

            End.

جواب:

i    or  J  

9+ ( - 47)

9 - 47

- 38<0

false

T=1

F=0

 

دستورات شرطی

1) دستورthen  ......       If

دستور If یک دستور کنترلی شرطی  است و تنها در صورتی که شرط مقدار درست داشته باشد یا نادرست اجازه می دهد عملی انجام شود .

کاربرد دستور

برای تصمیم گیری در داخل بر نامه از این دستور استفاده می کنیم و ساده ترین شکل پرش به قسمت های دیگر بر نامه می باشد.

نکته :

به دستور If اغلب دستورthen  .....  If هم می گویند.

دستور If …… then دو حالت دارد ؟

حالت 1:

1) If   شرط   then   دستورات         

 مثال2:

 بر نامه ای بنویسید که سن را بخوهد و اگر سن شخص بزرگتر و مساوی 20 باشد بنویسد very good""

Program EXAMPL2;

       Var

         age: integer;

           Begin

             Writeln (' enter age :');

             Read(Age) ;

                If Age>=20   then

                    Writeln (' very good');

            Writeln ('enter age :');

           Readln;

            End.

نکته :

اگر بخواهیم بیش از یک دستور العمل را به طور  شرطی اجرا کنیم دستورالعمل های مورد نظر را داخل کلمات begin و end قرار می دهیم .

If شرط     then ….

           Begin

       دستورات

          End;

    دستورات بعدی برنامه