Iiluncedo ngelixa i-loop yomprofeti

Umprofeti oqalayo unokungayazi into efanelekileyo ngexesha loop. Oku kusebenza ngokuqhelekileyo kwimeko yePascal. Kukulungele ukusebenzisa kwimisebenzi eyahlukeneyo, ngoko siya kuhlalutya indlela ongayifaka ngayo lo mjikelo kwinkqubo .

Ngethuba lo mjikelo, uPascal udinga ifomathi elandelayo:

• Ngexesha (Umqathango) wenza (qalisa ukuba kuyimfuneko).
• I-algorithm yesenzo.
• Ukuphela (ukuba kukho umyalelo wokuqala).

Umgca wokuqala "i-cap" yomyalelo. Le meko ingaba yinani lomlinganiselo wenani le-variable Integer (d <100), ixabiso lentlobo eguqukileyo yohlobo lwe-boolean (t = Yi nyaniso) okanye umtya (tex = 'hello'). Umyalelo othi "qalisa" umiselwe ukuba umgangatho ongaphezulu kweyodwa uza kuzaliseka kumzimba we-loop. Oku kulandelayo inkcazo yezenzo ezifunekayo lwenkqubo, ngaphandle kokuba i-loop ngexesha iqhutywe. Kukho imiyalelo eyahlukeneyo, iinkqubo, imisebenzi, njengemijikelezo. Ekugqibeleni, kufuneka ubeke umyalelo "ukuphela", ukuba, ngokuqinisekileyo, umgca wokuqala "wawuqala".

Ngoku qwalasela imizekelo yeenkqubo eziqulethe umyalelo ochaziweyo. Ngokomzekelo, sifuna ukufumana isixa-mali sokuqala se-n. Kule nto, siqale sithatha n (maye rhoqo kube mkhulu kunezero). Emva koko qalisa i-loop. Kubalulekile ukuqonda ukuba kufuneka isebenze ide ifike kwixabiso lenani n. Kukho isisombululo esingaphezulu kweyodwa kwingxaki, kodwa siya kugxininisa kumntu ochaphazela ukusetyenziswa kwekharityhulam okufuneka ifakwe. Ngokungagqibekanga, uguquko lusetyenziselwa oku. Ngaphambi kokuba uqale usebenze nayo, kufuneka ubeke isabelo "1". I-counter isebenza njengekota kwisenzo ngasinye se-cyclic. Ngokusekelwe kumsebenzi wethu, kufuneka sihlale sinezela kuso. Ngaloo ndlela, ngelinye ilanga inani lokulinganisa liza kulingana nenani le nombolo n. Oku kuya kuba ngumqondiso wokuphelisa inkqubo. Ukubala isixa-mali, sizisa i-variable k. Ngokuphindaphinda ngokutsha, kuya kubelwa ixabiso langaphambili kunye nenombolo i. Emva kokubala kokugqibela, kufuneka uvelise kuphela okokuqala kwesikrini. Le ngcaciso emfutshane yenkqubo ngelizwi. Ngoku sijonga ikhowudi yeprogram.

Readln (n); '- funda inombolo n.

I: = 1; K: = 0; '- sibeka ukusebenza kwinqanaba, sibuyisela ixabiso lentlawulo.

Nangona i <= n iqala '- misela imeko yelophu.

K: = k + i; I: = i + 1; '- engeza inani kwixabiso, hlaziya i-counter.

Ukuphela; '- sigqiba inkcazo yexesha.

Umbhalo (k); - ukuvelisa idatha.

Masiqhelane nomnye umzekelo. Ngoku sifuna umsebenzisi ukuba agcwalise amagama angabikho kwikhibhodi, eya kusindisa uluhlu lweetekisi. Umgaqo apha ufana nexesha elidlulileyo. Faka inamba n, sebenzisa i-Loop ngexesha, misela imeko. Ukongezelela, sichaza igalelo esuka kwibhobhobhoyi kwimemori yeselti yoluhlu. Sibeka i-counter, sigqiba imisebenzi ephindaphindiweyo. Emva koko, lungisa kwakhona i-counter kwaye uvelise uluhlu. Enyanisweni, ukusetha kabusha i-counter kule mongo kuthetha ukunika ixabiso linye, kuba awukwazi ukubonisa i-cell yerray (ayikho). Ikhodi yeprogram yile ndlela ilandelayo: kule nkqubo uza kufumana isamba soluhlu lweenombolo ezintle zendalo, eziphelisa ngenani leenombolo n. Kufuneka kuqondwe ukuba ngokungabikho kwekharityhulam, ngelixa i-Pascal loop ingapheli. Ukuba ngokukhawuleza uyalibala malunga nale nto, ngoko xa uqhuba ikhowudi yeprogram, ikhompyutha iya kuqala ukuxhoma. Oku kuphathwa ngeqhosha le "Break Break". Njenge-counter for various varieties, sebenzisa ukuguquguquka c.

Readln (n);

C: = 1;

Ngexa c <= n qalisa '- ukubeka imeko.

Readln (a [c]); C: = c + 1; '- funda idatha kwibhodibhodi, yongeza inani kwi-counter.

Ukuphela; '- sigqiba umjikelo.

C: = 1; '-buyisela inani lokuqala kwi-counter.

Ngexa c <= n ubhala (a [c]); '- bonise amagama.

Emva koko uza kufumana amagama apha kwisikrini, ezifakwe kwibhodibhodi. Kulo xhaphaza kunye nexesha loxa umjikelo uphela. Isetyenziswe kokubili ngabaqalayo kunye nabasebenzisi abakhulu. Ayinayo ikontraki, ngoko ifuna ingqalelo ekhethekileyo kwiprogram kunye noluhlu olongezelelweyo.