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

;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( به صورت حروف کوچک وارد نمایید

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

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

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

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

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

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

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

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

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

;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.