Пример 5. Loop While условие Loop Until условие

Loop While условие Loop Until условие

Do 2. Do

операторы операторы

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

Разработать информационную технологию, позволяющую вычислить значение функции при изменении значения –1,2£s£1,2 с шагом Ds = 0,2.

Входные данные: данных, подлежащих вводу, нет

Выходные данные: s, g - вещественного типа

Private Sub Form_Activate() Dim s As Double, g As Double Cls ’ Очистка формы CurrentY = 500 Print Tab(20), "Значение s", "Значение g" Print Tab(20), "_______________________" s = –1.2 Do g = (1 + Exp(3 * s)) ^ (1 / 4) Print Tab(20), Format(s, "0.0"), _ Format(g, "0.0000") s = s + 0.2 Loop Until s > 1.2 End Sub  

Ниже представлена схема алгоритма, программа и выходная форма решения задачи.

10.3.3. Структура Цикл в Цикле

При реализации структуры Цикл в Цикле вводятся следующие понятия:

– параметр внешнего цикла (х);

– параметр внутреннего цикла (z);

– начальное значение параметра внешнего цикла (х ₀);

– начальное значение параметра внутреннего цикла (z ₀);

– конечное значение параметра внешнего цикла (х _к);

– конечное значение параметра внутреннего цикла (z _к);

– шаг изменения параметра внешнего цикла (D х);

– шаг изменения параметра внутреннего цикла (D z);

– условие окончания внешнего цикла;

– условие окончания внутреннего цикла.

Эта структура организуется по тому же принципу, что и структура Цикл. Схема алгоритма приводится на рис. 17. Телом внешнего цикла служат блоки 3 – 6.

Рис. 17

Дата добавления: 2014-12-23