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

4

Кулув Т.В. В-405. Вариант №10

Программный элемент «НАКОПЛЕНИЕ»

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

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

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

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

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

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

3. выходные данные: y - вещественное

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

i=1

N=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

4. Отладочный пример:

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

S8=

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

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

2. входные данные: m,n - целые числа

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

3. выходные данные: S - вещественное

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

нет

да

нет

да

i=1

S=0

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

4. Отладочный пример: