Оператор циклу з лічильником

В циклах з лічильником виконання тіла циклу повторюється заздалегідь визначену кількість разів. Хоча такий цикл можна організувати за допомогою оператора циклу з післяумовою або з передумовою (вони є універсальними), але в мові Turbo Pascal є спеціальна конструкція для організації циклів з лічильником. Синтаксис оператора циклу з лічильником наступний: for <з.ц.>:=<п.з> to <к.з.> do < оператор >.

Тут for, to, do – ключові слова (від, до, виконувати), <з.ц.> – змінна циклу, яка може бути тільки порядкового типу; <п.з.> та <к.з.> – початкове та кінцеве значення відповідно -- вирази, того же типу, що і змінна циклу; < оператор > – будь-який оператор, в тому числі и складений.

Оператор функціонує наступним чином: спочатку обчислюється вираз, що відповідає початковому значенню, і результат присвоюється змінній циклу, потім перевіряється умова умова <п.з> <= <к.з.> і якщо отриманий результат ІСТИНА, то виконуються оператори, розташовані у тілі циклу, потім змінна циклу збільшується на 1та знов перевіряється умова. Якщо значення виразу НЕПРАВДА, то здійснюється вихід з циклу.

Приклад: оператор for i:=1 to 10 do writeln(i); виводить цілі числа від 1 до 10.

Якщо початкове значення змінної циклу більше кінцевого значення, оператори тіла циклу не виконуються, тобто оператор циклу з лічильником фактично є оператором циклу з передумовою. Таким чином, оператор for i:=1 to 0 do writeln(i); не виконує ніяких дій.

Якщо необхідно виконати декілька операторів у тілі циклу, використовують складений оператор:

for i:=5 to 10 do

begin

k:=i*i;

writeln('k=',k);

end;

Оператор циклу з лічильником має другу форму подання, яка дозволяє зменшувати змінну циклу з кроком -1. В цьому випадку синтаксис оператора наступний:

for <з.ц.>:=<п.з.> downto <к.з.> do < оператор >;

Приклад: оператор for i:= 10 downto -10 do writeln(i); виводить цілі числа від -10 до 10.

Приклад: необхідно обчислити суму n перших членів ряду:

Схема алгоритму подана рис. 3а та 3б (з використанням модифікатору), а відповідна програма -- pr13.

Рис. 3а

program pr13; var i,n:integer; sum,{ сума ряду } k:real;{черговий член ряду } begin sum:=0; writeln(' Введіть число членів pяду:'); read(n); k:=1; for i:=1 to n do begin k:=k*10/i; sum:=sum+k; end; writeln (' Сума ряду дорівнює ',sum); end.

Рис. 3б

Література:

1. Попов В.Б. Паскаль и Дельфи. Самоучитель – СПб.: Питер, 2004. – 544 с.

2. Глушаков С.В., Зорянский В.Н., Хоменко С.Н. Программирование на Turbo Pascal 7.0 (TP 7) – Харьков: Фолио, 2005. – 501 с.

Дата добавления: 2014-01-07