Loop proqramçılar üçün faydalı olsa da

Acemi proqramçılar hələ bir faydalı isə loop tanış ola bilər. Bu Pascal orta tipik dövrü əməliyyatdır. Bu müxtəlif problemləri faydalı, belə ki, bir proqram edə bilərsiniz necə baxmaq bu dövrü.

Cycle Pascal isə aşağıdakı kimi etdi tələb:

• Baxmayaraq (vəziyyəti) (zəruri hallarda başlayır) yoxdur.
• fəaliyyət alqoritmi.
• End (komanda mövcudluğu başlamaq zaman).

ilk line - "cap" command. şərt Tamsayı haqqında izahlı dəyişənlərin məhdudlaşdıran bir ədədi dəyəri (d <100) ola bilər dəyişən növü boolean (t = True) və ya simli (tex = 'salam'). loop bir çox şərt yerinə yetirmək üçün lazım olduqda, komanda qoymaq "başlayın". Aşağıdakı proqram isə loop icra şərti altında yerinə yetirmək lazımdır tədbirlər təsvir edir. Bu əmrləri, prosedurlar, funksiyaları, belə dövründən bir sıra ola bilər. Sonda bu, əlbəttə, ilk line "başlamaq" idi halda, komanda "son" qoymaq lazımdır.

İndi əmrləri təsvir ehtiva misal proqramları hesab edir. Məsələn, biz ilk n müsbət tam ədədlər məbləği tapmaq lazımdır. (Həmişə sıfır daha çox olacaq baxmayaraq) bu məqsədlə, əvvəlcə biz n hesab edir. Sonra dövrü başlayır. Bu n dəyərini çatana qədər ki, o iş var ki, anlamaq vacibdir. Burada problemin həlli üçün daha çox seçim, lakin biz yüklemek üçün istədiyiniz counter istifadə təsir faktı müzakirə olunacaq. Mənim cari olaraq, bu dəyişən i istifadə edilir. Siz başlamaq əvvəl o, "1" bir dəyər təyin etmək lazımdır. counter hər yeni cyclical hərəkətləri ilə bir müddət kimi xidmət edir. Bizim missiya əsasında daim ona bir əlavə etmək lazımdır. Belə ki, bir ədədi index counter sayı n dəyəri bərabərdir. Bu iş proqramı tamamlanması üçün siqnal olacaq. məbləği hesablamaq üçün biz dəyişən k təqdim edir. Bunun hər təkrar əvvəlki dəyəri plus sayı i təyin olunacaq. hesablanması başa çatdıqdan sonra, yalnız ekranda k izahlı dəyişənlərin anlamak. Bu proqram sözləri haqqında qısa izah edir. İndi biz kodu baxmaq.

Readln (n); - biz sayı n oxuyun.

i: = 1; k: = 0; - biz məbləğin dəyəri həyata sıfıra iş counter daxil.

i =

k = k + i; i: = i 1 +; - məbləği yeniləmə counter əlavə dəyər.

son; - iş təsviri tamamlayaraq edir.

Writeln (k); - Bu nəticələr.

Biz başqa nümunə oldu. İndi mətn array xilas edəcək klaviatura n adları ilə istifadəçi doldurmaq lazımdır. Burada prinsip keçmiş kimi. sayı n daxil edin, biz isə loop set vəziyyəti aktivləşdirin. Bundan başqa, yaddaş mobil array klaviatura daxil adlanır. Set counter təkrar əməliyyatları tamamlayır. Next, counter reset və ekran array edir. Siz sıfır mobil array gətirmək mümkün deyil, çünki Lakin, (bu mövcud deyil), bu çərçivədə counter bir dəyər təyin etmək deməkdir yenidən. Aşağıdakı kimi proqram kodu: Bu proqram siz ən n tətbiqi başa çatır təbii müsbət ədəd bir sıra məbləği alacaqsınız. Pascal dövrü heç baxmayaraq ki, counter olmaması ki, başa düşmək lazımdır başa. Əgər birdən bu barədə unutmaq, proqram kodu icrası, kompüter asmaq başlayır. Bu düyməsinə "Pause Break" müalicə olunur. c istifadə müxtəliflik izahlı dəyişənlərin bir counter kimi.

Readln (n);

c: = 1;

Baxmayaraq <= n 'başlamaq yoxdur c - bitki şərait.

Readln (a [c]); c: = c + 1; - biz counter əlavə dəyər, klaviatura data deyilir.

son; - dövrü başa.

c: = 1; - orijinal dəyər qayıtmaq schetiku.

Baxmayaraq c <= n yazmaq etmək (a [c]); - ad n göstərin.

Sonra ekranda n klaviatura daxil edilmişdir adları almaq. ki, bir isə loop başa çatır. Bu başlayanlar və qabaqcıl istifadəçilər tərəfindən istifadə olunur. O saymaq, və buna görə də proqramçı və əlavə dəyişən xüsusi diqqət tələb etmir.