Бағдарламашы үшін пайдалы цикл

Бастапқы бағдарламашы бір пайдалы циклды әлі біле алмауы мүмкін. Бұл Паскаль ортасында типтік циклдік операция. Әр түрлі тапсырмаларды қолдану ыңғайлы, сондықтан біз осы циклды бағдарламаға қалай қосуға болатынын талдаймыз .

Цикл кезінде, Pascal келесі пішімді қажет етеді:

• Дегенмен (шарт) керек (қажет болса басталады).
• Әрекет алгоритмі.
• Аяқтау (бастау пәрмені бар болса).

Бірінші жол - команданың «қақпағы». Шарты айнымалы Integer (d <100), логикалық түрінің (t = True) немесе string (tex = 'hello') айнымалы мәнінің шектік сандық мәні болуы мүмкін. «Бастау» пәрмені, егер циклда біреуден артық шарт орындалатын болса, орнатылады. Төменде, While циклы орындалған жағдайда, бағдарлама орындалатын әрекеттердің сипаттамасы берілген. Әр түрлі командалар, процедуралар, функциялар сияқты циклдар болуы мүмкін. Ақыр соңында, егер бірінші жол «басталатын болса», «соңы» пәрменін қою керек.

Енді сипатталған командаларды қамтитын бағдарламалардың мысалдарын қарастырыңыз. Мысалы, бірінші n оң бүтін сандардың сомасын табу керек. Бұл үшін бастапқыда n (әрқашан нөлден үлкен болсын) деп қабылдаймыз. Содан кейін циклды бастаңыз. Маңызды екенін түсіну керек, ол жұмыс істеуге дейін, ол n мәніне жетеді. Мәселеге бірнеше шешім бар, бірақ біз орнатуға тура келетін есептегіштің қолданылуына әсер етеміз. Әдепкі бойынша i айнымалы үшін пайдаланылады. Сіз онымен жұмыс істей бастасаңыз, оны «1» мәніне тағайындауыңыз керек. Есептегіш әрбір жаңа циклдік әрекет үшін термин болып табылады. Біздің міндетімізге сүйене отырып, біз оған үнемі біреуін қосуымыз керек. Осылайша, сандық есептегіш бірден n санының мәніне тең болады. Бұл бағдарламаны тоқтату сигналы болады. Соманы есептеу үшін айнымалы k енгіземіз. Әрбір жаңа қайталаумен, алдыңғы мән беріледі және i саны. Соңғы саннан кейін бастапқы k экранды ғана шығару керек. Бұл бағдарламаның қысқаша түсіндірмесі. Енді бағдарлама кодын қараймыз.

Readln (n); '- n нөмірін оқыңыз.

I: = 1; K: = 0; '- біз есептегішті қолдандық, біз соманың мәнін қалпына келтіреміз.

Ал i <= n бастайды - цикл жағдайын орнатыңыз.

K: = k + i; I: = i + 1; '- соманы қосып, есептегішті жаңартыңыз.

Соңы; '-' While 'сипаттамасын аяқтаймыз.

Жазба (k); - деректерді шығару.

Бір мысалмен танысайық. Енді пайдаланушыға пернетақтадағы n атауларын толтыру қажет, ол мәтіндік жиынды сақтайды. Бұл жерде өткен принцип өткенге ұқсас. N нөмірін енгізіңіз, While циклын белсендіріңіз, шартты орнатыңыз. Сонымен қатар, біз клавиатурадан кірістің массивтің жасушасының жадына кіргіземіз. Есептегішті орнаттық, қайталама операцияларды аяқтаймыз. Әрі қарай, санауышты ысырып, массаны шығарыңыз. Рас, бұл контекстте есептегішті қалпына келтіру оның мәнін тағайындауды білдіреді, себебі массивтің нөлдік ұяшығын (ол жоқ) көрсету мүмкін емес. Бағдарламаның коды келесідей: осы бағдарламадан сіз кірістірілген санмен аяқталатын табиғи оң сандардың бірқатар сомасын аласыз. Есептегіш болмаған кезде Паскаль циклінің ешқашан аяқталмайтынын түсіну керек . Егер сіз бұл туралы кенеттен ұмытып қалсаңыз, онда бағдарлама кодын орындағанда, компьютер іліп қалады. Бұл «Үзіліс үзілімі» түймешігімен өңделеді. Әртүрлі санауыш ретінде c айнымалысын қолданыңыз.

Readln (n);

C: = 1;

C <= n бастайды - шартты орнату.

Readln (a [c]); C: = c + 1; '- пернетақтадағы деректерді оқып, мәнді есептегішке қосыңыз.

Соңы; - циклді аяқтаймыз.

C: = 1; '- бастапқы мәнді есептегішке қайтарыңыз.

Ал c <= n жазыңыз (a [c]); '- n атауларын көрсету.

Осыдан кейін пернетақтадан енгізілген экранда n атауын аласыз. Цикл аяқталған кезде осы танысу туралы. Бұл жаңадан бастағандарға да, озық пайдаланушыларға да қолданылады. Есептегіш жоқ, сондықтан бағдарламашы мен қосымша айнымалыға ерекше назар аудару қажет.