Циклічні програми в ТП

Циклічним процесам відповідають базові структури “ЦИКЛ ДО” та “ЦИКЛ ПОКИ” :

Для програмування цих структур , які відрізняються тільки розміщенням блоку перевірки виконання умови виходу із циклу, достатньо вже розглянутих операторів: присвоювання ,умовного та переходу. Однак в ТП є і спеціальні конструкції : три оператори циклу.

Організація циклів за допомогою умовного оператора

Використання умовного оператора для програмування циклічних процесів тим зручне, що така конструкція працює при будь-якій умові виходу із циклу. Достатньо лише записати відповідний логічний вираз для умовного оператора, однією з альтернатив якого буде оператор переходу на початок циклу. Хоча, зрозуміло, оператори циклу працюють швидше. До того ж, при використанні умовного оператора необхідно вводити мітку, що дещо ускладнює програму. Однак, для кращого розуміння побудови та змісту циклічної програми має сенс спочатку розглянути , як організуються цикли за допомогою УО. Тим більше, що такі програми однаково прозорі для циклічних процесі як ітераційних, так й із заздалегідь визначеною кількістю повторень.

Приклад. Скласти програму табуляції функції y=f(x) , якщо x змінюється від x_поч до x_кінц з кроком h.

PROGRAM TABUL;

LABEL 1;

VAR

X,XP,XK,H,Y: REAL;

BEGIN

WRITELN (‘ВВЕСТИ XP,XK,H‘`);

READ (XP,XK,H );

X:=XP;

1:Y:= ……………; { Обчислення значення функції }

WRITELN ( ‘X= ‘,X,’ Y= ‘,Y);

X:=X+H;

IF X<=XK THEN GOTO 1

END.

Тут для x_поч введений ідентифікатор XP, для x_кінц – XK. Структура програми не залежить від виду функції f(x), який визначає тільки оператор присвоювання з міткою “1”, на що звертає увагу коментар в фігурних дужках.

Програма відповідає базовій структурі “ЦИКЛ ДО”. Кількість повторень не рахується, але вона легко визначається за формулою:

K=[(XK-XP)/H]+1,

де перша складова суми – це ціла частина виразу в квадратних дужках.