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

4

Вернер А. Г. ЛТ-403 Вариант 6

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

ЗАДАНИЕ 1

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

Вычислить значение величины М=(2n+1)!

Проанализировать выполнение программы на примере n = 3.

1. Входные данные: n – вещественного типа

1. Выходные данные: P – вещественного типа

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

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

Private Sub Command1_Click()

Dim M As Integer

Dim x As Integer

Dim n As Integer

Dim P As Single

n = InputBox("BBEDITE n")

P = 1

x = 1

M = 2 * n + 1

For i = 1 To M

P = P * x

x = x + 1

Next

Print "P=" & P

End Sub

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

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

Найти сумму S элементов матрицы L7 размерности К*М. Найденное значение присвоить элементу второй строки третьего столбца матрицы.

Проанализировать выполнение программы на примере К = 3, М = 4.

L7=

1. Входные данные: L7(), K, M – вещественного типа

2. Выходные данные: S, {L7} – вещественного типа

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

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

Private Sub Command1_Click()

Dim i As Integer

Dim j As Integer

Dim K As Integer

Dim M As Integer

Dim L7() As Single

Dim S As Single

K = InputBox("BBEDITE K")

M = InputBox("BBEDITE M")

ReDim L7(1 To K, 1 To M)

S = 0

For i = 1 To K

For j = 1 To M

L7(i, j) = InputBox("BBEDITE MASSIV ")

S = S + L7(i, j)

Next

Next

L7(2, 3) = S

For i = 1 To K

Print

For j = 1 To M

Print L7(i, j);

Next

Next

End Sub

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