Пример 5.

Date: 2015-10-07; view: 407.

Do 2. Do

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

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

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

Разработать информационную технологию, позволяющую вычислить значение функции при изменении значения –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х);

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

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

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

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

Рис. 17

<== previous lecture | next lecture ==>

Пример 4. | Пример 6.

lektsiopedia.org - 2013 год. | Page generation: 0.292 s.