Gava ku çerxeke bo bernamekirina kêrhatî ye

bernamenûs, Novice yet dikarin nas yek kêrhatî dema loop be ne. Ev operasyona cycle tîpîk in medium Pascal e. Ev in astengiyên cuda kêrhatî ye, da li ku çawa hûn dikarin bernameyeke ji make binêrin ev cycle.

Cycle Gava Pascal wiha kirin pęwîst e:

• Gava (rewşa) do (dest heke pêwîst be).
• Cureyê çalakiyê.
• End (dema ku tîma dest pê bikin û hebûna).

The yekem line - "cap" Fermana. Rewşa dibe ku nirxê hejmarî rêlêgirtina guherbarên vegotinê li Integer (d <100), type boolean variable (t = True) an jî rêzika (tex = 'hello'). "Dest" emrê put, eger qevaztin û pêwîst e ji bo pêkanîna zêdetir ji yek şertê. Li jêr ji çalakiyên ku di programê de divê di bin şertê ku çerxeke Gava ku îdam ji pêkanîna de rave dike. Ev dikare cîhêreng ên ji emrên, prosedurên, fonksîyon, wisa cycles. Di dawiyê de, pêwîst e ku fermana "dawî", eger, bê guman, li ser xeta yekem bû "dest".

Niha bernameyên nimûne ku dihewîne emrên de rave dike bifikirin. Ji bo nimûne, em pêwîstî bi kurtahî li tamjimarên yekem n erênî. Ji bo vê armancê jî, di destpêkê de em bifikirin n (tevî ku ev her tim dê ji sifirê mezintir be). Hingê cycle dest. Ev girîng e ku fêm bikin ku ew ji bo xebatê, heta ku ew nirxê n Amerîqayê. Li vir e ku ji yekê zêdetir bijare ji bo çareserkirina vê pirsgirêkê jî heye, lê belê em li ser wê yekê ku bikaranîna yên kontra ku tu dixwazî saz bikî tesîrê bala wê. Wekî standard, ev bi saya variable i kirin. Berî ku hun bi dest ew e ku nirxê "1" peywirdarkirin pêwîst e. The counter wek term bi her çalakî cyclical nû re xizmetê dike. Li ser hîmê mîsyona xwe, her tim bi xwe lê zêde bike yek to it. Bi vî awayî, çaxê ku ji pêrista counter hejmarî beramberê nirxê hejmara n. Ev dê bibe sînyala ji bo temamkirina bernameya kar. To hejmêrim mîqdara k variable nasandina em. Bi hev re ji dubarekirina wê nirxê berê plus hejmara i rêdan. Piştî ku di dawiya hejmartina, tenê k guherbarên vegotinê li ser ekranê dertê. Ev daxuyaniyeke kurt li ser gotinên ku di programê de ye. Niha em li code binêre.

Readln (n); '- em bi hejmareke n xwendin.

i: = 1; k: = 0; '- bikevin nav counter kar, em zero ji nirxê yekûna.

Gava ku i <= n dest bi '- set û mercên cycle kar.

k: = k + i; i: = i + 1; '- lê zêde bike nirxa ji update mîqdara counter.

dawî; '- Di dema derbaskirina description of the work.

Writeln (k); - Ev encamên.

Em li mînakeke din binêrin. Niha divê em ji bo tije user bi navên Klavyeya n ku dê array nivîsê xilas bike. Esasê vê derê mîna berê ye. hejmara n Enter, em di dema ku rewşa set loop çalakkirin. Ji bilî vê, li Daqûq li input Klavyeya ji array hucreya bîra. Set counter temam operasyonên dubare kir. Next, li dijî reset û display array e. Lê belê, reset dezgehê di vê çarçoveyê de tê wateya bê peywirdarkirin a nirxê yek, ji ber ku hûn ne wê bikaribin bînin array hucreyê de sifir (it does not exist). Koda ku bernameyeke wiha ye: Di vê bernameyê de tu dê bi qasî çend hejmarên xwezayî erênî, ku bi dawî danasîna herî n bistîne. Ev divê bê fêmkirin ku di nava kaos û yên kontra, Gava cycle Pascal qet bi dawî. Heke tu ji nişkê ve li ser bîr, li ser îdam kirina code bernameyê, dibe dest pê to hang. Ev e li button "Break Rawestîne" dermankirin. Weke amûreke ji bo bikaranîna diversity guherbarên vegotinê li c.

Readln (n);

c: = 1;

Hê c <= n dest bi '- mercên plant.

Readln (a [c]); c: = c + 1; '- xwendin daneyên ji Klavyeya, em nirxê zêde ji counter.

dawî; '- dawîhatina cycle.

c: = 1; '- schetiku nirxa resen de vegere.

Hê c <= n do re binivîse (a [c]); '- Display navê n.

Hingê hûn li ser ekranê n navên ku ji Klavyeya ketin hatine dest. Li ku, a loop dema ku bi dawî dibe. Ev her du destpêker û bikarhênerên pêşketî bikaranîn. Ew bępar ne, û ji ber vê yekê pêdivî bi taybetî jî ji bernameçêker û an variable din.