Программный элемент накопление / 10

Задание №1

1. Постановка задачи:

   1. Словестное описание задачи:

Вычислить значение

где X и Y – векторы одинаковой размерности.

Для отладки программы значения K, X и Y выбрать произвольно.

2. Состав входных и выходных данных:

Входные данные:

K – переменная целого типа,

X={x_i}, i= – массив вещественных чисел,

Y={y_i}, i= – массив вещественных чисел.

Выходные данные:

N – переменная вещественного типа.

2. Математическая модель задачи:

N

i<=K

N=N*(X_i+Y_i)

i=i+1

i=1

N=1

X, Y

K, X, Y

Конец

Начало

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

да

нет

4. Код приложения

Private Sub Command1_Click()

Dim X() As Single, Y() As Single, K As Integer, N As Single, i As Integer

K = InputBox("Введите размерность векторов X и Y", "Ввод данных")

ReDim X(1 To K), Y(1 To K)

For i = 1 To K

X(i) = InputBox("X(" & i & ")=", "Ввод данных")

Y(i) = InputBox("Y(" & i & ")=", "Ввод данных")

Next

For i = 1 To K

Print "X(" & i & ")=" & X(i),

Next

Print

For i = 1 To K

Print "Y(" & i & ")=" & Y(i),

Next

Print

N = 1

For i = 1 To K

N = N * (X(i) + Y(i))

Next

Print "N=" & N

End Sub

5. Отладка программы

Задание №2

1. Постановка задачи:

   1. Словестное описание задачи:

Найти сумму элементов нечётных столбцов матрицы S8 размером M×N.

Проанализировать выполнение программы на примере:

S8=

2. Состав входных и выходных данных:

Входные данные:

M – переменная целого типа,

N – переменная целого типа,

S8={s8_ij}, где i= j= – массив вещественных чисел.

Выходные данные:

S – переменная вещественного типа.

2. Математическая модель задачи:

3. Схема алгоритма

i=1

Начало

N, M, S8

S8

S=0

j=1

S=S+S8_ij

S

Конец

да

j<=N

нет

да

i=i+1

i<=M

j=j+2

нет

4. Код приложения

Private Sub Command1_Click() Dim N As Integer, M As Integer, i As Integer, j As Integer, S8() As Single, S As Single M = InputBox("Введите количество строк") N = InputBox("Введите количество столбцов") ReDim S8(1 To M, 1 To N) For i = 1 To M For j = 1 To N S8(i, j) = InputBox("S8(" & i & "," & j & ")=") Print " S8(" & i & "," & j & ")=" & S8(i, j); Next Print Next S = 0 For j = 1 To N Step 2 For i = 1 To M S = S + S8(i, j) Next Next Print "S=" & S End Sub

5. Отладка программы