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

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

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

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

Заполнить вектор A размерности n по правилу: где B и С – заданные векторы той же размерности.

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

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

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

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

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

1.3 Математическое описание задачи: где 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 "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 i Mod 2 = 0 Then

A(i) = C(i)

Else

A(i) = B(i)

End If

Next

Print "A="

For i = 1 To n

Print A(i),

Next

End Sub

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

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

Пересчитать элементы матрицы K размерности m*n, разделив каждый из них на элемент, расположенный в той же строке в первом столбце.

Проанализировать выполнение программы на примере:

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

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

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

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

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

a=K_i1 K_ij=K_ij/a, где j=1, 2, … n где i=1, 2, … m.

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

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

Private Sub Command1_Click()

Dim a As Single, K() As Single, i As Integer, j As Integer, m As Integer, n As Integer

m = InputBox("m=")

n = InputBox("n=")

ReDim K(1 To m, 1 To n)

Print "K(исх)="

For i = 1 To m

For j = 1 To n

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

Print K(i, j),

Next

Print

Next

For i = 1 To m

a = K(i, 1)

For j = 1 To n

K(i, j) = K(i, j) / a

Next

Print

Next

Print "K(пер)="

For i = 1 To m

For j = 1 To n

Print K(i, j),

Next

Print

Next

End Sub

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