Основы алгоритмизации и программирования на языке VBA: Практическое пособие к выполнению контрольных работ по курсу «Информатика», страница 7

Cells(i + 1, 2) = x

Cells(i + 1, 3) = Sin(x)

i = i + 1

Next x

End Sub

Рис.3.3. Схема алгоритма примера 3.3.

4.  Составляем тесты для проверки правильности работы программы

№ п/п

x

y

xнач=0

1

0

0

xкон=3,14

2

0,314

0,308866

шаг=0,314

3

0,628

4

0,942

5

1,256

6

1,57

7

1,884

8

2,198

9

2,512

10

2,826

Обратите внимание! Не имеет смысла вручную просчитывать все значения этой таблицы. Достаточно это сделать в двух любых соседних точках, так как в остальных расчет ведется по той же самой формуле.

3.4.    Циклический алгоритм вычисления суммы и произведения элементов массива.

Задача. В массиве X состоящем из  N чисел вычислить сумму элементов, значения которых принадлежат отрезку (a, b] и произведение положительных элементов, стоящих на чётных местах.

1.  Составим фрагмент схемы алгоритма (в контрольной работе схему и программу составлять полностью!) (рис.3.4.)

2.  Составляем таблицу соответствия переменных

В схеме

В программе

Тип

Комментарий

массив X

X

Single

Исходное данное

a

a

Single

Исходное данное

b

b

Single

Исходное данное

P

P

Single

Результат

K

K

Integer

Вспомогательная переменная

S

S

Single

Результат

i

i

Integer

Вспомогательная переменная

N

N

Integer

Исходное данное

Чисел > 0 на четных местах нет

 

Да

 

S=0

 

i=1

 
Блок-схема: решение: i≤NБлок-схема: решение: a<Xi≤b

S=S+Xi

 

i=i+1

 

Да

 

Нет

 

Нет

 

Да

 

i=2

 
Блок-схема: решение: i≤NБлок-схема: решение: Xi>0

P=P∙Xi

K=K+1

 

Да

 

Нет

 

i=i+2

 

Нет

 

Да

 
Блок-схема: решение: S=0

Нет

 

P=1 K=0

 
Блок-схема: решение: K=0

Вывод K

 

Да

 

Нет

 

Чисел Î (a,b] нет

 

Чисел >0 нет

 

Рис.3.4. Схема алгоритма примера 3.4.

3.  Составляем фрагмент программы

…………………………………..

S =0

For i = 1 To n

  If X(i) > a And X(i) <= b Then

      S = S + X(i)

  End If

Next i

P = 1: K = 0

For i = 2 To n Step 2

  If X(i) > 0 Then

     P = P * X(i)