Iyadoo loop waa waxtar u leh barnaamijyo

barnaamijyo laylis laga yaabaa in aan weli noqon mid la yaqaan halka loop waxtar leh. Tani waa hawlgal wareegga caadiga ah ee dhexdhexaad ah Pascal. Tani waa mid waxtar leh in dhibaatooyin kala duwan, si loo eego sida aad ka dhigi kartaa barnaamij ka mid ah wareegga this.

Cycle Iyadoo Pascal baahan sameeyey sida soo socota:

• Iyadoo (xaalad) ha (bilaabaan haddii loo baahdo).
• geynta tallaabo.
• End (markii kooxda ay bilaabaan inay la heli karo).

safka ugu horreeya - "cap" amarka. Xaaladda waxaa laga yaabaa in qiimaha tirsi yareysey doorsoomayaasha sharaxaadda on abyoonaha (d <100), boolean ah variable nooca (= True t) ama string (Tex = 'hello'). "Bilow" shubtaa amarka, haddii loop waa lagama maarmaan si ay u qabtaan wax ka badan hal xaalad. soo socda wuxuu qeexayaa tallaabooyinka in barnaamijka waa u qabtaan hoos shardi ah in loop Iyadoo la gar qaybshay. Waxaa ku jiri kara noocyo kala duwan oo amarradiisa, nidaamka, hawlaha, wareegyada sida. In dhamaadka waxaa lagama maarmaan ah in ay ku riday "dhamaadka" amarka, haddii aan, dabcan, line kowaad wuxuu ahaa "bilaabaan".

Haddaba ka fiirsada tusaale ahaan barnaamijyada ay ku jiraan qeexayaa amarradiisa. Tusaale ahaan, waxaan u baahan nahay in la helo wadarta ah abyoonayaasha horeysay n wanaagsan. Si taas loo gaaro, marka hore waxaan n ka fiirsan (inkasta oo ay had iyo jeer waxay noqon doontaa weyn yahay eber). Markaas bilowdo wareegga. Waxaa muhiim ah in la fahmo in waxa uu leeyahay in ay ka shaqeeyaan, ilaa ay ka gaarayso qiimaha n. Halkan waxaa jira wax ka badan hal doorasho lagu xallinayo dhibaatada, laakiin waxaan diirada saari doontaa xaqiiqda ah in saamayn ku isticmaalka counter in aad rabto in aad ku rakibi. By default, tani waxaa la sameeyaa iyadoo la isticmaalayo variable ah i. Ka hor inta aanad bilaabin leh waxaa lagama maarmaan ah in ay ku wareejinayso qiimaha ah "1". counter waxay u adeegtaa sida muddada la falalka meerto kasta oo cusub. Iyada oo ku saleysan our mission, si joogto ah u leeyihiin in ay ku darto mid si. Sidaas darteed, markii counter a index tiro u dhiganta qiimaha n tirada. Tani waxay noqon doontaa signal ee soo dhameeysto barnaamijka shaqada. Si loo xisaabiyo lacagta aan soo bandhigno k ah variable. Iyada oo soo noq-kasta waxaa ka mid ah waxa lagu meelaynayaa qiimaha hore oo lagu daray tirada i. Ka dib dhammaadka tirinta, lean kaliya k doorsoomayaasha sharaxaadda shaashadda. Tani waa sharaxaad gaaban oo ku saabsan erayada barnaamijka. Haddaba aynu eegno xeerka.

Readln (n); '- waxaan ka akhrisan n tirada.

i: = 1; k: = 0; '- galaan counter shaqada, aan eber baxay qiimaha wadarta.

Inkasta oo i <= n ha bilaabaan '- dhigay shuruudaha wareegga shaqada.

k: = k + i; i: = i + 1; '- qiimo u counter update lacagta.

inuu dhamaado; - Iyadoo uu soo dhameystay sharaxaad ka mid ah shaqada.

Writeln (k); - gunaanad Kuwani.

Aynu eegno tusaale kale. Hadda waxaan u baahan tahay in la buuxiyo user ah magacyada keyboard n in badbaadin doonaa soo diyaariyeen qoraalka. Mabda'a halkan la mid tahay la soo dhaafay. Ku qor n tirada, waxaan dhaqaajiso xaalad Iyadoo set loop ka. Dheeraad ah, oo tusinaysa aqbasho keyboard in ay isugu soo cell xasuusta. counter dhigay dhameystiraya hawlaha soo noqnoqda. Next, counter waa keddibna oo soo bandhigay dagaal isugu diyaariyeen. Si kastaba ha ahaatee, dib counter ah ee macnaha taasi ka dhigan tahay inuu ku meeleeyo qiimaha hal, tan iyo ma keeni karin eber cell isugu soo noqon doonaa adiga (waxaa kajirin). code barnaamijka waa sida soo socota: barnaamijkan waxaad heli doontaa wadarta tiro ka mid ah tirooyinka togan dabiiciga ah, kaas oo ku dhammaanaysaa hordhaca ah ee ugu n. Waa in la fahamsan yahay in ay ka maqan yihiin counter ah, Iyadoo Pascal wareeg aan dhameeyo. Haddii aad si lama filaan ah iloobin waxa ku saabsan, in fulinta code barnaamijka, computer bilaabo inuu laalaadaan. Waxaa la daweeyey button "Break Haki" ah. Sida counter ah loo isticmaalo kala duwanaanshaha doorsoomayaasha sharaxaadda on c.

Readln (n);

c: = 1;

Iyadoo c <= n ha bilaabaan '- xaaladaha dhirta.

Readln (a [c]); c: = c + 1; '- akhriya xogta laga keyboard, waxaan qiimo u counter ah.

inuu dhamaado; '- buuxinta wareegga.

c: = 1; '- ku noqon schetiku qiimaha asalka ah.

Iyadoo c <= n samayn qortaa (a [c]); - Muuji magaca n.

Markaas waxaad ka heli shaashadda n magacyada la soo galay ka keyboard ah. At in, loop Iyadoo uu dhamaado. Waxaa loo isticmaalaa by bilowga ah iyo dadka isticmaala sare labadaba. Isagu ma tirin, oo sidaas daraaddeed waxay u baahan tahay fiiro gaar ah u leh barnaamijyada iyo variable ah oo dheeraad ah.