4.3. Пример использования оператора For…Next

Вычислить n значений ряда, заданного формулой , где i=1..n. Исходные данные: n,h,x.

Блок-схема алгоритма решения задачи приведена на рис. 18.

Листинг программы, которая соответствует данной блок-схеме алгоритма, имеет вид:

Public Sub Cikl()

Dim i, n As Integer

Dim Y, x, h As Single

n = Val(InputBox("Введите количество членов ряда ", "Ввод данных"))

x = Val(InputBox("Введите значение х", "Ввод данных"))

h = Val(InputBox("Введите значение h", "Ввод данных"))

Range("B1").Value = "n"

Range("B2").Value = n

Range("C1").Value = "h"

Range("C2").Value = h

Range("D1").Value = "x"

Range("D2").Value = x

Range("B3").Value= "Номер члена ряда"

Range("С3").Value= "Значение члена ряда"

For i=1 To n

Y=(cos(x)+(i-1)*h)/(sin(x)+i*h)

Range("B4").Cells(i,1).Value=i

Range("C4").Cells(i,1).Value=Y

Next i

End Sub.

Рис. 18. Блок-схема алгоритма решения поставленной задачи

Результаты выполнения программы представлены на рис. 19.

	A	B	C	D	E
1		n	h	x
2		5	1,5	0,24
3		Номер члена ряда	Значение члена ряда
4		1	0,558978251
5		2	0,763299864
6		3	0,838241293
7		4	0,877139919
8		5	0,900957081
9

Рис. 19. Результаты выполнения программы

5. Содержание отчета

1. Номер, тема и цель лабораторной работы.

2. Краткие теоретические сведения:

2.1.Базовые структуры циклического вычислительного процесса;

2.2. Операторы, реализующие циклические алгоритмы;

2.3. Использование свойство Cells.

3. Этапы решения задачи:

3.1. Условие задачи;

3.2. Математическая постановка;

3.3. Блок-схема алгоритма;

3.4. Таблица соответствия переменных.

4. Распечатка листинга программы.

5. Распечатка результатов работы программы.

6. Контрольные вопросы

1. Чем характеризуется циклический вычислительный процесс?

2. Какие базовые типы циклов, используются для реализации задач?

3. Особенности применения циклов «с предусловием» и операторов, реализующие данный цикл.

4. Особенности применения циклов «с постусловием» и операторов, реализующие данный цикл.

5. В каких случаях используется конструкция For…Next?

6. Правила использования свойства Cells.