ازمایش کد های html

حل مسئله و الگریتم های عقب گرد   در ادامه مطلب...

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

;program p1

var

;n,i: integer

;(procedure a(n,m1,m3,m2:integer

;(procedure disk(m1,m3: integer

begin

;(writeln(i,') move',m1,'to ',m3

i:= i+1

;end

begin

if n>0 then

begin

;(a(n-1,m1,m2,m3

;(disk(m1,m3

;(a(n-1,m2,m3,m1

end

;end

begin

;i:= 1

;(‘write('plese insert the number disk

;(readln(n

;writeln

;(a(n,1,3,2

;readln

.end

یه برنامه دیگه از بازی برج هانوی در ادامه مطلب گزاشتم

حالشو ببرید... 

 این بازی باید در ۱۵ مرحله انجام شود و در مراحل بازی هیچ دیسک بزرگی نباید بر بروی دیسک کوچکتر قرار بگیرد و درهر بار حرکت فقط یک دیسک جابه جا میشود و در  نهایت هم همه دیسکها به میله سومی انتقال داده میشود  و از میله وسط هم به عنوان کمکی استفاده میشود

بترس از روزی که در دادگاهی مجرم باشی

                            که قاضی هم شاهد است وهم  شاکی

;uses crt

var

 ; m1,m2,m3:array[1..100,1..100] of integer

  ;i,j,k,m,n,g,f,o:integer

begin

  ;clrscr

  ;(‘writeln ('insert degrees of m1 and m2

  ;(readln (m,n

  ;(gotoxy (35,2

  ;(readln (f

  ;(gotoxy (35,3

  ;(readln (o

  if f<>n then

    ;(‘writeln('pygame khata

  if f=n  then

    begin

      for i:=1 to m do

        for j:=1 to n do

          begin

            ;(gotoxy (5*j,i*2+5

            ;([readln (m1[i,j

          ;end

      for i:=1 to f do

        for j:=1 to o do

          begin

            ;(gotoxy (5*j+25,2*i+5

            ;([readln (m2[i,j

          ;end

      for i:= 1 to m do

        for j:=1 to n do

          for  k:=1 to o do

            ;[m3[i,k]:=m1[i,j]*m2[j,k]+m3[i,k

      for i:=1 to m do

        for j:=1 to o do

          begin

            ;(gotoxy (5*j+50,2*i+5

            ;([write (m3[i,j

          ;end

    ;end

  ;readln

.end

برنامه ای بنویسید که وقتی تعداد سطر و ستون یک ماتریس  و تعداد سطر غیر صفر ان را وارد کردیم به ما بگوید که ماتریس  خلوت است(اسپارس) یا نه

;program p1

;uses crt

var

;m,n,k,p,s:integer

begin

;clrscr

;(‘=writeln('soten

;(readln(m

;(‘=writeln('sater

;(readln(n

;(‘=writeln('sater bedone 0

;(readln(k

;۲*p:=m*n

;s:=k*6

if p>=s  then

(‘(writeln('matres(aspars

else

;(‘writeln('matres

;writeln

;readln

.end

 با سلام خدمت دوستان

در اینجا اموزش ساخت ایمیل در یاهو را گذاشتم

امیدوارم که مورد استفاده قرار بگیرد

برای دریافت متن اموزش به ادامه مطلب بروید...

  لطفا قبل از دانلود برنامه پاسکال   اگر برنامه ای برای باز کردن فایلهای فشرده ندارین نرم افزار وینرار را دانلود کنید و نصب نمایید و سپس برنامه پاسکال را دانلود کنید

پسورد نوشته شده را کپی کرده و در جایی که  پسورد نیاز هست  درج نمایید

برنامه پاسکال

پسورد برنامه پاسکال

www.MihanDownload.com( به صورت حروف کوچک وارد کنید!)

دانلود برنامه وینرار

پسورد www.MihanDownload.com( به صورت حروف کوچک وارد نمایید

برنامه ای بنویسید که ۱۰ عدد را دریافت و در ارایه ذخیره کند و سپس انها را با روش مرتب سازی حبابی مرتب نماید

;program p1

;uses crt

var

;a:array[1..10] of integer

;i,j,p:integer

begin

;clrscr

for i:=1 to  10 do

;([readln(a[i

for i:=1 to 9 do

begin

for j:=i+1 to 9 do

if a[i]>a[j] then

begin

;[p:=a[i

;[a[i]:=a[j

;a[j]:=p

;end

;([writeln(a[i

;end

;writeln

;readln

.end

  لطفا قبل از دانلود برنامه پاسکال   اگر برنامه ای برای باز کردن فایلهای فشرده ندارین نرم افزار وینرار را دانلود کنید و نصب نمایید و سپس برنامه پاسکال را دانلود کنید

پسورد نوشته شده را کپی کرده و در جایی که  پسورد نیاز هست  درج نمایید

برنامه پاسکال

پسورد برنامه پاسکال

www.MihanDownload.com( به صورت حروف کوچک وارد کنید

عمر برف است و افتاب تموز

               اندکی مانده و خاجه غره هنوز

اموزش پاسکال به زبان ساده:

برنامه ای بنویسید که فاکتوریل یک عدد را به دست اورد

;program p1

;uses crt

var

;foct,n,i:integer

begin

;readln(n)

;foct:=1

for i:=2 to n do

;foct:=foct*i

;(writeln(foct

;writeln

;readln

.end

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

برنامه در ادامه مطلب:

دو برنامه با استفاده از دستور های شرطی

برنامه در ادامه مطلب:

سری دوم برنامه ها

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

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

برنامه در ادامه مطلب:

case دستور

هر وقت تعداد انتخابها بر اساس مقادیر مختلف عبارت یا متغیری،بیش از سه باشد،از case استفاده میشود،زیرا    if های تو در تو،از خوانایی برنامه می کاهد

Of        عبارت  case 

دستور 1:مقادیر 1  ;

دستور 2:مقادیر 2  ;

.

.

; دستورn :مقادیر n 

Else

   E  دستور

End;

دستور if

    دستور if   برای تصمیم گیری در مورد مقادیر یک عبارت منطقی مورد استفاده قرار می گیرد.

روش اول:           شرط     if

                                                         Else

روش دوم:                                                                                                then      شرط     if

                          دستور1

                              دستور

ساختار تکرار while

 این ساختار معمولا برای مواردی به کار می رود که تعداد دفعات تکراراجرای دستورات از قبل مشخص نباشد.

   Do   شرط       while

  Begin

دستوراتی که باید تکرار شوند    

  End;

ساختار تکرار for

در ای ساختار  می توانیم مشخص کنیم که اجرای دستورات مورد نظر چند بار تکرار شود.

روش اول:                                                     do مقدار نهایی  to مقدار اولیه :=  شمارنده        for

Begin

              دستورات

end

روش دوم: :                                                     do مقدار نهایی  downto مقدار اولیه =:  شمارنده        for

Begin

              دستورات

end

نکاتی در مورد for

• در کاربرد اول،در هر بار اجرای دستورات،یک واحد به مقدار اولیه شمارنده اضافه می شود.در این حالت، چنانچه مقدار اولیه بیش از مقدار نهایی باشد, حلقه تکرار اجرا نمی شود.
• در کاربرد دوم،در هر بار اجرای دستورات،یک واحد از مقدار اولیه کم می شود. این حالت، چنانچه مقدار اولیه کمتر از مقدار نهایی باشد حلقه تکرار اجرا نمی شود.
• مقدار شمارنده در طول حلقه تکرار نباید توسط برنامه نویس تغییر کند.
• پس از خروج از حلقه تکرار،مقدار شمارنده،برابر با مقدار نهایی است که در حلقه مشخص شده است.
• اگر مقدار نهایی یا اولیه حلقه،با متغیری مشخص شود(مقدار ثابتی نباشد)و در داخل حلقه  تغییر کند،تاثیری در تعداد دفعات تکراراجرای دستورات ندارد،زیرامقدار نهایی و اولیه حلقه،فقط یک بار ارزیابی می شود(هنگام ورود به حلقه).

ساختارهای کنترلی

 Begin

                               دستور 1

                                .

                                .

                                                                                                     دستورn 

End.

روش ایجاد برنامه                                                                       

Program                  نام برنامه ; Const                                       تعریف ثوابت ; Var                                                                  بخش تعاریف                                       تعریف متغیرها ; Begin                                                 دستور ;              بخش بدنه برنامه                                                              دستور ;                                                  …… End.

عملگر های محاسباتی

عملگر	نام
+	جمع
-	تفریق
*	ضرب
/	تقسیم اعشاری
Div	تقسیم صحیح
Mod	باقیمانده تقسیم

نتیجه ارزیابی مثال	مثال	نام	عملگر
نادرست	Power	کوچکتر	>
درست	X<=0	کوچکتر یا مساوی	=>
درست	Item>minitem	بزرگ تر	<
نادرست	x>=y	بزرگ تریا مساوی	=<
درست	mDat=m	مساوی	=
نادرست	Num<>sentinel	نامساوی	<>

اعلان نوع متغیرها

 هر متغیر در پاسکال باید دارای نوع باشد.متغیرفاقد نوع شناخته شده نیست.به عنوان مثال متغیری به نام x وقتی شناخته می شود که نوع آن مشخص شده باشد.برای تعیین نوع متغیرها به روش زیر عمل می شود:

var      نوع : اسامی متغیرها ;

Var یک کلمه کلیدی است و به کامپیوتر می گوید که در حال اعلان نوع متغیرها هستیم . اسای متغیرها باید با کاما از هم جدا شوند, و نوع, یکی از انواعی است که مورد بررسی قرار گرفتند.

انواع شمارشی

حل بسیاری از مسئله های برنامه نویسی نیازمند انواع داده جدیدی است. یکی از انواع داده ها نوع داده شمارشی است که درآن مقادیری تعریف می شوند و معنای خاصی دارند.برای

تعریف نوع شمارشی به صورت زیر عمل می شود:

Type

    (اعضای نوع) = نام نوع شمارشی ;

نام نوع شمارشی از قانون نامگذاری برای متغیرها تبعیت می کند.

به عنوان مثال

Type  color = ( red, yellow , brown );

Var c1,c2: color;

متغیرها

 متغیر یکی از شناسه ها در پاسکال است   و نامی است که به کلمات حافظه داده می شود.محتویات کلمات حافظه (متغیر)ممکن است در طول اجرای برنامه تغییر کند.چون متغیر یک شناسه است،شیوه نامگذاری آن مانند شناسه های دیگر در پاسکال است.بعضی از اسامی مجاز برای متغیرها عبارتند از:s1,average,grade,mean,test .دقت کنید که کلمات کلیدی و شناسه های استاندارد نمی توانند به عنوان نام متغیر انتخاب شوند.

انواع داده عددی

  انواع داده صحیح

نوع	مقادیری که میپذیرند	طول) بایت(
Byte	255_0	1
Short int	127_-128	1
Integer	32767_-32768	2
Word	65535_0	2
Long int	2147483647_-2147483648	4

 انواع داده اعشاری

نوع	ارقام با معنی	طول) بایت(
Single	8-7	4
Real	12-11	6
Double	16-15	8
Extended	20-19	10

از موفقیت های زبان پاسکال در سالهای 1971-1975 می توان اثراتش را بر روی سخت افزار از جمله ریز کامپیوترها ،توسعه کامپیوترهای متوسط،سیستمهای ذخیره انبوه کوچک و حافظه های نیمه هادی نام برد.بعلاوه زبان توربو پاسکال  در سالهای 1981-1985 اثراتی جدید بر روی کامپیوترهای شخصی،بازیهای ویدیویی شبکه های محلی و... گذاشت