آموزش دستور if در پاسکال

امروز می خواهم یک دستور مهم و پر کاربرد را به شما آموزش بدهم :

 دستور if :

این دستور را اگر بخواهیم با معنای فارسی آن که در ( ) نوشته ام بنویسیم اینطور می شود :

(سپس)then

(شروع)begin

;دستورات

;(پایان)end

که یعنی اگر شرط ما درست بود دستورات را انجام بده .

مثال :

در مثال زیر یک عدد از کاربر می گیریم و اگر آن عدد از 100 بزرگتر بود yes و اگر مساوی 100 بود yesnoو اگر کوچکتر از 100 بود noرا در جواب نمایش میدهد .

;Program sarzamin

;Uses WinCRT

var

;a:integer

Begin

;clr scr

;('write('enter greade of our weblog more than 100 or 100 or lessthan 100

;(readln(a

if a>100 then

begin

;('writeln ('yes

;end

if a=100 then

begin

;('writeln ('yesno

;end

if a<100 then

begin

;('writeln ('no

;end

.End

همانطور که در مثال بالا دیدید در بیان شرط از علامت های <>= استفاده کرده ایم . در زیر اینگونه علامت ها را به طور کامل توضیح می دهیم .

تساوی =

نامساوی<>

کوچکتر>

بزرگتر<

کوچکتر یا مساوی >=

بزرگتر یا مساوی <=

نکته :

اگر ما از دستور ifدر یک خط استفاده کنیم نیاز به brginو endنیست مانند این مثال :

('if a=100 then writeln('yesno

توجه :

از {} برای نوشتن توضیحات در وسط کد استفاده می شود . از این پس هر متنی را که در میان {} در کدها نوشتیم فقط برای توضیح بیشتر است .

# دستور ifبه همراه else

این دستور دقیقا" مثل ifاست ولی فقط قسمتی به نام elseدارد که توضیح می دهم :

(سپس)then

(شروع)begin

;دستورات

|(پایان)end

(در غیر اینصورت)else

(شروع)begin

;دستورات

;(پایان)end

;End

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

نکته :

قبل از else , در خط بالایش نباید ; قرار بگیرد که من با | نشان داده ام .