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

Задание №1

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

1.1 Словесное описание задачи

Вычислить значение Функции

Для отладки программы значения Х и массива С выбрать самостоятельно.

1.2. Состав входных и выходных переменных

Входные переменные: x – переменная вещественного типа, C= – массив вещественных чисел.

Выходные переменные: y – переменная вещественного типа.

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

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

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

Private Sub Command1_Click()

Dim C() As Single, x As Single, y As Single, i As Integer

x = InputBox("x=")

Print "x = " & x

ReDim C(1 To 7)

Print "C = ";

For i = 1 To 7

C(i) = InputBox("C" & i & "=")

Print C(i),

Next

Print

For i = 1 To 7

y = y + C(i) * x ^ i

Next

Print "y = " & y

End Sub

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

Задание №2

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

1.1Словесное описание задачи

Найти произведение элементов четных строк матрицы В размернос­ти L*M. Полученное значение присвоить элементу матрицы, распо­ложенному в четвертой строке третьего столбца. Проанализировать выполнение программы на примере

1.2. Состав входных и выходных переменных

Входные переменные: L – переменная целого типа, M – переменная целого типа, B = – массив вещественных чисел.

Выходные переменные: B = – массив вещественных чисел.

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

X = 1 где 2 ≤ i ≤ L с шагом 2; 1 ≤ j ≤ M с шагом 1.

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

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

Private Sub Command1_Click()

Dim B() As Single, x As Single, L As Integer, i As Integer, M As Integer, j As Integer

L = InputBox("L=")

M = InputBox("M=")

ReDim B(1 To L, 1 To M)

Print "B = "

For i = 1 To L

For j = 1 To M

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

Print B(i, j),

Next

Print

Next

Print

x = 1

For i = 2 To L Step 2

For j = 1 To M

x = x * B(i, j)

Next

Next

B(4, 3) = x

Print "B = "

For i = 1 To L

For j = 1 To M

Print B(i, j),

Next

Print

Next

End Sub

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