close
تبلیغات در اینترنت
انجمن زیپ(دانلود نرم افزار .فیلم آموزشی سریال آهنگ...)

دستور if

در این بخش یاد می گیرید که چگونه از میان چند انتخاب یکی در زمان اجرای برنامه انتخاب شود.

دستور if : این دستور وظیفه ی شرط گذاشتن روی چند انتخاب را به عهده دارد . شکل کلی :                then شرط if

  (دستور یا دستورات)

برای شرط گذاری از دو متغیر یا عدد و در بین آن ها از 3 علامت > > = استفاده می شود.

مثال : if a = 5 then

 If a > 5 then

   If a < 5 then 

در این مثال نشان داده شده است که اگر متغیر a بزرگ تر یا کوچک تر یا مساوی با 5 بود بعد دستورات لازم انجام بده.

مثال

Var

 A : integer;

Begin

If a > 5 then

Writeln('bigger');

If a < 5 then

Writeln('smaller');

If a = 5 then

Writeln('equal');

End.

اگر بخواهیم که دستور if بیش از یک دستور را شرط گذاری کند باید ابتدا و انتهای آن دستورات یک begin و end; علاوه بر begin و end. اصلی برنامه بگذاریم .

مثال :

Var

 A,b: integer;

Begin

If a = 10 then

Begin

Writeln('bingo');

Read(b);

Writeln(b);

End;

End.

در برنامه بالا اگر شرط مساوی بودن متغیر a با 10 درست بود بعد کلمه bingo را چاپ می کند سپس متغیر b را می خواند و پس از آن مقدار آن را چاپ می کند.

اگر بخواهیم که برای انجام دادن دستورات یک شرط مد نظر نباشد بلکه دو یا چند شرط باشد باید از شروط ترکیبی استفاده کنیم :

Or : متغیر ما مساوی با یک متغیر یا مساوی با یک متغیر دیگر باشد.

مثال :

Var

 A,b,c : integer;

Begin

A:=5;

B:=10;

Read(c);

If c = a or b then

Writeln('bingo');

End.

در این برنامه مقدار اولیه ی متغیر های a و b به ترتیب مساوی با 5 و 10 می باشد.سپس مقدار متغیر c از کار بر گرفته می شود اگر مقدار متغیر c مساوی با a که مقدار آن 5 است یا مساوی با متغیر b که مقدار آن 10 است باشد پیغام bingo را چاپ می کند.

And : متغیر ما مساوی با یک متغیر و مساوی با یک متغیر دیگر باشد.

مثال :

Var

 D,e,f : integer;

Begin

D:=5;

Read(e);

Read(f);

If d = e and f then

Writeln('bingo');

End.

در برنامه بالا مقدار اولیه ی متغیر d 5 است.سپس مقدار متغیر های e و  f از کاربر گرفته می شود اگر مقدار آن ها مساوی با مقدار متغیر d که مقدار آن 5 است باشد بعد پیغام bingo را چاپ می کند.

Not : متغیر ما نامساوی با یک یا چند عدد یا متغیر باشد.

مثال :

Var

 A,c : integer;

Begin

A:=15;

Read(c);

If c = not a then

Writeln('bingo');

End.

در برنامه ی بالا مقدار اولیه ی متغیر a 15 است.سپس مقدار متغیر c از کاربر گرفته می شود.اگر مقدار متغیر c نا مساوی با مقدار متغیر a که مقدار آن 15 است باشد بعد پیغام bingo چاپ می شود.

 

+ نوشته شده در دوشنبه 26 دي 1390ساعت 20:48 توسط انجمن زیپ | | تعداد بازدید : 388
عناوين آخرين مطالب ارسالي
» دانلود بازی طناب را ببر Cut the Rope HD v2.5.2 اندروید
» حل تمرینات و پروژه های برنامه نویسی سی پلاس پلاس ++
» دانلود بازی Viber Candy Mania
» نرم افزار امنیتی tenCube WaveSecure Lite v3.01.43 S60v3
» ترفند های بازی کلش اف کلنز
» کتاب حسابداری شرکت ها
» دانلود کتاب SQL server 2012
» از قلب ویندوز خود نسخه ی پشتیبان تهیه کنید
» ۱۴ دانستنی جالب در مورد اینترنت
» جدید ترین نسخه Avant Browser 2012 Build 190
» عکس
» از کامپيوتر و ويندوز بيشتر بدانید ( آموزش )
» آموزش پایه ای ویژوال بیسیک 6
» مجموعه سوالات مهم کامپيوتری
» دانلود جدیدترین نسخه Google Chrome 25.0.1323.1 Dev
» دانلود کتاب آموزش روش صحیح sql server 2008 فارسی
» دانلود مرورگر فایر فاکس 19 نسخه بتا
» جدول ضرب
» چک کردن اعداد اول
صفحات دیگر