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

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

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

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

Пересчитать элементы вектора A размерности n по правилу:

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

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

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

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

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

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

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

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

A_i=B_i*C_i/A_i, при A_i≠0 где i=1, 2,…n

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

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

Private Sub Command1_Click()

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

n = InputBox("n=")

ReDim A(1 To n), B(1 To n), C(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 "C=";

For i = 1 To n

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

Print C(i),

Next

Print

For i = 1 To n

If A(i) <> 0 Then

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

End If

Next

Print

Print "A=";

For i = 1 To n

Print A(i),

Next

Print

End Sub

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

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

Заполнить в памяти ЭВМ матрицу L размерности m*n так, чтобы значение каждого элемента было равно индексу строки, в которой он расположен.

Напечатать столбец с номером n.

Проанализировать выполнение программы на примере m=4, n=5.

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

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

Входные данные: m – переменная целого типа, n – переменная целого типа

Выходные данные: n-ый столбец {L} – массив целых чисел.

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

L_ij=i, где i=1, 2, …, m; j=1, 2, …, n;

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

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

Private Sub Command1_Click()

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

m = InputBox("m=")

n = InputBox("n=")

ReDim L(1 To m, 1 To n)

For i = 1 To m

For j = 1 To n

L(i, j) = i

If j = n Then

Print L(i, j)

End If

Next

Next

End Sub

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