Samtang laang mao ang mapuslanon alang sa programmers

Novice programmers dili pa tingali pamilyar sa usa ka mapuslanon samtang loop. Kini mao ang usa ka tipikal nga cycle operation sa Pascal medium. Kini mao ang mapuslanon sa nagkalain-laing mga problema, mao nga tan-awon kon sa unsang paagi nga imong mahimo sa paghimo sa usa ka programa sa pagbalik-balik niini.

Cycle Samtang Pascal nagkinahanglan gihimo nga ingon sa mosunod:

• Samtang (nga kahimtang) nga (magsugod kon gikinahanglan).
• aksyon algorithm.
• Katapusan (sa diha nga ang team magsugod sa availability).

Ang unang linya - "cap" sugo. kahimtang mahimo nga usa ka numero nga bili gilimitahan explanatory baryable sa integer (d <100), ang baryable matang boolean (t = Tinuod) o hilo (tex = 'hello'). "Sugdi" sugo nagbutang, kon ang laang mao ang gikinahanglan aron sa paghimo sa labaw pa kay sa usa ka kondisyon. Ang mosunod naghulagway sa buhat nga ang programa kinahanglan nga sa pagbuhat sa ilalum sa kondisyon nga ang Samtang laang gipatay. Kini naglakip sa usa ka matang sa mga sugo, mga pamaagi, gimbuhaton, sama siklo. Sa katapusan kini mao ang gikinahanglan nga gibutang sa sugo "kataposan", gawas kon, siyempre, ang unang linya mao ang "magsugod".

Karon tagda ang panig-ingnan sa mga programa nga naglakip sa naghulagway mga sugo. Kay sa panig-ingnan, kita kinahanglan sa pagpangita sa igo nga gidaghanon sa mga unang n positibo integers. Sa katapusan niini, sa sinugdan atong tagdon n (bisan tuod kini kanunay nga mas dako pa kay sa zero). Unya magsugod sa siklo. Kini mao ang importante nga makasabut nga siya adunay aron sa pagtrabaho, hangtud nga sa bili sa n. Dinhi adunay labaw pa kay sa usa ka kapilian alang sa pagsulbad sa mga problema, apan kita focus sa kamatuoran nga makaapekto sa paggamit sa counter nga imong gusto sa instalar. Pinaagi sa remate, kini mao ang gibuhat sa paggamit sa mga baryable i. Sa dili pa kamo magsugod uban niini mao ang gikinahanglan aron sa assign sa kini nga usa ka bili sa "1". counter Ang nag-alagad ingon nga usa ka termino sa matag bag-ong balik-balik nga mga lihok. Base sa atong misyon, kanunay adunay aron sa pagdugang sa usa niini. Mao kini ang, sa diha nga ang usa ka gidaghanon index counter katumbas sa bili sa sa gidaghanon n. Kini ang signal alang sa pagkompleto sa programa sa buhat. Sa pagkalkulo sa kantidad kita ipaila ang baryable k. Uban sa matag pagsubli sa kini nga gi-assign sa miaging bili plus ang gidaghanon i. Human sa katapusan sa pag-ihap, lamang nagtuo k explanatory baryable sa screen. Kini mao ang usa ka mubo nga katin-awan sa mga pulong sa mga programa. Karon kita motan-aw sa code.

Readln (n); '- atong mabasa ang gidaghanon n.

i: = 1; k: = 0; '- mosulod ngadto sa buhat counter, zero kita gikan sa bili sa kantidad.

Samtang ako <= n man magsugod '- ang mga kahimtang sa siklo sa buhat.

k: = k + i; i: = i + 1; '- makadugang bili sa kantidad update counter.

matapos; '- Samtang pagkompleto sa paghulagway sa buhat.

Writeln (k); - Kini nga mga konklusyon.

Kita motan-aw sa laing panig-ingnan. Karon kita kinahanglan nga pun-on sa mga user sa mga ngalan keyboard n nga sa pagluwas sa mga teksto gubat. Ang baruganan dinhi mao ang susama sa nangagi. Pagsulod sa gidaghanon n, pagpaaktibo kita sa Samtang laang set kahimtang. Dugang pa, pagtumong sa keyboard input sa handumanan cell gubat. Ibutang counter mokompleto balik-balik nga operasyon. Sunod, sa counter mao Reset ug display gubat. Apan, Reset sa counter sa niini nga konteksto nagpasabot sa pag-assign sa usa ka bili sa usa, kay kamo dili makahimo sa pagdala sa zero cell gubat (dili kini anaa). Ang programa sa code mao ang sama sa mosunod: sa programa niini ikaw makadawat sa kantidad sa usa ka gidaghanon sa mga natural nga positibo nga mga numero, nga matapos ang pasiuna sa labing n. Kini kinahanglan nga nakasabut nga sa wala sa counter, Samtang Pascal siklo dili gayud matapos. Kon kamo sa kalit kalimtan mahitungod niini, sa pagpatay sa programa sa code, ang computer magsugod sa nagasukad. Kini mao ang pagtratar sa button "Pause Singgit". Ingon sa usa ka counter alang sa paggamit diversity explanatory baryable sa c.

Readln (n);

c: = 1;

Samtang c <= n man magsugod '- mga kahimtang sa tanom.

Readln (sa usa ka [c]); c: = c + 1; '- mabasa data gikan sa keyboard, makadugang kita bili sa counter.

matapos; '- pagkompleto sa pagbalik-balik.

c: = 1; '- schetiku mobalik sa orihinal nga bili.

Samtang c <= n sa pagbuhat sa isulat (sa usa ka [c]); '- Ipakita sa ngalan n.

Unya kamo sa screen n ang mga ngalan nga misulod gikan sa keyboard. Sa niana nga, ang usa ka Samtang loop matapos. Kini gigamit sa duha beginners ug abante nga tiggamit. Siya wala mag-isip, ug busa nagkinahanglan og espesyal nga pagtagad ngadto sa programmer ug sa usa ka dugang nga baryable.