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

[king75]

# دستورfor

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

برای استفاده از این دستور ما باید از قبل متغیر تعریف کنیم .

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

;Program ibpersianblogcom

;Uses WinCRT

var

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

Begin

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

begin

دستورات

;end

.End

مثلا" :

;Program ibpersianblogcom

;Uses WinCRT

var

;i:integer

Begin

for i:=1 to 200 do

begin

;('writeln('visit our site => http://ib.co.sr

;end

.End

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

مثال :

برنامه ای بنویسید که 5 عدد را بگیرد و معدل را بدهد .

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

;Program ibpersianblogcom

;Uses WinCRT

var

;i:integer

;num:real

;average:real

Begin

for i:=1 to 5 do

begin

;('writeln('please type your number

;(read(num

avarage:=avarage+num

;end

;(writeln (avarage/5

.End

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

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