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

Задание №1

1. Постановка задачи

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

Входные данные: n – размерность вектора, переменная целого типа.

Выходные данные: A – заполненный массив, массив целых чисел.

2. Математическая модель задачи

при 1 ≤ i ≤ n с шагом 1.

3. Разработка алгоритма

4. Код приложения

Private Sub Command1_Click()

Dim A() As Integer, n As Integer, i As Integer

n = InputBox("n = ")

ReDim A(1 To n)

For i = 1 To n

A(i) = i ^ 3

Next

Print "{A} = ";

For i = 1 To n

Print A(i);

Next

End Sub

5. Отладка программы

**

Ручной счёт: A₁ = 1³ = 1 A₂ = 2³ = 8 A₃ = 3³ = 27

Задание №2

1. Постановка задачи

Пересчитать значения элементов матрицы С так, чтобы значения элементов, имеющих четные индексы строк и столбцов, увеличились на величину h, а значения элементов, имеющих нечетные индексы строк и столбцов, уменьшились на величину g.

Входные данные: C – исходная матрица, массив вещественных чисел, m – количество строк матрицы, переменная целого типа, n – количество столбцов матрицы, переменная целого типа, h – переменная вещественного типа, g – переменная вещественного типа.

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

2. Математическая модель задачи

при 1 ≤ i ≤ m с шагом 1; при 1 ≤ j ≤ n с шагом 1.

3. Разработка алгоритма

4. Код приложения

Private Sub Command1_Click()

Dim m As Integer, i As Integer, n As Integer, j As Integer

Dim C() As Single, g As Single, h As Single

m = InputBox("m = ")

n = InputBox("n = ")

ReDim C(1 To m, 1 To n)

Print "Исходная матрица C:"

For i = 1 To m

For j = 1 To n

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

Print C(i, j),

Next

Print

Next

h = InputBox("h = ")

g = InputBox("g = ")

Print "g = " & g & "; h = " & h

For i = 1 To m

For j = 1 To n

If (i Mod 2 = 0) And (j Mod 2 = 0) Then

C(i, j) = C(i, j) + h

Else

If (i Mod 2 = 1) And (j Mod 2 = 1) Then

C(i, j) = C(i, j) - g

End If

End If

Next

Next

Print "Пересчитанная матрица C:"

For i = 1 To m

For j = 1 To n

Print C(i, j),

Next

Print

Next

End Sub

5. Отладка программы

**

Ручной счёт:

С_{1 1} = 1 – 10 = -9

С_{2 2} = 5,5 + 5 = 10,5

С_{3 1} = 0,125 – 10 = –9,875