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

Токарев С.Ю. ЭС-406 Вариант 26

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

1. Словесное описание.

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

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

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

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

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

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

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

Private Sub Command1_Click()

Dim x As Single

Dim k As Integer

Dim S As Single

Dim F As Single

x = InputBox("BBEDITE X")

S = 0

For k = 1 To 4

S = S + (x ^ k / k)

Next

F = Sqr(S)

Print "F=" & F

End Sub

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

1. Словесное описание

Вычислить произведение элементов L-й и К-й строк матрицы A размерности М*N

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

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

2. Входные данные: {A}, m, n, L, K - вещественные

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

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

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

Private Sub Command1_Click()

Dim i As Integer

Dim j As Integer

Dim n As Integer

Dim m As Integer

Dim A() As Single

Dim L As Single

Dim K As Single

Dim PL As Single

Dim PK As Single

m = InputBox("BBEDITE M")

n = InputBox("BBEDITE N")

L = InputBox("BBEDITE L")

K = InputBox("BBEDITE K")

ReDim A(1 To m, 1 To n)

For i = 1 To m

For j = 1 To n

A(i, j) = InputBox("ВВЕДИТЕ МАССИВ")

Next

Next

PL = 1

For j = 1 To n

PL = PL * A(L, j)

Next

PK = 1

For j = 1 To n

PK = PK * A(K, j)

Next

P = PL * PK

Print "P=" & P

End Sub

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