Карысны цыкл while для праграміста

Пачаткоўцу праграмісту можа быць яшчэ не знаёмы адзін карысны цыкл while. Гэта тыповая цыклічная аперацыя ў асяроддзі Pascal. Яе зручна выкарыстоўваць у розных задачах, таму разбяром, як можна ўключыць у праграму гэты цыкл.

Цыкл While Паскаль патрабуе афармляць наступным чынам:

• While (Умова) do (begin калі трэба).
• Алгарытм дзеяння.
• End (пры наяўнасці каманды begin).

Першы радок - "шапка" каманды. Умовай можа з'яўляцца лімітавае лікавае значэнне перменной Integer (d <100), значэнне зменнай тыпу boolean (t = True) або string (tex = 'hello'). Каманда "begin" ставiцца, калi ў целе цыкла неабходна выканаць больш аднаго ўмовы. Далей варта апісанне дзеянняў, якія праграма павінна выканаць пры ўмове, што цыкл While выконваецца. Тут могуць утрымлівацца розныя каманды, працэдуры, функцыі, падобныя цыклы. У канцы неабходна паставіць каманду "end", калі, вядома, у першым радку стаяў "begin".

Зараз разгледзім прыклады праграм, якія ўтрымліваюць які апісвае каманду. Напрыклад, нам неабходна знайсці суму першых n станоўчых цэлых лікаў. Для гэтага першапачаткова лічым n (хай яно заўсёды будзе больш за нуль). Затым запускаем цыкл. Важна разумець, што ён павінен працаваць, пакуль не дасягне значэння ліку n. Тут існуе не адзін варыянт рашэння задачы, але мы спынімся на тым, які закранае выкарыстанне лічыльніка, які неабходна ўсталяваць. Па змаўчанні для гэтага выкарыстоўваюць зменную i. Перад пачаткам працы з ёй неабходна ёй прысвоіць значэнне "1". Лічыльнік выконвае ролю складаемага пры кожных новых цыклічных дзеяннях. Зыходзячы з нашай задачы, да яго пастаянна трэба дадаваць адзінку. Такім чынам, калі-небудзь лікавы паказчык лічыльніка зраўняецца са значэннем колькасці n. Гэта і будзе сыгнал для завяршэння працы праграмы. Для падліку сумы ўвядзем зменную k. З кожным новым паўторам ёй будзе прысвойвацца папярэдняе значэнне плюс лік i. Пасля канчатковага падліку варта толькі вывесці перменную k на экран. Гэта кароткае тлумачэнне праграмы на словах. Цяпер жа глядзім на праграмны код.

Readln (n); '- счытваем лік n.

i: = 1; k: = 0; '- ўводзім ў працу лічыльнік, обнулять значэнне сумы.

While i <= n do begin '- задаем ўмова працы цыклу.

k: = k + i; i: = i + 1; '- дадаем значэнне да сумы, абнаўляем лічыльнік.

end; '- завяршаем апісанне працы While.

Writeln (k); - выводзім дадзеныя.

Пазнаёмімся з яшчэ адным прыкладам. Цяпер нам неабходна, каб карыстальнік з клавіятуры запоўніў n імёнаў, якія захавае тэкставай масіў. Прынцып тут аналагічны мінуламу. Ўводзім лік n, актывуецца цыкл While, ставім ўмова. Далей пазначыліся ўвод з клавіятуры ў памяць ячэйкі масіва. Усталёўваем лічыльнік, завяршаем паўторныя аперацыі. Далей обнуляет лічыльнік і выводзім масіў. Праўда, абнуліць лічыльнік ў гэтым кантэксце значыць прысвоіць яму значэнне адзінкі, так як вы не зможаце вывесці нулявую вочка масіва (яе не існуе). Код праграмы наступны: з гэтай праграмы вы атрымаеце суму шэрагу натуральных станоўчых лікаў, які заканчваецца увядзеннем лікам n. Варта разумець, што ў выпадку адсутнасці лічыльніка, цыкл While Pascal ніколі не скончыць. Калі вы раптам забудзецеся пра гэта, то пры выкананні праграмнага кода, пачне завісаць кампутар. Гэта лечыцца кнопкай "Pause Break". У якасці лічыльніка для разнастайнасці выкарыстоўваем перменную c.

Readln (n);

c: = 1;

While c <= n do begin '- ўстаноўка ўмовы.

Readln (a [c]); c: = c + 1; '- счытваем дадзеныя з клавіятуры, прыбаўляем значэнне да лічыльніку.

end; '- завяршаем цыкл.

c: = 1; '- вяртаем счетику зыходнае значэнне.

While c <= n do write (a [c]); '- выводзім на экран n імёнаў.

Пасля гэтага вы атрымаеце на экране n імёнаў, якія былі ўведзеныя з клавіятуры. На гэтым знаёмства з цыклам While сканчаецца. Яго выкарыстоўваюць як пачаткоўцы, так і прасунутыя карыстальнікі. Ён не мае лічыльніка, таму патрабуе асаблівай увагі праграміста і дадатковай зменнай.