آموزش دستور 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 , در خط بالایش نباید ; قرار بگیرد که من با | نشان داده ام .