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

ЗАДАНИЯ К ЛАБОРАТОРНОЙ РАБОТЕ №5

«ПРОГРАММНЫЙ ЭЛЕМЕНТ ЗАПОЛНЕНИЕ»

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

Заполнить одномерный массив M размерности i так, чтобы значения каждого элемента было на единицу меньше значения его индекса.

Для отладки программы принять i=5.

1.2 Описание постановки задачи

Состав входных и выходных данных:

Входные данные: i – переменная целого типа.

Выходные данные: {M} – массив целых чисел.

1.3 Математическое описание задачи: M_k=k-1 где k=1, 2, …..i

1.4 Схема алгоритма решения задачи:

1.5 Листинг кода программы:

Private Sub Command1_Click()

Dim i As Integer, M() As Integer, k As Integer

i = InputBox("i=")

ReDim M(1 To i)

For k = 1 To i

M(k) = k - 1

Next

Print "{M}=";

For k = 1 To i

Print M(k) & " ";

Next

End Sub

1.6 Выполнение проекта:

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

Пересчитать значения элементов матрицы S размерности 4×m по правилу:

S_ij=S_ij/(i+j)

Исходный и полученный массивы напечатать.

Проанализировать выполнение программы на самостоятельно выбранном контрольном примере.

2.2 Описание постановки задачи

Состав входных и выходных данных:

Входные данные: m – переменная целого типа, {S} – массив вещественных чисел.

Выходные данные: {S} – массив вещественных чисел.

2.3 Математическое описание задачи:

где i=1, 2, 3, 4; j=1, 2,…..m

2.4 Схема алгоритма решения задачи:

2.5 Листинг кода программы:

Private Sub Command1_Click()

Dim S() As Single, m As Integer, i As Integer, j As Integer

m = InputBox("m=")

ReDim S(1 To 4, 1 To m)

Print "S="

For i = 1 To 4

For j = 1 To m

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

Print S(i, j),

Next

Print

Next

For i = 1 To 4

For j = 1 To m

S(i, j) = S(i, j) / (i + j)

Next

Next

Print "S="

For i = 1 To 4

For j = 1 To m

Print Format(S(i, j), "0.##"),

Next

Print

Next

End Sub

2.6 Выполнение проекта: