Разработка алгоритма программы

Схема алгоритма решения задачи:

Private Sub Command1_Click()

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

N = InputBox("N=")

ReDim M(1 To N)

For i = 1 To N

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

Print M(i);

Next

Print

P = 1

K = InputBox("K=")

For i = 1 To K

P = P * M(i)

Next

P = P ^ (1 / K)

M(K) = P

Print "P=" & P

For i = 1 To N

Print M(i);

Next

Print

End Sub

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

2)

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

В каждом варианте задания, необходимо предложенные задачи подготовить к решению на ЭBM: выполнить постановку задачи, раз­работать математическую модель, схему алгоритма и программу. Рассчитать контрольные варианты и отладить программы.

Словесная формулировка:

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

Gk= ,

где G - матрица размерности К*N; М - заданное число. Для отладки программы значения К, N, М и матрицу выбрать само­стоятельно.

Определение состава входных данных:

G() – матрица чисел вещественного типа

K, M, N – целые числа

Определение состава входных данных:

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

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

M = InputBox("M=")

Gk = 0

Для всех i = от 1 до M и для всех j = от 1 до N

Gk = Gk + Abs(G(i, j))

Следующее i, следующее j

Разработка алгоритма программы:

Схема алгоритма решения задачи:

Private Sub Command1_Click()

Dim G() As Single, N As Integer, M As Integer, K As Integer, Gk As Single, i As Integer, j As Integer

K = InputBox("K=")

N = InputBox("N=")

ReDim G(1 To K, 1 To N)

For i = 1 To K

For j = 1 To N

G(i, j) = InputBox("G(" & i & ", " & j & ")=")

Print G(i, j);

Next

Print

Next

M = InputBox("M=")

Gk = 0

For i = 1 To M

For j = 1 To N

Gk = Gk + Abs(G(i, j))

Next

Next

Print "Gk=" & Gk

End Sub

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