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

Задание №1

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

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

Пересчитать элементы вектора A размерности n по правилу: A_i=B_i*C_i/A_i, при A_i≠0

где B и С – заданные векторы той же размерности.

Для отладки программы контрольный пример выбрать самостоятельно.

1.2) Состав входных и выходных данных

Входные данные:

n – переменная целого типа,

A={a_i}, i= – массив вещественных чисел,

B={b_i}, i= – массив вещественных чисел,

C={c_i}, i= – массив вещественных чисел.

Выходные данные:

A={a_i}, i= – массив вещественных чисел.

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

A_i=B_i*C_i/A_i, при A_i≠0

где i= .

3) Схема алгоритма

4) Визуальная часть проекта

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

Private Sub Command1_Click()

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

n = InputBox("n=")

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

Print "Исходные векторы:"

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 "C=";

For i = 1 To n

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

Print C(i) & " ";

Next

Print

Print "A=";

For i = 1 To n

A(i) = B(i) * C(i) / A(i)

Next

Print "Пересчитанный вектор A:"

Print "A=";

For i = 1 To n

Print A(i) & " ";

Next

Print

End Sub

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

Задание №2

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

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

Заполнить матрицу L размерности m*n так, чтобы значение каждого элемента было равно индексу строки, в которой он расположен. Напечатать столбец с номером n. Проанализировать выполнение программы на примере: m=4, n=5.

1.2) Состав входных и выходных данных

Входные данные:

m – переменная вещественного типа,

n – переменная вещественного типа.

Выходные данные:

L={l_in}, i= – массив вещественных чисел.

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

где i= ; j= .

3) Схема алгоритма

4) Визуальная часть проекта

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

Private Sub Command1_Click()

Dim m As Integer, n As Integer, i As Integer, j As Integer, L() As Single

m = InputBox("m=")

n = InputBox("n=")

ReDim L(1 To m, 1 To n)

Print n & " столбец массива L:"

For i = 1 To m

For j = 1 To n

L(i, j) = i

Next

Print L(i, n)

Next

End Sub

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

4