Thaum lub voj yog pab tau rau cov

Novice programmers yuav tsis tau paub ib tug pab tau thaum lub voj. Qhov no yog ib tug raug kev voj voog lag luam nyob rau hauv Pascal nruab nrab. Qhov no pab tau nyob rau hauv ntau yam teeb meem, thiaj li saib yuav ua li cas koj yuav ua tau ib tug pab cuam ntawm no voj voog.

Voj voog Thaum Pascal yuav tsum tau ua raws li nram no:

• Thaum (mob) tsis (pib yog tias tsim nyog).
• txiav txim algorithm.
• End (thaum pab neeg no pib muaj txaus).

Cov thawj kab - "cap" hais kom ua. Tus mob tej zaum yuav ib tug hais txog zauv tus nqi limiting explanatory ntau yam rau integer (d <100), lub nce mus nce los hom boolean (t = Yeej muaj tseeb) los yog txoj hlua (txhab = 'nyob zoo'). "Pib" hais kom muab, yog hais tias tus voj yog tsim nyog los ua ntau tshaj li ib yam kev mob. Cov nram qab no qhia txog cov kev uas ua kom cov kev pab cuam yuav tsum tau ua nyob rau hauv cov mob uas lub Thaum voj tseg. Nws yuav muaj ib tug ntau yam ntawm commands, cov txheej txheem, kev siv, xws cycles. Nyob rau hauv lub kawg nws yog tsim nyog los muab tso rau qhov hais kom ua "kawg", tshwj tsis yog tias, ntawm chav kawm, cov thawj kab yog "pib".

Tam sim no xav txog cov piv txwv cov kev pab uas muaj piav qhia txog cov lus txib. Piv txwv li, peb yuav tsum nrhiav tus sum ntawm cov thawj n zoo zauv. Yuav kom qhov no kawg, chiv peb xav txog n (tab sis yog nws yuav nco ntsoov yuav ntau dua zero). Ces pib lub voj voog. Nws yog ib qho tseem ceeb kom nkag siab txog hais tias nws muaj mus ua hauj lwm, kom txog rau thaum nws nce mus txog tus nqi ntawm n. Ntawm no yog ntau tshaj ib txoj kev daws qhov teeb meem, tab sis peb yuav kub siab rau lub fact tias muaj feem xyuam rau cov kev siv ntawm cov tshuaj yuav tom khw uas koj xav rau nruab. Yog lub neej ntawd, qhov no yog ua li cas siv lub nce mus nce los i. Ua ntej koj pib nrog nws yog tsim nyog los muab nws ib tug nqi ntawm "1". Cov tshuaj yuav tom khw ua hauj lwm pab raws li ib lub sij hawm nrog txhua tshiab cyclical ua. Raws li peb lub hom phiaj, lossi muaj mus ntxiv ib los rau nws. Yog li, thaum ib tug hais txog zauv index counter sib npaug tus nqi ntawm cov xov tooj n. Qhov no yuav ua tau lub teeb liab rau kawm tiav ntawm lub chaw ua hauj lwm qhov kev pab cuam. Yuav kom xam tus nqi peb ua kom paub cov nce mus nce los k. Nrog txhua repetition ntawm nws yuav raug muab tso rau hauv lub yav dhau los tus nqi ntxiv cov i. Tom qab qhov kawg ntawm suav, tsuas deduce k explanatory ntau yam ntawm qhov screen. Qhov no yog ib tug nyuag piav nyob rau hauv cov lus ntawm qhov kev pab cuam. Tam sim no peb saib cov code.

Readln (n); '- peb nyeem cov xov tooj n.

kuv: = 1; k: = 0; '- nkag mus rau hauv lub chaw ua hauj lwm txee, peb xoom tawm tus nqi ntawm cov sum.

Thaum kuv <= n tsis pib '- muab cov tej yam kev mob ntawm lub chaw ua hauj lwm mus los.

k: = k + kuv; kuv: = kuv + 1; '- ntxiv tus nqi rau tus nqi hloov tshiab txee.

xaus; '- Thaum tiav qhov kev piav qhia ntawm lub chaw ua hauj lwm.

Writeln (k); - Cov lus xaus.

Peb saib lwm cov piv txwv. Tam sim no peb yuav tsum tau sau cov neeg uas keyboard n npe uas yuav txuag tau cov ntawv nyeem array. Lub hauv paus ntsiab lus no yog zoo li yav tag los. Sau tus xov tooj n, peb qhib qhov Thaum voj txheej mob. Ntxiv mus, txhais cov keyboard tawm tswv yim rau lub cim xeeb ntawm tes array. Teem counter sau dua ua hauj lwm. Tom ntej no, lub txee yog pib dua thiab zaub array. Txawm li cas los, pib dua lub txee nyob rau hauv qhov ntsiab lus teb txhais tau hais tias muab ib tug nqi ntawm ib tug, vim koj yuav tsis muaj peev xwm mus coj pes tsawg cell array (nws tsis ua ib ke). Qhov kev pab cuam code yog raws li nram no: nyob rau hauv qhov kev pab cuam koj yuav tau txais lub sum ntawm ib tug xov tooj ntawm tej yam ntuj tso zoo tus xov tooj, uas xaus cov kev taw qhia ntawm feem ntau n. Nws yuav tsum tau to taub hais tias nyob rau hauv lub qhaj ntawv ntawm lub txee, Thaum Pascal voj voog tsis finishes. Yog hais tias koj mam li nco dheev tsis nco qab txog nws, nyob rau hauv lub tua ntawm txoj kev pab code, cov computer pib mus dai. Nws yog kho lub khawm "Mas So". Raws li ib tug counter rau kev siv ntau haiv neeg explanatory ntau yam nyob rau hauv c.

Readln (n);

c: = 1;

Thaum c <= n tsis pib '- cog tej yam kev mob.

Readln (ib tug [c]); c: = c + 1; '- nyeem cov ntaub ntawv los ntawm cov keyboard, peb ntxiv tus nqi rau cov tshuaj yuav tom khw.

xaus; '- ua kom tiav lub voj voog.

c: = 1; '- schetiku rov qab mus rau thawj tus nqi.

Thaum c <= n ua sau (ib tug [c]); '- Muab lub npe n.

Ces koj tau txais nyob rau hauv qhov kev tshuaj ntsuam n lub npe uas tau raug nkag mus hauv los ntawm cov keyboard. Thaum ntawd, ib tug Thaum voj xaus. Nws yog siv los ntawm ob beginners thiab advanced cov neeg siv. Nws tsis suav, thiab yog li ntawd yuav tsum tau tshwj xeeb mloog mus rau lub programmer thiab ib qho ntxiv nce mus nce los.