بسه تعالی

اموزش زبان برنامه نویسی پاسکال

زبان پاسکال یکی از زبانهای برنامه سازی است که ویژگی های اموزشی ان بسیار بالاست یعنی زبان خوبی برای اموزش برنامه نویسی منظم و دقیق است قابلیت خوانایی و درک برنامه های این زبان بالاست و میتوان برنامه هایی نوشت که احتمال  است .(stru cted خطای ان بسیار اندک باشدعلتش این است که زبان ساختار یافته (

ساختار کلی برنامه چیست؟

1-تعریف

 قسمتهای تکرای را از بین میبریم Procedure ,function2- به وسیله 

3- بدنه

فرم کلی پاسکال :

Program1- اسم

const2-تعریف ثابت

type3-تعریف نوع

var4-تعریف متغیر ها

procedure5-(پارامتر ها) نام

A:=15متغییر:محلی است که دارای یک اسم باشد و میتوان مقداری را در ان ذخیره کرد  مانند

انواع متغییر در پاسکال:

انواع اعداد صحیح شامل اعداد بدون نقطه و ممیز:INTEGER-1

 مشخص می شود میتواند یک کاراکتر را در خود نگهداری کند بنابر این CHAR نوع داده کارکتری که با کلمه :CHAR-2

کاراکتر ها در یک بایت از حافظه کامپیوتر ذخیره میشوند.

 برای تعریف اعداد اعشاری به کار میرود.:real-3

Readln) برای خواندن اطلاعات از ورودی به کار میرود و به صورت             ( اسامی متغییر ها: readlnدستور

   برای چاپ اطلاعات در خروجی به کار میرود : writelnدستور

  قرار بگیرد‘   ‘پیغام مورد نظر برای چاپ در خروجی حتما باید در داخل کوتیشن  Writeln(‘  insert the nomber’)

مثال: برنامه ای بنویسید که یک عدد را دریافت و در خروجی به ما بگوید که عدد منفی است یا مثبت.

      نام برنامه Program p1;

          جهت پاک کردن صفحه نمایش در خروجی به کار میرودUses crt;

                   جهت تعریف متغییر ها به کار میرودvar

      متغییری است از نوع اعداد صحیحA: integer;

              شروع برنامه begin

            جهت پاک کردن صفحه نمایش در خروجی به کار میرودClrscr;

     را) a      این دستور کار خواندن متغییر را در خروجی اجرا میکند(بخوان متغییر Readln(a);

بزرگتر از 0 بود انگاه ) a با این دستور برای برنامه شرط برقرار میکنیم به ایم معنی که (اگر If   a>0    then

       دستوری است برای چاپ کردن پیغام مورد نظر در خروجی Writeln(‘add vared shode  +ast’)

               دستوری است که اگر شرط ما درست نبوداز ان استفاده میکنیم به معنی( وگرنه) (در غیر این صورت)else

     دستوری برای چاپ کردن پیغام مورد نظرWriteln(‘add vared shode – ast’);

       این دستور در برنامه باعث میشود که در خروجی بعد از وارد کردن عدد جواب را برای ما نمایش دهد و در پایان هر برنامه لازم است Readln;

            پایان برنامه End.

 استفاده میکنیم;نکته1: در پایان هر خط ازسیمی کالن

  هیچگاه سیمی کالن نمی گیردelseنکته2: خط قبل از

   هر دو با هم برای پاک کردن صفحه نمایش استفاده میشودUses crt  ,  clrscr نکته3: کلمه   

  )استفاده میکنیم =) استفاده میکنیم اما اگر عددی را برار با متغییر قرار بدهیم از(:=نکته4: برای اینکه عدد را در داخل متغییر قرار بدهیم از (

صفحه1

 

 نام متغییر مورد استفاده در برنامه میباشد.a برای جلوگیری از شرط زیاد از این دستور استفاده میکنیم .:Case  a ofدستور

 را 7 بار بنویسیم If مثال: برای اینکه برنامه ای بنویسیم که وقتی عددی وارد میکنیم معادل ان روزهای هفته را چاپ نماید  باید دستور

  فقط یک بار دستو را caseمینویسیم اگر عدد 1 وارد شد انگاه چاپ کن  شنبه  و اگر عدد 2 وارد شد انگاه چاپ کن یکشنبه اما با استفاده از دستور

مینویسیم  و بعد از ان عدد ها را نوشته و در مقابل ان عبارتی که باید چاپ شود را قرار میدهیم مثل :

Case  a of

1: writeln(‘shanbe’);

2:writeln(‘yek shanbe’);

و....

 با استفاده از این دستور میتوانیم متنی را که میخاهیم چاپ کنیم  در هر کجای صفحه نمایش  در خروجی چاپ کنیم مثلا :Go to دستور

میخواهیم شکل ستاره را در وسط صفحه نمایش چاپ کند. برای این کار باید مختصات وسط صفحه نمایش را داشته باشم

 فرض کنید مختصات وسط  20 و 25 باشد Go to xy(20,25);

     چاپ میشود  تقریبا وسط صفحه نمایش.Y =25و   X =20با این برنامه شکل ستاره در مختصات Writeln(‘*’);

   را 20 بار بنویسیم تا در خروجی 20Writeln(‘*’)  وقتی که میخاهیم در یک برنامه ای 20 تا ستاره چاپ کنیم باید دستور : forدستور

 استفاده میکنیم فقط یک بار دستور چاپ ستاره را مینویسیم و حلقه باعث میشود تا For بار شکل ستاره را چاپ نماید اما وقتی از دستور

هر تعداد که خاستیم فقط عدد ان را وارد نماییم به مثال زیر توجه نمایید

For i:=1  to  20   do

Writeln(‘*’);

در اینجا با هر بار تکرار حلقه یه بار شکل ستاره چاپ میشود و این کار  ادامه دارد تا 20 تا ستاره کامل چاپ شود

حلقه های تو در تو :درحلقه های تو در تو یک حلقه بیرونی یا شمارنده دارم و یک یا چند حلقه درونی یا اجرا کننده    مثال:

For i:=1  to   10   do

For  j:= 1 to    10  do

Write(i*j)

با این برنامه میخواهیم جدول ضرب ر در خروجی چاپ نماییم

       و ... ضرب میشود و نتیجه ان به صورت عمودی زیر هم J(3) وJ(2)وJ(1)      10  بار با حلقه داخلی یعنی I(1)در حلقه بیرونی  

   تغییر میکند و دوباره  10 بار با حلقه داخلی ضرب میشود وI(2) به   I (1)چاپ میشود و وقتی حلقه داخلی تمام شد   حلقه  بیرونی از

باز تنیجه چاپ میشود و این کار  اونقد تکرار میشود تا حلقه بیرونی یا شمارنه  به پایان برسد و در نهایت یه جدول ضرب در خروجی چاپ خواهد شد

  در داخل حلقه وقتی استفاده میشود که عدد اول ما کوچکتر از عدد دوم باشد  مثل 1  تا 10  اما بر عکس وقتی عدد اول ماTo نکته1:کلمه

  استفاده میکنیمdowntoبزرگتر از عدد دوم ما باشد  مثل 10   تا 1   از کلمه 

  بایدvar یک متغییر هستند که اعداد 1   تا 10 در ان قرار گرفته است پس باید حتما در تعریف متغییر بعد از (i,j)نکته 2: در این برنامه

  یعنی متغییر ها از نوع اعداد صحیح هستندI , j :integerتعریف شوند که از چه نوع اعداد هستند مثال 

  اول مینویسیمFor نکته 3:در داخل این برنامه چون از دو دستور استفاده شده است پس به یک شروع  و پایان  اضافه نیازمندیم بعد از

     اضافه میکنیمEnd;یک Write(‘i*j’)و بعد از begin

  : با استفاده از این دستور میتوانیم در داخل حلقه شرط برقرار کنیم مثال: برنامه ای بنویسید که اعداد کوچکتر از 100 را چاپ کند. whileدستور

I :=1;

        کوچکتر و مساوی 100 باشد  به  چاپ اعداد ادامه بدهI       تا وقتی که  While  I <= 100  do

Write(i :1);

I:=i+1;

 در این برنامه حلقه 100 بار اجرا میشود و تا وقتی که اعداد کوچکتر از 100 باشد انها را چاپ میکند

  با استفاده از این دستور ما در داخل حلقه شرط قرار میدهیم اما به صورت بر عکس یعنی اگر شرط برقرار :Repeat     , untilدستور

نبود انگاه چاپ کن  مثال:  برنامه ای بنویسید که اگر عدد وارد شده بزرگتر از 100 نبود انگاه عدد مورد نظر را چاپ کند.

I:= 1;

Repeat

Write(1);

Until     i>100

دراین برنامه وقتی عددی را وارد میکنیم دستور شرط ان را برسی میکند و اگر عدد بزرگتر از 100 بود ان را چاپ نمیکند فقط اعداد کوچگتر از 100 را چاپ میکند.

 

 

 

برگرفته از کتاب پاسکال (الیوت ب.کافمن)          با ارزوی موفقیت:مخدومی                                                  صفحه2

نام :

آدرس ایمیل:

وب سایت/بلاگ :

متن پیام:

نظر خصوصی

 کد را وارد نمایید:

 

 

 

عکس شما

آپلود عکس دلخواه: