Nigba ti lupu jẹ wulo fun pirogirama

Alakobere pirogirama le ko sibẹsibẹ jẹ faramọ ọkan wulo nigba ti lupu. Eleyi jẹ kan aṣoju ọmọ isẹ ti ni Pascal alabọde. Eleyi jẹ wulo ninu orisirisi isoro, ki wo ni bi o le ṣe eto kan ti ọmọ yi.

Ọmọ Nigba ti Pascal nilo ṣe bi wọnyi:

• Lakoko ti o ti (majemu) ni (bẹrẹ ti o ba wulo).
• igbese alugoridimu.
• Opin (nigbati awọn egbe bẹrẹ si wiwa).

Ni igba akọkọ ti ila - "fila" pipaṣẹ. Awọn majemu le jẹ a ìtúwò iye diwọn Àlàye oniyipada on odidi (d <100), awọn ayípadà iru Bolianu (t = True) tabi okun (tex = 'hello'). "Bẹrẹ" pipaṣẹ fi, ti o ba lupu jẹ pataki lati ṣe siwaju ju ọkan majemu. Awọn wọnyi apejuwe awọn sise ti awọn eto gbọdọ ṣe labẹ awọn majemu wipe Lakoko ti o ti lupu ti wa ni executed. O le ni awọn kan orisirisi ti ofin, ilana, awọn iṣẹ, iru waye. Ni opin o jẹ pataki lati fi awọn pipaṣẹ "opin", ayafi ti, dajudaju, ni igba akọkọ ti ila je "bẹrẹ".

Bayi ro awọn apẹẹrẹ eto ti o ni apejuwe ase. Fun apẹẹrẹ, a nilo lati wa awọn iye ti akọkọ n rere odidi. Lati yi opin, lakoko ti a ro n (bi o ti yoo ma jẹ tobi ju odo). Ki o si bẹrẹ awọn ọmọ. O ṣe pataki lati ni oye wipe o ni o ni lati sise, titi ti o Gigun ni iye ti n. Nibi nibẹ ni siwaju ju ọkan aṣayan fun lohun awọn isoro, ṣugbọn awa o fojusi lori o daju wipe yoo ni ipa lori awọn lilo ti awọn counter ti o fẹ lati fi sori ẹrọ. Nipa aiyipada, yi ti ni ṣe lilo awọn ayípadà i. Ṣaaju ki o to bẹrẹ pẹlu o jẹ pataki lati fi o kan iye ti "1". Awọn counter Sin bi a igba pẹlu gbogbo titun cyclical sise. Da lori ise wa, nigbagbogbo ni lati fi ọkan si o. Bayi, nigbati a ìtúwò Ìwé counter je egbe ni iye ti awọn nọmba n. Eleyi yoo jẹ awọn ifihan agbara fun pari ti awọn iṣẹ eto. Lati ṣe iṣiro iye ti a agbekale awọn ayípadà k. Pẹlu kọọkan atunwi ti o yoo wa ni sọtọ awọn ti tẹlẹ iye plus awọn nọmba i. Lẹhin opin kika, nikan deduce k Àlàye oniyipada loju iboju. Eleyi jẹ kan finifini alaye lori awọn ọrọ ti awọn eto. Bayi a ba wo ni awọn koodu.

Readln (n); '- a ka awọn nọmba n.

i: = 1; k: = 0; '- wọ inu iṣẹ counter, a odo jade ni iye ti awọn kan naa.

Nigba ti i <= n ma bẹrẹ '- ṣeto awọn ipo ti awọn iṣẹ ọmọ.

k: = k + i; i: = i + 1; '- fi iye to iye imudojuiwọn counter.

mu; '- Lakoko ti o ti ipari awọn apejuwe ti awọn iṣẹ.

Writeln (k); - Awọn wọnyi ni ipinnu.

A ba wo ni miiran apẹẹrẹ. Bayi a nilo lati kun awọn olumulo pẹlu keyboard n awọn orukọ ti yoo fi awọn ọrọ orun. Awọn opo nibi ni iru si awọn ti o ti kọja. Tẹ nọmba n, a mu awọn Lakoko ti o ti lupu ṣeto majemu. Siwaju sii, yan awọn keyboard input si iranti cell orun. Ṣeto counter pari tun mosi. Next, awọn counter ni ipilẹ ati ifihan orun. Sibẹsibẹ, tun counter ni yi o tọ ti o tumo si lati fi kan iye ti ọkan, niwon o kii yoo ni anfani lati mu odo cell orun (ti o ko ni tẹlẹ). Awọn eto koodu ti wa ni bi wọnyi: ninu eto yi o yoo gba iye nọmba kan ti adayeba nomba rere, eyi ti o dopin awọn ifihan ti julọ n. O yẹ ki o wa ni gbọye wipe ninu awọn isansa ti awọn counter, Nigba Pascal ọmọ kò pari ni. Ti o ba lojiji gbagbe nipa o, ni ipaniyan ti eto koodu, awọn kọmputa bẹrẹ lati idorikodo. O ti wa ni mu awọn bọtini "Sinmi Bireki". Bi awọn kan counter fun lilo oniruuru Àlàye oniyipada on c.

Readln (n);

c: = 1;

Lakoko ti o ti c <= n ma bẹrẹ '- ọgbin awọn ipo.

Readln (a [c]); c: = c + 1; '- Say data lati awọn keyboard, a fi iye si awọn counter.

mu; '- ipari awọn ọmọ.

c: = 1; '- schetiku pada atilẹba iye.

Lakoko ti o ti c <= n se Kọ (a [c]); '- Ifihan orukọ n.

Ki o si gba lori iboju n ni awọn orukọ ti o ti a ti tẹ lati keyboard. Ni ti, a Lakoko ti o ti lupu dopin. O ti wa ni lo nipa mejeeji olubere ati ki o to ti ni ilọsiwaju olumulo. O si ko ka, ki o si nitorina nilo pataki ifojusi si awọn komputa ati awọn ẹya afikun ayípadà.