Лабораторные по Информатике / Лабораторная работа Накопление 4 / Вариант 13 проверить

ПТМ – 409 Караваев. С. В. Вариант 13

“ПРОГРАММНЫЙ ЭЛЕМЕНТ НАКОПЛЕНИЕ ”

1.1 Найти среднее геометрическое первых К элементов вектора М раз­мерности N. Полученное значение присвоить K-му элементу векто­ра.

Проанализировать выполнение программы на примере К=4.

М={2; 3; 1; 10; 7; -2; 4}

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

M– вещественное число, K, N – целые числа

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

SG – вещественное число

1.3 Математическая модель.

1.4 Алгоритм.

1.5 Код программы.

Private Sub Form_Activate()

Dim i As Integer, N As Integer, K As Integer

Dim S As Single, SG As Single

Dim M() As Single

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

ReDim M(1 To N)

For i = 1 To N

M(i) = InputBox("Введите элементы вектора")

Next

K = InputBox("Введите число первых элементов")

S = 1

For i = 1 To K

S = S * M(i)

Next

SG = S ^ (1 / K)

i = K

M(i) = SG

MsgBox "Среднее геометрическое первых " & K & "-х элементов = " & M(i)

End Sub

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

При К=4,М={2; 3; 1; 10; 7; -2; 4}

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

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

Gk=,

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

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

N, K– целые числа, G - вещественное число

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

Gk - вещественное число

3. Математическая модель.

Gk=

2.4 Алгоритм

НАЧАЛО

N, K

G

i=1

S = 0

0

1

3

4

2

5

MK=K*M

MK

6

нет

нет

да

да

iMK

j=1

jN

i = i+1

j = j+1

Gk

КОНЕЦ

8

7

9

12

13

14

11

10

2.5 Код программы.

Private Sub Form_Activate()

Dim S As Single, N As Integer, M As Integer, MK As Integer, K As Integer

Dim i As Integer, j As Integer, G() As Single, Gk As Single

M = 2

N = InputBox("Введите количество строк ")

K = InputBox("Введите K")

MK = K * M

MsgBox "В матрице столбцов:" & MK

ReDim G(1 To MK, 1 To N)

For i = 1 To MK

For j = 1 To N

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

Next

Next

S = 0

For i = 1 To MK

For j = 1 To N

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

Next

Next

MsgBox "Gk= " & Gk

End Sub

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

При N = 3, K = 2,

G=