Dim x (1 To10) As Single

Sub prim4 ()

Таблица используемых переменных

End if

Next i

Else

Wend

Вычисление суммы и произведения элементов, находящихся на разных местах в массиве

Типовые алгоритмы обработки одномерных массивов

Next i

Next i

Dim Str As String

Вывод массива

Next i

Ввод массива

Процедура:

n = InputBox ("Введите число элементов" , "Ввод")

for i=1 to n do

x (i)= InputBox (“Введите элемент " & i , "Ввод")

Фрагмент процедуры (после ввода):

· Вывод в окно сообщений

Str="Исходный массив" & vbCr

For i=1 to n

Str=Str & x(i) & " "

MsgBox Str , , "Вывод массива"

· Вывод в ячейки рабочего листа

Cells (1,1)="Исходный массив"

for i=1 to n

Cells (2 , i) = x(i)

S=0 для i=1..n S=S+x(i)

P=1 для i=1..n P=P*x(i)

Общая схема алгоритма:

Пример 1: Вычислить сумму квадратов

элементов, находящихся в массиве на

местах с номерами, кратными трем.

S=0

i=3

While i<=n

S=S+x(i)^2

i=i+3

<Вывод S>

Пример 2: Вычислить произведение элементов, находящихся в массиве на местах с третьего по седьмое

включительно.

if n <7 then

<вывод сообщения >

P= 1

For i = 3 to 7

P=P*x(i)

<вывод Р>

4.2.

Общая схема алгоритма:

Пример3: Вычислить количество элементов, больших заданного числа a и находящихся в массиве на местах с четными номерами.

Схема алгоритма:

:

Фрагмент процедуры:

· с помощью оператора цикла While

k=0

i=2

While i<=n

if x(i)> a then k=k+1

i=i+2;

Wend

· с помощью оператора цикла For

k=0

For i=2 To n Step 2

if x(i)> a then k=k+1

Next i

Пример 4. Вычислить среднее арифметическое положительных элементов массива, находящихся в массиве на нечетных местах, и произведение элементов вне интервала [a,b).

Текст процедуры: