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

Задание №1

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

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

Вычислить произведение элементов с индексами 2, 6, 8, 4 одномерного массива M размерности K. Проанализировать выполнение программы на примере:

M={2; 4; 6; -3; 8; 12; -6; 1}

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

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

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

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

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

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

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

Где i=2, 4, 6, 8.

P

i<=8

P=P*m_i

i=i+2

i=2

P=1

M

K, M

Конец

Начало

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

да

нет

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

Private Sub Command1_Click()

Dim M() As Single, i As Integer, K As Integer, P As Single

K = InputBox("Введите размерность массива")

ReDim M(1 To K)

Print "M={ ";

For i = 1 To K

M(i) = InputBox("M(" & i & ")=")

Print M(i) & " ";

Next

Print "}"

P = 1

For i = 2 To 8 Step 2

P = P * M(i)

Next

Print "P=" & P

End Sub

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

Задание №2

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

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

Вычислить сумму элементов первого столбца и последней строки матрицы S размером M×N.

Для отладки программы принять N=3 M=4. Значение элементов матрицы выбрать самостоятельно.

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

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

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

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

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

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

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

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

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

Начало

M, N, S

S

Sum=0

i=1

Sum=Sum+S_i,1

i≤M

да

нет

j=j+1

Sum=Sum+S_M,j

j=2

да

j≤N

нет

i=i+1

Sum

Конец

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

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

Sum = Sum + S(i, 1) Next For j = 2 To N Sum = Sum + S(M, j) Next Print "Sum=" & Sum End Sub

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