Добавил:
Upload Опубликованный материал нарушает ваши авторские права? Сообщите нам.
Вуз: Предмет: Файл:
Скачиваний:
8
Добавлен:
10.02.2016
Размер:
1.17 Mб
Скачать

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

параметромЭтот опер тор используют, к гда количество повторений цикла известно заранее или необходимо изменять какую-либо величину в определённом диапазоне на одно и тоже

значение 1 или -1.

Вариант 1 (с увеличением счётчика)

FOR <счётчик> := <начальное значение> TO <конечное значение> DO

BEGIN

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

<оператор 1>;

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

i:=1

 

 

 

<оператор 2>;

 

 

 

 

 

 

 

 

 

 

 

<оператор n>;

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

END;

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

i<=n

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

Например:

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

For i:= 1 to n do

 

 

 

Инструкции

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

Выход из цикла

BEGIN

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

i=i+1

 

 

 

 

 

 

 

 

 

 

 

 

 

 

<оператор 1>;

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

<оператор 2>;

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

<оператор n>;

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

END;

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

Назад

Вариант 2 (с уменьшением счётчика)

FOR <счётчик> := <начальное значение> DOWN TO <конечное значение> DO

BEGIN

 

<оператор 1>;

 

<оператор 2>;

 

<оператор n>;

i:=n

END;

 

Например:

 

 

For i:= n downto 1

do

i>=1

BEGIN

 

Инструкции

<оператор 1>;

 

<оператор 2>;

 

Выход из цикла

<оператор n>;

 

i=i-1

END;

 

Примечания: 1) здесь FOR (для), TO (до), DO (выполнить)

2)Служебное слово TO указывает направление изменения счётчика-увеличение на 1 (начальное значение конечного,если условие не выполняется, то оператор в теле цикла не выполняется).

3)Если между BEGIN и END находится только один оператор, то BEGIN и END можно не писать.

Назад

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

параметром

Задача Напечатать на экране 10 раз слово “Весна”

Начало Ввод x

x:=1

x<=10

«Весна»

Выход

x=x+1

Назад

Примеры работы программы на Pascal’e

Назад

While – Цикл с предусловием

Проверяется значением выражения Условие, если оно выполняется, то выполняются инструкции, находящиеся между BEGIN и END (тело цикла). Затем снова проверяется значение выражения Условие, и так до тех пор, пока значение выражения Условие истинно. Если с самого начала Условие имеет значение ложь, оператор цикла не выполняется ни разу.

Форма записи

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

While <условие> Do

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

Условие

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

Begin

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

Выход

< оператор>;

 

 

 

 

 

 

 

 

 

 

Оператор

 

 

End;

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

Примечания: 1) Зарезервированные слова: WHILE (пока), DO (делать).

Назад

While – Цикл с предусловием

Задача №1 Найти произведение нечётных натуральных чисел на промежутке от 1 до 10.

Начало

P:=1

i:=1

 

i<=10

P:=p*i

Вывод P

 

i:=i+2

Конец

 

Назад

Примеры работы программы на Pascal’e

Назад

While – Цикл с предусловием

Задача № 2. Даны целые числа a и b. Требуется вычислить наибольший делитель (НОД(a, b)).

Начало Ввод a, b

a=b a

Конец

a>b

 

b:=b-a

 

 

a:=a-b

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

Назад

Примеры работы программы на Pascal’e

Назад

Repeat – Цикл с постусловием

Форма записи

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

REPEAT

 

 

 

 

 

 

Оператор 1;

<оператор 1>;

 

 

 

 

 

 

 

 

 

 

<оператор 2>;

 

 

 

Оператор 2;

UNTIL <условие>;

 

 

 

 

 

 

 

 

 

 

 

 

Условие

 

 

 

 

 

 

 

 

 

Выход

Примечания: 1) Зарезервированные слова: REPEAT (повторять до тех пор), UNTIL (пока не будет выполнено)

2) Последовательность операторов может состоять из одного или нескольких любых операторов. Условие проверяется после выполнения операторов, если оно возможно - операторы снова выполняются, иначе – цикл прекращается. Тело цикла хотя бы один раз обязательно выполняется.

Назад

Соседние файлы в папке Лекции