آموزش زبان برنامه نویسی پاسکال – قسمت اول

عملگر ها:

انواع عملگر ها عبارت است از:
۱٫عملگرهای رابطه ای

۲٫عملگرهای منطقی

۳٫عملگر های محاسباتی
عملگرهای رابطه ای:

آن دسته از عبارات منطقی که عمل مقایسه را انجام می دهند یکی از اشکال زیر را دارند:
Variable relational-operator Variable
Variable relational-operator constant

عملگر های رابطه ای به شرح زیرند:
> کوچکتر
< بزرگتر
<= بزرگتر مساوی
= > کوچکتر مساوی
<> نامساوی
= مساوی

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

عملگرهای منطقی:

با استفاده از عملگر های منطقی not , or , and می توان عبارات منطقی پیچیده تری ایجاد نمود .

مثال :
(x < y ) or (y > 5)

متغیر های منطقی در واقع عبارات منطقی هستند . بنابر این از آنها می توان به عنوان عملگر های منطقی استفاده نمود .

مثال
X and (not y

جداول درستی :

عملگر And و OR:

عملوند۲ OR عملوند ۱ عملوند۲ and عملوند ۱
عملوند۲
عملوند ۱

True True
True
true

True false
False
True

False True
true
false

False False
False
False
عملگر Not:

عملوند ۱ not
عملوند ۱

false
true

True
false
تقدم عملگرها ترتیب ارزیابی را مشخص می کند.جدول تقدم عملگرها عبارتند از :
عملگر

Not

* / div mod and

+ – or

< <= = <> >= >

دستورات کنترلی:

۱٫دستور IF:

در پاسکال یک ساختار انتخابی ابتدایی شامل دستور IF است که در دستور همراه یک عبارت منطقی قرار می گیرد .دستور IF مشخص می کند که در یک حالت خاص ، کدام مجموعه از دستورات باید اجرا شوند.

دستور if یک انتخابی:
If condition then
Statement-

دستور if دو انتخابی:
If condition then
Statement1
Else Statement2

مثال: برنامه ای بنویسید که تعداد فرزندان و حقوق پایه و رتبه یک کارگر را از ورودی دریافت کرده و حقوق کلی او را بر اساس فرمول زیر حساب کند؟

کسریها – مزایا + بیمه = حقوق کل
۵*رتبه+۱۰۰۰* تعداد فرزندان =مزایا
مالیات+بیمه=کسریها
بیشتر
کمتر یا مساوی ۲
تعداد فرزند

تعداد فرزندان
۱۰۰۰
بیمه

هر چیزی دیگر
۰تا ۲۰
رتبه

حقوق پایه
حقوق پایه*۱۰۰/۱۰
مالیات
Program salary_kol;
uses wincrt;
Var
Salary:longint;
kasry,bimeh,mazaya,kol,net:real;
Num,grade:integer;
Begin
Writeln(‘Enter salary and grade and number of child’);
Readln(salary,grade,num);
If num<=2 then
Bimeh:=100
Else
Bimeh:=num*500;
If (grade>0) and (grade<=20) then
begin
Net:=20/100*salary;
Mazaya:=num*1000+grade*50 ;
Kasry:=bimeh+net;
Kol:= salary+mazaya-kasry;
End
Else
If (grade>20)then
begin
Net:=20/100*salary;
Mazaya:=num*1000+grade*50 ;
Kasry:=bimeh+net;
Kol:= salary+mazaya-kasry;
End;
Writeln(‘salary kol is:’,kol);
Readln;
End.
دستور case:

برای انتخاب یک حالت از چندین گزینه ، در پاسکال علاوه بر دستور if ،دستور دیگری به نام case وجود دارد. Case میتواند تعدادی شرط را بگیرد و انتخاب کند.

مقادیری را که دستور case می پذیردORDINAL است .مقادیری که دارای ORDINAL هستند دارای ترکیب نیستند و همچنین قابل شمارش هستند مثل :integer,character,byte,boolean,longint,…پسstring,real,… نمی توانند ORDINAL باشند.دستور case دارای begin نمی باشد.
Case selector of
Label : statement ;
Label : statement ;
.
.
.
.
.
label : statement
end [case]

مثال:
case N of
1,2 : begin
write (‘۱,۲,’) ;
writeln( ‘buckle my shoe’)
end ; {1,2}
3 , 4 :writeln (‘ ۳,۴ , shut the door ‘) ;
۵ , ۶ :writeln (‘ ۵ , ۶ , oick up sticks’)
end {case}
عبارت otherwise یا else برای دستور :case

چنانچه انتخاب کننده case یک مقدار غیر قابل انتظار داشته باشد می توان از این عبارت برای نمایش پیغام خطا یا عمل تصحیح استفاده نمود.در دستور case بعد، در صورتی که مقدار غیر منتظره ای در DayNumber ذخیره شود، عبارت otherwise پیغام خطای invalid day number را نمایش می دهد.
{compute gross pay for a particular day }
case DayNumber of
1, 7 : Gross := Hours * 1.5 * dailyRate ;
2, 3 , 4 , 5 , 6 : Gross := Hours * DailyRate ;
otherwise
writeln (‘ invalid day number . ‘)
end {case}

مثال:برنامه ای بنویسید که دو عدد را از ورودی دریافت کرده وچنانچه عدد اول در بازه ۰ تا ۵ بود توان دوم عدد دوم را چاپ کند اگر ۶۸ بود ضرب آن دو عدد را نمایش دهد در غیر اینصورت مقادیر مجاز را چاپ کند؟
Program case_of;
Uses wincrt;
Var a,b:integer;
Begin
Writeln(‘enter tow number’);
Readln(a,b);
Case a of
0..5:Writeln(‘sqrt(b):’,b*b);
68:writeln(‘a*b:’,a*b)
Else
writeln(‘Enter 0..5 or 68′);
End;{case}
Readln;
End.

حلقه ها:
۱٫حلقه FOR:

حلقه for برای تعداد تکرار ۰ یا بیشتر و در ضمن برای تعداد تکرار معین به کار می رود .

شکل کلی دستور for به صورت زیر است:
Do مقدار نهایی To} مقدار شروع =: متغیرfor

Downto

To زمانی به کار میرود که مقدار اولیه از مقدار نهایی کمتر باشد.
downTo زمانی به کار میرود که مقدار اولیه از مقدار نهایی بیشتر باشد.

مثال:برنامه ای بنویسید که مجموع مضارب ۵ بین ۰ تا ۱۰۰ را حساب کند؟
Program zarb;
Uses wincrt;
Var I,sum:integer;
Begin
Sum:=0;
For i:=1 to 20 do
Begin
Sum:=sum+i*5;
End;
Writeln(‘sum is:’,sum);
End.

مثال:برنامه ای بنویسید که تعداد مضارب ۵و۷ را در بازه [۲۳۱,۸۴۶] چاپ کند؟
Program number;
Uses wincrt;
Var I,s,k:integer;
Begin
S:=0;
K:=0;
For i:=846 downto 231 do
Begin
If I mod 7=0 then
S:=s+1;
If I mod 5=0 then
K:=k+1;
End;
Writeln(’7=’,s);
Writeln(’5=’,k);
End.

حلقه های for می توانند علاوه بر نوع integer ، از انواع دیگر ترتیبی نیز استفاده کنند . در مثال زیر ، از متغییر char استفاده شده است.

مثال :
For nextch := ‘ A’ to ‘Z’ do Write (nextch );

2.حلقه while:

ساده ترین دستور کنترل حلقه دستور While می باشند. دستوراتی که تکرار می شوند بدنه حلقه نام دارند و بعد از کلمهdo قرار می گیرند. بدنه حلقه یک دستور مرکب است که بین begin و end محصور شده است.

حلقه While یک حلقه با تکرار ۰ یا بیشتر و تعداد تکرار در آن نامعین است.

شکل آن بصورت زیر است:
Do شرطWhile
begin

دستورات
End;

مثال:برنامه ای بنویسید که تعدادی از اسامی را از ورودی دریافت کند و سپس بگوید اسم ‘ali’ چند بار تکرار شده است؟(آخرین اسم end باشد)
Program repeat_ali;
Uses wincrt;
Var s:integer;
Name:string;
Begin
S:=0;
Writeln(‘Enter names ‘);
Readln(name);
While name<>’end’ do
Begin
Readln(name);
If name=’ali’ then
S:=s+1;
End;
Writeln(‘ali repeat:’,s);
End.
3.حلقه Repeat:

دستور repeat یک حلقه شرطی را مشخص می کند که تا وقتی که شرط آن درست بشود ، حلقه تکرار می گردد (یعنی این حلقه تا زمانی اجرا می شود که شرط آن نا درست باشد و به محض درست بودن شرط حلقه دیگر اجرا نمی شود ).
Repeat
loop-body
Until termination-condition

حلقه شرطی دستور repeat ، یک حلقه repeat – until نامیده می شود. توجه داشته باشید که چون کلمات repeat و until بدنه حلقه را محصور می کنند نیازی به کلمات begin و end نیست . این نوع حلقه حداقل یکبار تکرار می شود.

مثال:
Repeat
write (‘Enter a digit >’);
read (ch)
Until (‘۰’ <= ch) and (ch <= ‘۹’)

حلقه های لانه ای:

همانند دستور if حلقه ها را می توان درون یک دیگر قرار داد .حلقه های لانه ای شامل یک حلقه خارجی یا بیرونی و یک یا چند حلقه درونی است . هر بار که حلقه بیرونی تکرار می شود حلقه های درونی نیزاجرا می شوند و عبارت کنترل حلقه در آنها مجدد ارزیابی می شود وتمام تکرارهای الزامی انجام می شوند .

مثال:
Program m_n;
Uses wincrt;
Var
I , j : integer ;
Begin
Writeln (‘I’ :۱۲ , ‘j’ :۵);
For I:=1 to 3 do
Begin
Writeln (‘outer’ :۵,I :7 );
For j:= 1 to I do
Writeln (‘inner’ :۷ , I :5 , j:5)
End;
End.