اموزش پاسکال درس 5

[king75 0]

# دستور while

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

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

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

do شرط while

begin

دستورات

;end

مثال :

در اين مثال كه از دستور while كمك گرفتيم كامپيوتر مرتبا' يك حرف را از كاربر می گيرد و اگر آن حرف برابر q بود متوقف می شود .

;program ibpersianblogcom

;uses wincrt

var

;c : char

begin

;clrscr

;(readln(c

while c<>'Q' do

begin

;(readln(c

;end

.end

* برای مرور درس های گذشته و نيزآشنايی با الگوريتم ها تصميم گرفتم تا كار را با چند مثال برنامه نويسی ادامه دهم :

مثال ۱ :

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

;program faktoriel

;uses wincrt

var

;fact,n,i : longint

begin

;'(writeln('enter an integer number

;(readln(n

fact:=1

for i:=1 to n do

fact:=fact*i

;end

;(writeln('factorial=',fact

.end

+ ما در اينجا از متغيير longint استفاده كرديم كه همان integer است ولی ظرفيت بيشتری دارد .

+ الگوريتم هم كه بسيار ساده است ‏ابتدا عدد را از كاربر می گيرد بعد ۱ يا همان fact را به تعداد دفعات بزرگی عدد در آن عدد ضرب می كند كه حاصل با راه حل رياضی نيز هماهنگی دارد .

+++++++++++++++++++++++++++++++++

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