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

5

Литвинов М.В. В-407 11 вариант

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

Задание 1

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

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

Вычислить значение Функции /при X > 0.5/

lnY=

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

Результат расчета сравнить с результатом вычисления по встро­енной Функции.

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

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

Задание 2

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

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

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

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

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

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

1:

X = InputBox("BBEDITE X")

n = InputBox("BBEDITE n")

If X > 0.5 Then

For i = 1 To n

Z = 0

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

i = i + 1

Next

Else

MsgBox ("X>5")

GoTo 1

End If

Y = Exp(X)

MsgBox ("Y=" & Y)

End Sub

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

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

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

Private Sub Command1_Click()

Dim i As Integer

Dim j As Integer

Dim n As Integer

Dim A() As Single

Dim P As Single

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

ReDim A(1 To n, 1 To n)

For i = 1 To n

For j = 1 To n

A(i, j) = InputBox("Введите массив")

Next

Next

P = 1

For i = 1 To n

j = i

P = P * A(i, j)

Next

A(n, n) = P

MsgBox ("P=" & P)

End Sub

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