برنامه نویسی با اسمبلي و پاسكال

مثال : برنامه ای بنویسید که یک رشته ( متن) را از کاربر بگیرد و آخرين حرف رشته را ستاره بگذارد.

;Program myprog
;Uses WinCRT
var
;i:integer
;s:string
begin
;('writeln('enter string
;(readln(s
;(i:=lenght(s
;'*'=:[s[i
;(writeln(s
.end

دستور تبديل int به str 
این دستور محتوي يك عد صحيح را به رشته تبديل مي كند

;(عدد,رشته)str

mod 2=0 عدد

مثال : برنامه ای بنویسید که عدد از كاربر بگيرد و بگويد كه عدد متقارن است و اگر نبود بگويد كه عدد متقارن نيست

;Program myprog
;Uses WinCRT
var
;i,len:integer
;s:string
begin
;('writeln('enter number
;(readln(i
;(str(i,s
(len:=lenght(s
if len mod 2=0 then
begin
;('عد متقارن نيست')write
;halt
end;
for i:=1 to len/2 do
begin
if s[i]<>s[len-i+1] then
begin
;('عد متقارن نيست')writeln
halt
end
;('عد متقارن هست')writeln
.End

 متغير string
اين متغير مكانی از حافظه است كه نوشته ها و متن (به تعداد 256 character) را می توان درون آن قرار داد . فرق آن با متغیر char در این است که متغیر char می تواند یک حرف را در خود جا دهد در حالی که string می تواند کلمه و یا حتی کلمات (متن) که تعداد حروف آن بیش تر از 256 character نباشد را در  آن جا داد .
توجه : رشته = string = متن یا نوشته

بدست آوردن طول رشته (string)
دستور length  : از این دستور برای محاسبه تعداد حروف یک رشته استفاده می شود .

مثال : برنامه ای بنویسید که یک رشته ( متن) را از کاربر بگیرد و طول رشته (تعداد حروف آن) را چاپ کند .

;program ibprogrammer
;Uses WinCrt

var
;s:string

;begin

;(readln(s
;( (writeln( s , ' = ' , length(s

.end

توضیح مثال بالا
 دو خط اول كه برای نوشتن هر برنامه در پاسكال استفاده می شه.

  var را وقتی استفاده می كنيم كه بعدش بخواهيم متغير تعريف كنيم.

;s:string  يعنی اين كه يك متغير از نوع  string تعريف كرديم (كه می تواند حاوی متن باشد)

 begin یعنی برنامه نویسی شروع شد.

;(readln(s  یعنی از کاربر بخواه تا متنی که باید درون s قرار بگیرد را تایپ کند .

 ;( (writeln( s , ' = ' , length(s
 یعنی طول رشته (تعداد حروف متن) را به کاربر به صورت زیر نشان بده ( اگر s = متن تایپ شده توسط کاربر=welcome to ib )
                           welcome to ib = 11

end   یعنی برنامه را تمام کن.

سلام

مثال : برنامه ای بنويسيد که سانتی متر را بگيرد و بر حسب اينچ چاپ کند .
 inch <= cm

اطلا عات مورد نياز :
1inch = 1cm * 2.54

توجه : کاميوتر در حالت يش فرض، اعداد اعشاری را به صورت علمی نمايش می دهد . يعنی ۱۵ = ۱.۵  * ۱۰

;Program ibprogram
;Uses WinCrt

var
;n:real

;begin
 ;(':writeln('enter one real number
 ;(readln(n

;n:=n*2.54

;(writeln('n=' , n
.end

توضیح مثال بالا
 دو خط اول كه برای نوشتن هر برنامه در پاسكال استفاده می شه.

  var را وقتی استفاده می كنيم كه بعدش بخواهيم متغير تعريف كنيم.

;n:real  يعنی اين كه يك متغير از نوع  real تعريف كرديم   (كه می تواند حاوی اعداد حقيقی باشد)

 begin یعنی برنامه نویسی شروع شد.

;('writeln ('Enter one real number  یعنی متن enter one real number  را به کاربر نشان بده .  
 

;(readln (n  یعنی n يا همان عدد حقيقی را از کاربر بخواه
 

;(writeln('n=' , n  يعنی < مقدار n = n > را به کاربر نشان بده.

end   یعنی برنامه را تمام کن.

با سلام

سال نو را به همه ايرانيان تبريک می گويم .
اميدوارم که سال خوب و موفقی داشته باشيد .

===========================

 به زودی لینک همه درس های آموزش پاسکال را یکجا برای شما قرار می دهم . ه

: halt دستور
این دستور جهت اتمام برنامه در هر زمانی مورد استفاده قرار می گیرد . ه

: char متغییر
این نوع متغییر مکانی از حافظه است که یک حرف یا کاراکتر می توان درون آن جای داد . ه
 

: مثال
با استفاده از دستورfor  برنامه ای بنویسید که مرتبا حروف از کاربر بگیرد و اگر کاراکتر مورد نظر Q بود برنامه خاتمه پیدا کند . 

;program ib
;Uses WinCrt

var
;i:integer
;c:char

begin
;('writeln ('Enter character

for i:=1 to 28 do
        begin
        ;(readln (c
        if c='Q' then
        ;halt
        ;end
;end

.end

توضیح مثال بالا
 دو خط اول كه برای نوشتن هر برنامه در پاسكال استفاده می شه.

  var را وقتی استفاده می كنيم كه بعدش بخواهيم متغير تعريف كنيم.

;i:integer  يعنی اين كه يك متغير از نوع  inteegr تعريف كرديم   (كه می تواند حاوی عدد باشد)

 begin یعنی برنامه نویسی شروع شد.

;('writeln ('Enter character  یعنی متنenter character  را به کاربر نشان بده .  

for i:=1 to 28 do
begin
;end
یعنی دستورات بین  begin و end را 28 بار تکرار کن  .

;(readln (c  یعنی c  را از کاربر بخواه
 

if c='Q' then
        ;halt
        ;end
یعنی اگر  C برابر کاراکتر Q بود برنامه را تمام کن .

end   یعنی برنامه را تمام کن.   

شهادت امام حسين را به همه شيعيان تسليت می گويم

مثال :

برنامه ای بنويسيد که مرتبا حروف را از کاربر بگيرد و اگر کاراکتر مورد نظر Q بود از برنامه خارج شود .

;program myprog
;uses wincrt
var
     ;c:char     

begin
;clrscr
;(readln(c

while c<>'a' do
begin
;(readln(c
;end

;end

توضيح مثال بالا :

دو خط اول كه برای نوشتن هر برنامه در پاسكال استفاده می شه .

var را وقتی استفاده می كنيم كه بعدش بخواهيم متغير تعريف كنيم .

;c:char يعنی اين كه يك متغير از نوع char (كه می تواند حاوی يك حرف باشد) تعريف كرديم .

begin يعنی اينكه می خواهيم برنامه نويسی را شروع كنيم .

;clrscr يعنی اينكه اگر در صفحه نوشته ای از قبل باقی مانده است اون را پاك كند .

;(readln(c
يعنی اينكه از كاربر c را بپرس يعنی اينكه كاربر می تونه هر چيزی رو كه می خواهد در c قرار بگيره تايپ كنه 
 
while c<>'a' do
begin
;(readln(c
;end
در اينجا از دستور WHILE استفاده كردم و گفتم تا وقتی كه شرط درست نيست دستور بين begin و end را تكرار كن .در اينجا 'c<>'a همون شرط ما هستش و يعنی اينكه تا وقتی كه C نا مساوی a هستش دستورات بين begin و end را تكرار كن .
;(readln(c رو هم كه قبلا توضيح دادم .

end هم كه يعنی تمام .

متغير char
اين متغير مكانی از حافظه است كه يك حرف را می توان درون آن جا داد .

==============================
دوستان اگر در فهم مثال ها مشكل داريد در قسمت پيشنهادات بپرسيد تا برايتون بيشتر توضيح بدهم .

مثال :
برنامه ای بنويسيد که N را از ورودی بگيرد و نتيجه اين سری را محاسبه كند .
1+2+3+4+....+N

;program seri

;Uses WinCrt

var

;i,m,n : integer

begin

;('writeln('Enter one number

;(readln(n

;m:=0

for i:=1 to n do

begin

;m:=m+i

;end

;(writeln('Enter one number:',m

.End

مثال:
برنامه ای بنويسيد كه اسامی ۱۰ نفر را بگيرد و آن كدام كه حرف اولش (با توجه به ترتيب حروف الفبای انگليسی) بزرگتر است را چاپ كند .

;program biger name

;uses wincrt

var

;n,s1,s2,s3,s4,s5,s6,s7,s8,s9,s10:string

begin

;('writeln('Enter Name

;(readln(s1,s2,s3,s4,s5,s6,s7,s8,s9,s10

if s1<n then

begin

;n:=s1

;end

if s2<n then

begin

;n:=s2

;end

به اين ترتيب تا s10 می نويسيم

;(writeln('n=',n

.end

در درس بعد از مثالی با شرح زير را برای شما می نويسم ولی شما سعی كنيد تا خودتان آن را بنويسيد . نتيجه را به من ايميل بزنيد تا ايرادهاي آن را به شما بگويم .

مثال درس بعد :
برنامه ای بنويسيد كه مرتبا حروف را از كاربر بگيرد و اگر حرف مورد نظر Q بود از برنامه خارج شود .

# دستور while

این دستور برای تکرار دستورات به کار می رود . به این ترتیب که تا زمانی كه شرط صادق است دستورات بين begin و end تكرار می شود .

فرق دستور while با for در اين است كه در for تعداد تكرار مشخص است ولی در while اين شرط است كه مشخص ميكند يك دستور چند بار تكرار می شود .

 ساختار این دستور به صورت زیر می باشد .

do شرط while
begin
         دستورات       
;end

 # دستورfor

;integer:اسم شمارنده

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

که در این دستور ما ابتدا متغیر i را از نوع integer تعریف کردیم . سپس با استفاده از دستور for از کامپیوتر خواستیم تا 200 بار دستور writeln را انجام دهد که نتیجه آن 200 بار نوشته شدن متن 'visit our site => http://ib.co.sr' است .

نکته : متغیر real برای اعداد اعشاری استغاده می شود .

توجه : در اینجا در دستور writeln ما avarage/5 را بین دو علامت ' ' نگذاشتیم چون :

فقط وقتی از ' ' استفاده می کنیم که بخواهیم دقیقا" متن نوشته شده توسط ما چاپ شود یعنی در این مثال اگر 'avarage/5' را می نوشتیم خود avarage/5 چاپ می شد ولی اکنون که از ' ' استفاده نکرده ایم نتیجه ی تقسیم مقدار avarage به عدد 5 نمایش داده خواعد شد .

امروز می خواهم یک دستور مهم و پر کاربرد را به شما آموزش بدهم :

# دستور if

این دستور را اگر بخواهیم با معنای فارسی آن که در ( ) نوشته ام بنویسیم اینطور می شود :

(سپس)then  شرط  (اگر)if

(شروع)begin

;دستورات

;(پایان)end

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

مثال :

در مثال زیر یک عدد از کاربر می گیریم و اگر آن عدد از 100 بزرگتر بود yes و اگر مساوی 100 بود yesno و اگر کوچکتر از 100 بود no را در جواب نمایش میدهد .

;Program ibpersianblogcom

;Uses WinCRT

var

;a:integer

Begin

;clr scr

;('write('enter greade of our weblog more than 100 or 100 or less than 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  شرط  (اگر)if

(شروع)begin

;دستورات

|(پایان)end

(در غیر اینصورت)else

(شروع)begin

;دستورات

;(پایان)end

;End

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

نکته !

قبل از else , در خط بالایش نباید ; قرار بگیرد که من با | نشان داده ام .

 # دستور: writeln

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

استفاده از متغیر :

من در اینجا یک متغیر از نوع string (متنی) تعریف کرده ام .

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

متغیر متغیر ها انواع مختلفی دارند که هر نوع آن ها استفاده مخصوص به خود را دارند . مثلا متغیر  strin برای متن وintegerبرای اعداد می باشد .

# دستورread

همچنین دستورreadln داده ها را از کاربر در خط بعد می گیرد .

# انواع زبان های برنامه نویسی:

زبان های نسل اول : زبان ماشین 010110

زبان های نسل دوم : نزدیک به سخت افزار ولی بهتر از زبان ماشین مثل اسمبلی

  زبان های نسل سوم : پاسکال ،3GL , Basic , Ada , PL1 , C T ...

 زبان های نسل چهام : دلفی ، ویژوال بیسیک ، جاوا ، asp.net

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

برای برنامه نویسی به سه چیز نیاز داریم : 1.الگوریتم 2.کامپیوتر 3.برنامه

; نام برنامه Program

برای پاسکال تحت داس یا Uses WinCRT; برای پاسکال تحت ویندوز ;Uses CRT

دستورات

:# دستور write

   ;('نوشته ی مورد نظر مثل=>Write(' This is made by ib.persianblog.ir

:# دستور gotoxy

:# دستور CLRscr

 Begin جهت پاک کردن صفحه ی نمایش معمولا" بعد از قرار می گیرد .

:# دستور Textbackground

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

:# دستور Textcolor

جهت تغییر رنگ نوشته به کار می رود .(توجه : این دستور در توربو پاسکال تحت ویندوز کار نمی کند )

از blink همچنین جهت چشمک زدن متن استفاده می شود که در این مثال هم ما رنگ آبی را چشمک زن قرار دادیم .