Pandan y ap riban se itil pou pwogramasyon

pwogramasyon inisyasyon pa ka ankò dwe abitye youn itil pandan y ap riban. Sa a se yon operasyon sik tipik nan Pascal medyòm. Sa a se itil nan pwoblèm divès kalite, se konsa gade nan ki jan ou ka fè yon pwogram nan sik sa a.

Sik Pandan ke Pascal mande pou fè jan sa a:

• Pandan ke (kondisyon) (kòmanse si sa nesesè).
• aksyon algorithm.
• Fen (lè ekip la kòmanse a disponibilite).

premye liy lan - "bouchon" lòd. Kondisyon nan pouvwa gen yon valè nimerik limite varyab eksplikasyon sou antye (d <100), di ki kalite Boolean la varyab (t = Vre) oswa fisèl (Tex = 'alo'). "Kòmanse" lòd mete, si bouk la nesesè fè plis pase yon kondisyon. Sa ki anba la dekri aksyon sa yo ke pwogram nan dwe fè anba kondisyon sa a, ki riban an Pandan ke egzekite. Li ka gen ladan yon varyete de kòmandman, pwosedi, fonksyon, sik sa yo. Nan fen an li nesesè yo mete lòd "fen a", sof si, nan kou, liy lan premye te "kòmanse".

Koulye a, konsidere pwogram yo egzanp ki gen dekri kòmandman. Pou egzanp, nou bezwen jwenn sòm total la nan nonm antye relatif yo an premye N pozitif. Pou sa ka fèt, okòmansman nou konsidere n (menm si li ap toujou gen pi gran pase zewo). Lè sa a, kòmanse sik la. Li enpòtan ke ou konprann ke li te gen nan travay, jouk li rive nan valè a nan n. Isit la gen plis pase yon opsyon pou rezoud pwoblèm nan, men nou pral konsantre sou lefèt ke afekte itilize nan kontwa an ke ou vle enstale. Pa default, sa a se fè lè l sèvi avèk varyab la mwen. Anvan ou kòmanse ak li se nesesè yo bay li yon valè de "1". vann san preskripsyon nan sèvi kòm yon tèm ak tout nouvo aksyon conjoncture. Baze sou ki misyon nou, toujou ap gen ajoute youn nan li. Se konsa, lè yon vann san preskripsyon endèks nimerik egal valè a nan n nan kantite. Sa a pral siyal la pou fini nan pwogram lan travay. Pou kalkile kantite lajan an nou entwodui k la varyab. Avèk chak repetisyon nan li pral asiyen valè a anvan yo plis nimewo a mwen. Aprè la fen a konte, se sèlman enferyè k varyab eksplikasyon sou ekran an. Sa a se yon eksplikasyon tou kout sou pawòl ki nan pwogram nan. Koulye a, nou gade nan kòd la.

Readln (n); '- Li yon n kantite.

mwen: = 1; K: = 0; '- antre nan kontwa an travay, nou zewo soti valè a nan sòm total la.

Pandan ke mwen <= n kòmanse '- mete kondisyon sa yo nan sik la travay.

k: = k + mwen; mwen: = mwen + 1; '- ajoute valè nan kontwa an kantite lajan aktyalizasyon.

fini; '- Pandan ke ranpli deskripsyon an nan travay la.

Writeln (k); - Sa yo konklizyon yo.

Nou gade yon lòt egzanp. Koulye a, nou bezwen ranpli itilizatè a ki gen non klavye N ki pral delivre etalaj la tèks. Prensip la isit la se menm jan ak tan lontan an. Antre nan n nan nimewo, nou aktive pandan y ap riban seri kondisyon an. Pli lwen, don D 'a klavye yo etalaj nan selil memwa. Mete vann san preskripsyon konplete repete operasyon yo. Apre sa, kontwa an se reset ak ekspozisyon etalaj. Sepandan, Reyajiste kontwa an nan yon kontèks sa a vle di yo asiyen yon valè nan yon sèl, depi ou pa yo pral kapab pote zewo etalaj selil (li pa egziste). Kòd la pwogram se jan sa a: nan pwogram sa a ou pral resevwa sòm total la nan yon nimewo nan nimewo natirèl pozitif, ki fini entwodiksyon an nan pi n. Li ta dwe konprann ke nan absans la nan kontwa an, Pandan ke Pascal sik pa janm fini. Si ou toudenkou bliye sou li, nan ekzekisyon an nan Kòd pwogram, òdinatè a kòmanse pann. Li se trete bouton "Pòz Pak la". Kòm yon vann san preskripsyon pou itilize divèsite varyab eksplikasyon sou c.

Readln (n);

c: = 1;

Pandan ke c <= n kòmanse '- kondisyon plant.

Readln (yon [c]); c: = c + 1; '- li done ki sòti nan klavye a, nou ajoute valè nan kontwa an.

fini; '- ranpli sik la.

c: = 1; '- schetiku retounen valè a orijinal la.

Pandan ke c <= n fè ekri (yon [c]); '- Display Non n.

Lè sa a, ou jwenn sou ekran an n non yo ki te antre nan soti nan klavye la. Lè sa, se yon riban pandan y ap fini. Li se itilize pa tou de débutan yo ak divinò avanse. Li pa konte, ak Se poutèt sa mande pou atansyon espesyal nan pwogramè a ak yon varyab adisyonèl.