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

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

Програмісту-початківцю може бути ще не знайомий один корисний цикл while. Це типова циклічна операція в середовищі Pascal. Її зручно використовувати в різних завданнях, тому розберемо, як можна включити в програму цей цикл.


Цикл While Паскаль вимагає оформляти наступним чином:


  • While (Умова) do (begin якщо треба).
  • Алгоритм дії.
  • End (за наявності команди begin).

Перший рядок - "" шапка "" команди. Умовою може бути граничне числове значення перменної Integer (d < 100), значення змінної типу boolean (t = True) або string (tex = 'hello'). Команда "begin" ставиться, якщо в тілі циклу необхідно виконати більше однієї умови. Далі слід опис дій, які програма повинна виконати за умови, що цикл 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 закінчується. Його використовують як новачки, так і просунуті користувачі. Він не має лічильника, тому вимагає особливої уваги програміста і додаткової змінної.