Для організації циклів із визначеною кількістю повторень в ТП призначений оператор циклу з параметром:
FOR <параметр циклу> := m1 TO m2 DO <оператор>;
Параметр циклу може бути лише цілочислового або перелічуваного типу. Сам параметр повинен бути описаний сумісно з рештою змінних. Крок циклу постійний і дорівнює інтервалу між двома найближчими значеннями параметра циклу.
m1 та m2 – константи або змінні та вирази, сумісного з параметром циклу типу. При чому m2 > m1.
< Оператор > – це тіло циклу, яке може складатися з одного простого або складеного оператора.
Порядок виконання оператора:
параметру присвоюється стартове значення m1;
Ø виконується перевірка, чи m1>m2;
Ø якщо результат перевірки ствердний, цикл вважається завершеним і управління передається наступному за тілом циклу оператору;
Ø в протилежному випадку виконується тіло циклу;
Ø після цього параметр змінює своє значення на наступне відповідно до заголовку циклу;
Ø алгоритм повторюється, поки не виконається нерівність m>m2, де m – поточне значення параметру.
Правила застосування оператора циклу з параметром:
Забороняється змінювати параметр циклу та його граничні значення всередині тіла циклу.
Для дострокового виходу із циклу можна використати оператор безумовного переходу. При цьому значення параметра циклу зберігається на відміну від виходу з циклу по його завершенні.
В ТП є інша форма оператора циклу з параметром, який спадає:
FOR <параметр>:=m1 DOWN TO m2 DO <оператор>;
Порядок виконання та правила застосування цього оператора аналогічні . Оператор завершується, коли параметр набуває значення m<m2.
Оператори циклу з параметром дуже швидкі, але мають суттєвий недолік: параметр повинен належати перелічуваному типу і змінюється с постійним кроком +1 або –1. Тому проблемою є організація циклів з іншим кроком , а тим більше – із дійсним параметром. В останньому випадку треба вводити лічильник циклів.
Так, програма для приклада , розглянутого в попередньому параграфі, з оператором циклу з параметром набуде такого вигляду:
PROGRAM LICHIL;
VAR
X, XP,XK,H,Y : REAL;
I,M2 :INTEGER;
BEGIN
READ( XP,XK,H);
M2:= TRUNC((XK-XP)/H)+1;
WRITELN(‘ X ‘, ‘ Y ‘);
X:=XP;
FOR I:=1 TO M2 DO
BEGIN Y:= ………….;
WRITELN (X:7:2, Y) ;
X:=X+H
END
END.
Тут змінна I виконує роль лічильника циклів , а M2 – кількість циклів, які необхідні для здобуття таблиці значень функції Y в заданому інтервалі змінювання X с заданим кроком H. Два оператори виведення WRITELN забезпечують виведення заголовку та самої таблиці в зручному вигляді.
Оператор циклу з параметром призначений для програмування , в першу чергу, алгоритмів обробки упорядкованих даних (масивів, послідовностей ), в яких параметром циклу є порядковий номер кожного даного в такій упорядкованій множині. В таких програмах введення змінної–лічильника не потрібне.
