Вложенные циклы

Бесконечные циклы

При неверном программировании цикла могут быть допущены ошибки, которые приводят к бесконечному выполнению цикла (зацикливание). Например, к бесконечному циклу приведут следующие ошибки.

--пропуск оператора, в котором изменяется значение переменной, входящей в условие окончания цикла:

i=0

Do While i<5 ‘в теле цикла пропущена строка i=i+1

y=x+5

x=x+dx

Loop

-- переменная, входящая в условие окончания цикла, никогда не примет значения, при котором происходит выход из цикла:

n=100

Do While n<=100

y=x+sin(x)

x=x+dx

n=n-1

Loop

--размещение оператора для изменения переменной цикла внутри оператора If.

Внутри цикла могут располагаться другие циклы, называемые по отношению к нему вложенными. Количество вложенных циклов ограничивается памятью компьютера. При создании вложенных циклов необходимо соблюдать следующие правила:

- внешний цикл не может закрываться внутри вложенного цикла;

- внешние циклы закрываются после закрытия вложенных циклов;

- нельзя передавать управление из внешнего цикла внутрь вложенного, передача управления из внешнего цикла может быть только на начало вложенного;

внешний и вложенные циклы должны быть организованы по разным переменным (счетчикам).

Примеры вложенных циклов:

Задача 3 Табулирование функции.

Вычислить таблицу значений функции f(x)=sinx для , шаг изменения аргумента – dx. Вывести таблицу на экран.

Таблицу выведем на форму при щелчке на командной кнопке Start. Для вывода таблицы используем метод Print, который позволяет выводить значения x и y в определенные позиции строк на форме. для этого используют функции Tab(n) и Spc(m).

n - аргумент функции Tab(n) – это номер позиции в строке, начиная с которой выводится следующее за функцией выражение. Например,

Form1.Print Tab(8); “x=”;

Функция Spc(m) позволяет вывести m пробелов перед выводом следующего за ней выражения. Например,

Form1.Print Tab(8); “x”; Spc(7); “y”

Блок-схема:

Программный код:

Private Sub btnStart_Click()

Dim x,y, a, b, dx, S as single

a=Val(txta.Text)

b=Val(txtb.Text)

dx=Val(txtdX.Text)

Form1.Print Tab(8); “x”; Spc(7); “y”

x=a

Do While x <= b

y=sin(x)

Form1.Print Tab(6); x; Tab(12; y

x=x+dx

Loop

End Sub

Дата добавления: 2014-01-07