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

Задание 1

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

Пересчитать вектор А, умножив все его элементы на соответствующие элементы вектора B.

Входные данные: A, B – одномерные массивы вещественных чисел; n – размерность массивов, целая переменная.

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

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

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

4. Разработка визуальной части проекта

На форме располагаем только командную кнопку Command1.

В свойстве Caption кнопки записываем «Пересчитать вектор».

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

Private Sub Command1_Click()

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

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

ReDim A(1 To n), B(1 To n)

Print "{A}:"

For i = 1 To n

A(i) = InputBox("A(" & i & ")=")

Print A(i);

Next

Print

Print "{B}:"

For i = 1 To n

B(i) = InputBox("B(" & i & ")=")

Print B(i);

Next

Print

Print

For i = 1 To n

A(i) = A(i) * B(i)

Next

Print "Пересчитанный {A}:"

For i = 1 To n

Print A(i);

Next

Print

End Sub

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

Ручной счет: при i = 1; A₁ = 2*0 = 0; при i = 2; A₂ = 6*2 = 12; при i = 3; A₃ = 1*1 = 1.

Задание 2

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

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

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

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

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

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

4. Разработка визуальной части проекта

На форме располагаем только командную кнопку Command1.

В свойстве Caption кнопки записываем «Заполнить массив».

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

Private Sub Command1_Click()

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

n = InputBox("Введите количество столбцов")

ReDim A(1 To 3, 1 To n)

For i = 1 To 3

For j = 1 To n

A(i, j) = j ^ i

Next

Next

For i = 1 To 3

For j = 1 To n

Print A(i, j),

Next

Print

Next

End Sub

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

Ручной счет: при j = 4 столбец: 4¹ = 4 4² = 16 4³ = 64