Pradedančiųjų programuotojas dar gali būti susipažinęsvienas naudingas, o ciklas. Tai yra tipinė cikliška operacija Pascal aplinkoje. Tai yra patogu naudoti įvairiose užduotyse, todėl mes analizuosime, kaip galite įtraukti šį ciklą į programą.

Nors kilpas

Nors ciklas "Pascal" reikalauja tokio formato:

  • Nors (sąlyga) (jei reikia, prasideda).
  • Veiksmo algoritmas.
  • Pabaiga (jei yra paleidimo komanda).

Pirmoji eilutė yra "viršutinė" komanda. Su sąlyga, gali būti skaitinė vertė apriboti aiškinamuosius kintamuosius dėl sveikasis skaičius (d <100), kintamasis tipas loginė (t = Tikras) arba eilutė (tex = "labas"). "Pradžia" komandų tariant, jei kilpa būtina atlikti daugiau nei vieną sąlygą. Toliau aprašomi veiksmai, kad programa turi atlikti su sąlyga, kad Nors kilpa yra įvykdytas. Tai gali būti komandų, procedūrų, funkcijų, tokių ciklų įvairovė. Tuo tikslu ji yra būtina įdėti komandą "galą", nebent, žinoma, pirmoji eilutė buvo "pradeda".

Nors Pascal

Dabar apsvarstykite tokių programų pavyzdžiusturi aprašytą komandą. Pavyzdžiui, mes turime rasti pirmųjų n natūralių skaičių sumą. Šiuo atveju mes iš pradžių manome, kad n (leiskite visada būti didesni už nulį). Tada pradėkite kilpa. Svarbu suprasti, kad jis turi dirbti, kol jis pasiekia n vertės vertę. Yra daugiau nei vienas problemos sprendimas, tačiau mes sutelksime dėmesį į tą, kuris turi įtakos skaitiklio naudojimui, kuris turi būti įdiegtas. Numatyta, kad naudojamas kintamasis i. Prieš pradėdami dirbti su juo, turite priskirti jį "1" reikšmei. Skaitiklis yra terminas kiekvienam naujam cikliniam veiksmui. Remdamiesi savo užduotimi, mes nuolat reikia pridėti prie jo. Taigi, kada nors skaitiklis skaitiklio skaitiklis bus lygus n vertė. Tai bus signalas nutraukti programą. Norėdami apskaičiuoti sumą, įveskite kintamąjį. Kiekvienai naujajai pasikartojimui bus priskirta ankstesnė vertė ir numeris i. Po paskutinio skaičiavimo, ekraną turėtumėte išvesti tik pradinį k. Tai yra trumpas programos paaiškinimas žodžiais. Dabar žiūrime į programos kodą.

Readln (n); "- skaityti numerį n.

i: = 1; k: = 0; "- mes įdiegėme skaitiklį, nulis sumos vertė.

Nors i <= n prasideda "- nustatykite kilpos būklę.

k: = k + i; i: = i + 1; "- pridėkite vertę į sumą, atnaujinkite skaitiklį.

pabaiga; "- daro išvadą" Nors "aprašymas.

Writeln (k); - Šios išvados.

Cycle while pascal

Susipažinkime su dar vienu pavyzdžiu. Dabar mes turime iš klaviatūros naudotoją užpildyti n pavadinimus, kurie išsaugos teksto masyvą. Šis principas yra panašus į praeitį. Įveskite numerį n, įjunkite "Loop loop", nustatykite sąlygą. Be to, mes pažymi iš klaviatūros įėjimus į masyvo langelio atmintį. Mes nustatome skaitiklį, mes užbaigsime pakartotines operacijas. Kitas, atstatykite skaitiklį ir išveskite masyvą. Tiesa, skaitiklio atstatymas šiame kontekste reiškia jo priskyrimą vienos vertės reikšmei, nes jūs negalite rodyti masyvo nulinės ląstelės (jos neegzistuoja). Programos kodas yra toks: iš šios programos gaunate teigiamų sveikųjų skaičių serijos, kuri baigiasi įvestu n numeriu, suma. Reikėtų suprasti, kad nesant skaitiklio, nors Paskalio linija niekada nesibaigia. Jei staiga pamirsite apie tai, kai paleisite programos kodą, kompiuteris pradės pakabinti. Tai apdorojama mygtuku "Sustabdyti". Kaip veislės skaitiklis naudokite kintamąjį c.

Readln (n);

c: = 1;

Nors c <= n prasideda "- nustatyti sąlygą.

Readln (a [c]); c: = c + 1; "- skaityti duomenis iš klaviatūros, pridėti vertę prie skaitiklio.

pabaiga; "- mes baigsime ciklą.

c: = 1; "- grąžinti reikšmę pradinei vertei.

Nors c <= n rašykite (a [c]); "- rodyti n pavadinimus.

Po to jūs gausite n vardus ekrane,buvo įrašyti iš klaviatūros. Šiame pažinime su ciklu "Nors" baigiasi. Ją naudoja tiek pradedantiesiems, tiek pažengusiems vartotojams. Ji neturi skaitiklio, todėl jam reikia ypatingo programuotojo ir papildomo kintamojo dėmesio.