Ged a lùb e feumail airson prògramaidh

Ùr-ionnsaiche-prògramaidh dòcha nach eil fhathast a bhith eòlach aon feumail fhad 'sa lùb. 'S e seo àbhaisteach ann an cearcall obrachadh Pascal mheadhan. Tha seo feumail ann an diofar dhuilgheadasan, mar sin a 'coimhead air ciamar a nì thu prògram de chearcall seo.

Cycle Ged Pascal a dhìth a dhèanamh mar a leanas:

• Ged (staid) a bhios (rithist ma dh'fheumar).
• gnìomha algairim.
• End (nuair a bhios an sgioba a 'tòiseachadh ri fhaotainn).

Tha a 'chiad loidhne - "Cap" àithne. Tha an staid dh'fhaodadh a bhith àireamhach luach bacaidh mìneachaidh caochladairean air Integer (d <100), caochlaideach seòrsa boolean (t = True) no sreang (Tex = 'Hello'). "Toisich" àithne chuireadh, ma tha an lùb a tha riatanach gus a 'coileanadh barrachd air aon staid. Tha na leanas a 'toirt iomradh air na gnìomhan a' phrògram Feumaidh a 'coileanadh fo chùmhnant gun Ged a bha an lùib a tha bàs. Faodaidh e tha measgachadh de àitheantan, modhan-obrach, gnìomhan, leithid cearcallan. Ann an deireadh tha e riatanach a chur an àithne "deireadh", mur eil, gu dearbh, a 'chiad loidhne a bha "a' tòiseachadh".

A-nis a 'beachdachadh air an t-eisimpleir prògraman a tha ag innse àitheantan. Mar eisimpleir, feumaidh sinn a 'lorg an sùim a' chiad n deagh integers. Gus seo a dhèanamh, an toiseach sinn a 'beachdachadh n (ged a bhios e an-còmhnaidh a bhith nas motha na neoini). An uair sin tòisich a 'rothaireachd. Tha e cudromach tuigsinn gu bheil e air a bhith ag obair, gus an ruig i an luach n. An seo tha barrachd air aon roghainn airson fuasgladh air an trioblaid, ach bidh fòcas againn air gu bheil a 'toirt buaidh air cleachdadh a' chunntair a tha thu airson stàladh. Le bhith a 'default, tha seo a dhèanamh a' cleachdadh an caochlaideach i. Mus tòisich thu le e riatanach a shònrachadh e luach "1". A 'chunntair' frithealadh mar teirm le gach ùr cunbhalach air gnìomhan. Stèidhichte air ar rùn, daonnan a bhith a 'cuir aon ris. Mar sin, nuair a àireamhach Clàr-ìnnse counter co-ionann ri luach an àireamh n. Bidh seo an comharra airson crìoch a chur air a 'phrògram-obrach. Gus obrachadh a-mach an t-suim a tha sinn a toirt a-steach caochlaideach k. Leis gach ath-aithris a bhios e air a shònrachadh roimhe luach plus an àireamh i. Às dèidh deireadh a 'cunntadh, ach dhùnadh a k-mìneachaidh caochladairean air an sgrion. Tha seo a 'mìneachadh goirid air na faclan den phrògram. A-nis tha sinn a 'coimhead air a' Chòd.

Readln (n); '- leugh sinn an àireamh n.

i: 1 =; k: 0 =; '- a steach do obair counter, tha sinn a neoni a-mach an luach aig an t-suim.

Ged a bha i 'n <= bhi rithist' - a chaidh a chur ri cumhaichean an cùrsa-obrach.

k: = k + i; i: i = + 1; '- luach a chur ris an t-suim-ùrachadh chunntair.

crìch; '- Ged a bha a' lìonadh an tuairisgeul air an obair.

Writeln (k); - Tha na co-dhùnaidhean.

Tha sinn a 'coimhead air eisimpleir eile. A-nis feumaidh sinn a bhith a 'lìonadh an neach-cleachdaidh le meur-chlàr n-ainmean a bhios a shàbhaladh teacs ordugh. Tha am prionnsapal seo a tha coltach ris an àm a dh'fhalbh. Cuir a-steach an àireamh n, tha sinn a 'chur an Ged lùb seata staid. Nas fhaide, denote 'mheur-chlàr a' cur ri an cuimhne cealla ordugh. Suidhich chunntair a 'cur crìoch repeated obraichean. An ath, an aghaidh ath-shuidheachadh agus tha taisbeanadh ordugh. Ach, ath-shuidheachadh a 'chunntair ann an cho-theacsa seo a' ciallachadh a shònrachadh luach aon, bhon a tha thu cha bhi e comasach a thoirt neoni cealla ordugh (chan eil e ann). Tha am prògram a 'chòd mar a leanas: ann am prògram seo gheibh thu an t-suim de ghrunn nàdarra deagh àireamhan, a tha a' crìochnachadh a 'toirt a-steach as motha a n. Bu chòir a bhith a 'tuigsinn na tha ann an às-làthaireachd air a' chunntair, Ged Pascal cearcall a-riamh a 'crìochnachadh. Ma tha thu gu h-obann a 'dìochuimhneachadh mu dheidhinn, ann an coilionadh prògram code, an coimpiutair a' tòiseachadh a chrochadh. Thathar a 'dèiligeadh a' phutan "Stad Break". Mar counter airson a chleachdadh iomadachd mìneachaidh caochladairean air c.

Readln (n);

c: 1 =;

Ged c <= n bhi rithist '- lus na h-.

Readln (a [c]); c: c = + 1; '-' leughadh dàta bho 'mheur-chlàr, tha sinn a luach a chur ris a' chunntair.

crìch; '-' crìochnachadh a 'chearcaill.

c: 1 =; '- schetiku till tùsail luach.

Ged c <= n dhèanamh a 'sgrìobhadh (a [c]); '- ainm a thaisbeanadh n.

An sin gheibh thu air an sgrion n-ainmean a chaidh a-steach bho mheur-chlàr. Aig an am sin, a 'crìochnachadh Ged lùb. Tha e air a chleachdadh leis an dà chuid luchd-tòiseachaidh agus adhartach luchd-cleachdaidh. Chan eil e a 'cunntadh, agus uime sin a' cur feum air aire shònraichte do na phrogramaiche, agus a bharrachd caochlaideach.