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

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