Отсчет по лабораторной работе №4

«Структура развилка»

Вариант 10

Выполнил студент

Факультета ПГС

Группы ВВБ-404

Лель Евгений

Санкт-Петербург

Вариант №10

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

1.​ Математическое описание:

1)​ Выбор математической модели:

2)​ входные данные: K - целое число

x=[x(i)], i=1;K - матрица вещественных чисел

x=[x(i)],i=1;K - матрица вещественных чисел

3)​ выходные данные: y – вещественное

2.Алгоритмизация:

		i=1
		N=1

N=N*(x(i)+y(i))

i=i+1

3.​ Программирование:

Private Sub Command1_Click()

Dim x() As Single

Dim y() As Single

Dim N As Single

Dim i As Integer

Dim K As Integer

N = 1

K = InputBox("K=")

ReDim x(1 To K)

ReDim y(1 To K)

For i = 1 To K

x(i) = InputBox("x(" & i & ")")

Next

For i = 1 To K

y(i) = InputBox("y(" & i & ")")

Next

For i = 1 To K

N = N * (x(i) + y(i))

Next

Print "N=" & N

Print

For i = 1 To K

Print x(i);

Next

Print

Print

For i = 1 To K

Print y(i);

Next

End Sub

2. Найти сумму элементов нечетных столбцов матрицы S8 размернос​ти М*N. Проанализировать выполнение программы на примере

S8=

1.​ Математическое описание:

a)​ Выбор математической модели:

b)​ входные данные: m,n - целые числа

B=[b(i,j)], i=1;m, j=1,n - вещественные

c)​ выходные данные: S - вещественное

2.​ Алгоритмизация:

		i=1
		S=0

j=1

S=S+s8(i,j)

i=i+1

j=j+2

3.​ Программирование:

Private Sub Command1_Click()

Dim M As Integer

Dim N As Integer

Dim S As Single

Dim S8() As Single

Dim i As Integer

Dim j As Integer

M = InputBox("M=")

N = InputBox("N=")

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 & ")")

Next j

Next i

S = 0

For i = 1 To M

For j = 1 To N Step 2

S = S + S8(i, j)

Next j

Next i

Print "S=" & Str(S)

Print

For i = 1 To M

For j = 1 To N

Print S8(i, j);

Next j

Print

Next i

End Sub