Ha a ntse a sekgoqetsane ke le thuso ya ho ba mananeo

ba mananeo novice ka 'na a e-s'o ba le tlwaetsego mong le thuso ha sekgoqetsane. Sena ke e tloaelehileng ea potoloho ea tshebetso ka Pascal mahareng. Sena ke molemo ka mathata a fapa-fapaneng, e le sheba hore na u ka etsa lenaneo la ho potoloho ena.

Potoloho ea Ha Pascal hloka hore entse tjena:

• Ha a ntse a (boemo) Ha (qala ha ho hlokahala).
• bohato-tharabololo.
• End (ha sehlopha sa qala ho fumaneha ha).

Ntlha ea pele - "cap," Taelo. boemo ba ka 'na ba le boleng tlhamiwe fokotsa divariabole tlhaloso ka ka palotlalo (d <100), le polygonal mofuta Boolean (sa t =' nete) kapa khoele (Tex = "lumela '). "Qala" Taelo etelelitse, haeba sekgoqetsane ho hlokahala hore ho phetha boemo feta feta a le mong. E latelang e hlalosa liketso tsa hore lenaneo le tlameha ho phetha tlas'a tumellano ea hore ba Ha sekgoqetsane e bolaoa. E ka ba le mefuta e fapaneng ya litaelo tsa, mekgwa, mesebetsi, joalo ka lipotoloho. Qetellong ke ho hlokahala hore ho beha taelo "qetello", ntle le haeba, ka ho hlakileng, moleng pele e ne e le "ba qala ho".

Joale ak'u nahane ka mananeo a ka mohlala hore na e hlalosa litaelo. Ka mohlala, re lokela ho fumana chelete ea inthenja pele n g e nepahetseng. Ho finyella sena, qalong re nahana ka n g (Leha ho le joalo ho tla 'ne ho be le leholo ho lefela). Ebe qala potoloho. Ke habohlokoa ho utloisisa hore o lokela ho sebetsa, ho fihlela e fihla boleng ba n g. Mona ho na le khetho e fetang 'ngoe bakeng sa ho rarolla bothata bona, empa re tla tsepamisa maikutlo ha e le hantle e amang tšebeliso ea stats hore o batla ho kenya. Ke default, sena se etsoa sebedisa polygonal kea. Pele u qala ka ho ke ke ho hlokahala ho abela e le boleng ba "1". The khaontareng o sebeletsa e le nako le nako ha liketso tsa e ncha cyclical. Based on wa borumuwa rona, kamehla lokela ho eketsa le mong ho eona. Kahoo, ha e le dipalo-index stats lekana boleng ba n g palo. Sena se tla ba pontšo bakeng sa phethoa lenaneo mosebetsi. Ho a bale chelete eo re hlahisa polygonal K. Le e mong le e ho pheta-pheta e tla abeloa boleng fetileng mmoho palo kea. Ka mor'a bofelo ba bala, feela itemogela eng go bzlmeet tlhaloso divariabole skrineng. Ena ke tlhaloso e khutšoanyane e ka mantsoe a ea lenaneo. Hona joale re sheba khoutu ya.

Readln (n g); '- re bala palo n g.

kea: = 1; k: = 0; '- kena mosebetsing khaontareng, re lefela tsoa boleng ba chelete ena.

Ha ke ntse ke <= n g ha qala "- beha maemo a sa potoloho ea mosebetsi.

k: = bzlmeet + i; kea: = kea + 1; '- eketsa boleng ho chelete update lam stats.

fela; '- Ha ho tlatsa le tlhaloso ea mosebetsi.

Writeln (k e); - liqeto tsena.

Re sheba mohlala o mong. Hona joale ho hlokahala hore re tlale mosebedisi le mabitso line n g e tla pholosa ba drive ea mongolo. Molao-motheo o mona e tšoana le nakong e fetileng. Kenya nomoro ea n g, re ebe o kenya tshebetsong le hoja sekgoqetsane sete boemo. Ho ekelletsa moo, bontša ho input line ho drive ya memori ho seleng. Behantsha stats tlatsang tshebetso a pheta. Ka mor'a moo, khaontareng e gopotswa le hore re bontše drive. Leha ho le joalo, reset ea stats ka moelelo hona ho bolela hore ho abela ka boleng ba se le seng, kaha u ke ke ua khona ho tlisa lefela seleng e ngata (e ha a eo). Lenaneo la khoutu e tjena: ho lenaneo lena o tla fumana chelete ea ho a 'maloa a linomoro tsa tlhaho tse ntle, eo e fella ka ho qaloa ho fetisisa n g. E lokela ho utloisisa hore ho ka ho ba sieo ha ea stats, Ha Pascal potoloho mohla qeta. Haeba u ka tšohanyetso lebala ka eona, ka ho phetha lenaneo code, k'homphieutha e qala ho qeta. E tšoaroa sa konopo "u etse khefu Break". Ka stats bakeng sa ho sebelisoa ho fapafapana divariabole tlhaloso ka c.

Readln (n g);

mdlody: = 1;

Ha a ntse a ba c <= n g ha qala "- maemo semela.

Readln (a [ka c]); mdlody: = mdlody + 1; '- bala ya data ho tswa ho keyboard, re eketsa boleng ho sebadi.

fela; '- ho phethang potoloho ena.

mdlody: = 1; '- schetiku kgutlele boleng pele.

Ha a ntse a ba c <= n g etsa se ngolle (a [ka c]); '- Bontsha lebitso n g.

Ka nako eo o fumana ka skrine n g mabitso hore ba 'nile ba kena ho tswa line. Ka eo, e Ha sekgoqetsane fella. E neng e sebelisoa ke ba qalang bobeli le basebelisi ba tsoetseng pele. Ha a bala, 'me ka hona hloka tlhokomelo e khethehileng ho a thulaganyo le polygonal eketsehileng.