Управляваща структура цикъл.Цикли с известен брой повторения - броячни цикли.

Технически университет – София

Катедра ПКТ,ФКСУ

Протокол № 5

дата: 6.11.2009

Управляваща структура цикъл.Цикли с известен брой повторения - броячни цикли.

Същност - броят на изпълненията на тялото при този цикъл е предварително известен. Цикълът използва само една управляваща променлива (УП) от дискретен тип, наречена брояч на цикъла. Тя се актуализира(стойността й се изменя) със стъпка единица автоматично - броячен цикъл.

Видове:
-цикли с увеличаваща стойност на брояча (управляваща променлива) - организират се с оператор for-to-do.
-цикли с намаляваща стойност на брояча (управляваща променлива) - организират се с оператор for-downto-do.

Блок схема на броячен цикъл

Действие


Стъпка 1: изчисление на началната (инициация) и крайната (условието за край) стойност на

управляващата променлива, съответно стойностите на изразите m и n  присвояване начална

стойност на управляващата променлива (брояча) - I := m.

Стъпка 2: проверка на условието за край:

-ако условието за край е изпълнено - I > n за for-to-do (I < N за for-downto-do) - преминава се към

Стъпка 5(изход);

-ако условието за край не е изпълнено, процесът продължава с изпълнение на тялото - Стъпка 3;
Стъпка 3: изпълнява тялото на цикъла (обработка на данните), след което управлението се пре

дава към Стъпка 4;

Стъпка 4: автоматична актуализация на УП - (I := I + 1 за for-to-do и I := I - 1 за for-downto-do), след

което управлението се предава към проверката на условието за край - Стъпка 2;

Стъпка 5: изход от цикъла.
Синтаксис на двете форми
- форма for-to-do за цикли с увеличаваща се УП:
а) с единичен оператор

for I := m to n do

Oператор_C

б) със съставен оператор

- форма for-downto-do за цикли с увеличаваща се УП:

а) с единичен оператор

for I := m downto n do

Oператор_C

б) със съставен оператор

Задача 1

Да се състави програма, която да илюстрира действието на броячния цикъл. Програмата да извежда на екрана числата от 1 до 10.

program demo1;

var

I : integer;

M, N : Integer;

begin

M := 1;

N := 2;

for I := M to N do

begin

M := M + 1;

N := N + 1;

write(I:3);

end;

writeln;

write(` M = `,M,`,`,` N = `,N);

readln;

end.

Задача 2

Да се състави програма, която да извежда на екрана всички числа, кратни на 6 в интервала от 0 до зададено чрез въвеждане от клавиатурата число N. Да се изведе броя на числата кратни на 6 в дадения интервал.

program demo2;

var

I, N, Br : Integer;

begin

Br := 0;

write(`Въведете края на интервала: `);

readln(N);

writeln(`Числата кратни на 6 са: `);

writeln;

for I := 1 to N do

it I mod 6 = 0 then

begin

write(I:4);

Br := Br + 1;

end;

writeln;

write(`Числата кратни на 6 `);

writeln(`в интервала от 0 до ‘,N,’ са ‘,Br);

readln;

end.

Задача 3

Да се състави и програма, кочто да изпълява предстартово броене 10 секунди преди старта. Всяка секунда на екрана да се извежда съобщение за оставащите до старта секунди.

program demo3;

var

I, Br, Integer;

begin

writeln(`      Време до началото на старта: `);

writeln;

for I := 10 downto 1 do

begin

writeln(`        До старта остават `,I,` секунди`);

delay(1000);

end;

writeln;

writeln(`                       START!`);

readln;

end.