Лабораторная работа № 5

Циклические операторы

Циклические операторы используются тогда, когда необходимо выполнить определенный набор действий несколько раз. Причем сам набор действий называется телом цикла.

Если изначально известно сколько раз нужно выполнить тело цикла, то используется цикл со счетчиком:

For счетчик = начальное значение to конечное значение step шаг цикла

Тело цикла

Next i

Если выполнение тела цикла зависит от конкретного условия, то используются другие типы цикла: Do while …Loop и Do Until … Loop. Первая конструкция используется, если тело цикла должно выполняться при выполнении условия:

Do while условие

Тело цикла

Loop

 Вторая конструкция используется, если тело цикла выполняется при невыполнении условия цикла:

Do Until условие

Тело цикла

Loop

Бывают ситуации, когда тело цикла должно быть выполнено хотя бы один раз, тогда применяется конструкция Do..Loop While :

Do

Тело цикла

Loop while условие

Задание 1

Создать процедуру расчета факториала числа, введенного пользователем.

1. Откройте новый документ Calc и сохраните его под именем «Лабораторная работа_5».
2. Откройте новый модуль Бэйсика с помощью команды Сервис-> Макросы->Управление макросами->OpenOffice.org Бэйсик, в открывшемся окне выберите свой файл «Лабораторная работа_5», в нем выберите пункт «Standart» и нажмите кнопку «Создать», находящуюся на панели справа.

1. В открывшемся окне редактора набираем код:

Sub Main

s=InputBox(«Введите число»)

n=val(s)

f=1

for i=1 to n

f=f*i

next i

MsgBox(«Факториал введенного числа равен » & f)

End Sub

2. В этом коде до начала цикла со счетчиком в переменную f записывается 1. Далее в теле цикла со счетчиком в переменной f накапливается произведение чисел от 1 до введенного пользователем числа. Так на первом шаге цикла в f записывается 1*1, на втором шаге цикла 1*2, на третьем – берем то, что было в f на втором шаге 1*2 и * на значение счетчика 3, получается 1*2*3 и так далее.
3. Запускаем код на выполнение.
4. Проверяем работу программы, задав 5 (факториал 5 равен 120).
5. Сохраняем файл.

Самостоятельно

Измените предыдущую процедуру так, чтобы рассчитывалась сумма чисел от 1 до введенного пользователем числа.