Тема 4. Организация информационных ресурсов марке-тинговых ИС

Оператор цикла FOR

Оператор цикла REPEAT

Оператор цикла REPEAT организует выполнение цикла, состоящего из любого количества операторов, с неизвестным заранее числом повторений. Тело цикла выполняется хотя бы один раз. Выход из цикла происходит при истинности некоторого логического выражения.

REPEAT

operator1;

operator2;

…

operatorN

UNTIL S;

В этой структуре: operator1,operator2,…,operatorN – выполняемые операторы, составляющие тело цикла; S – логическое выражение, которое проверяется в конце каждой итерации.

Пример.

Алгоритм Евклида для нахождения наибольшего общего делителя чисел m, n (m>n):

repeat

l:=m mod n;

m:=n;

n:=l

until l=0;{результат находится в m}

Оператор цикла FOR организует выполнение одного оператора заранее известное число раз. Существует два варианта оператора:

FOR param:=start TO finish DO operator;

FOR param:=start DOWNTO finish DO operator;

Здесь:

param – параметр цикла, являющийся переменной порядкового типа;

start – выражение, определяющее начальное значение параметра цикла

finish - выражение, определяющее конечное значение параметра цикла;

operator – выполняемый оператор.

start и finish должны быть совместимы для присваивания с параметром цикла.

При выполнении оператора цикла параметр цикла сначала принимает значение выражения start, а затем при каждой очередной итерации принимает последующее (при первом варианте) или предыдущее значение (при втором варианте), вплоть до значения выражения finish.

Пример.

Вычислить s=nx^n-1+(n-1)x^n-2+…+2x+1;

s:=0;

p:=1;

for i:=1 to n do

begin

s:=s+p*i;

p:=p*x

end;

Или

s:=0;

for i:=n downto 1 do s:=s*x+i;{схема Горнера}