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

4

ЭТ-402 Михайлов Д.В. вариант 12

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

Задание 1

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

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

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

Для отладки программы значения х , n и массива А выбрать самостоятельно.

2. Входные данные: х, n, a - вещественные

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

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

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

Private Sub Command1_Click()

Dim X As Single

Dim n As Integer

Dim i As Integer

Dim Y As Single

Dim Z As Single

Dim A() As Single

X = InputBox("BBEDITE X")

n = InputBox("BBEDITE n")

ReDim A(1 To n)

For i = 1 To n

A(i) = InputBox("BBEDITE A = ")

Next

Z = 0

For i = 1 To n

Z = Z + A(i) * (X ^ (1 / i))

Next

MsgBox ("Z=" & Z)

End Sub

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

Задание 2

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

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

Определить произведение элементов четных строк квадратной мат­рицы. Для отладки программы матрицу выбрать самостоятельно.

2. Входные данные: A{} - вещественные

3. Выходные данные: P – вещественные

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

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

Private Sub Command1_Click()

Dim M As Integer

Dim N As Integer

Dim P As Single

Dim A() As Single

Dim i As Integer

Dim j As Integer

M = InputBox("M=")

N = InputBox("N=")

ReDim A(1 To M, 1 To N)

For i = 1 To M

For j = 1 To N

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

Next j

Next i

P = 1

For i = 2 To M Step 2

For j = 1 To N

P = P * A(i, j)

Next j

Next i

MsgBox ("P=" & P)

End Sub

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