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

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

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

ВАРИАНТ №5

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

Найти разность RC двух векторов RA и RB размерности m. Проанализировать выполнение программы на примере: m=3; RA={2,7; 3,4; -1,5}; RB={1,7; 2,4; -2,5}.

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

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

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

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

1.3 Математическое описание задачи: RC_i=RA_i-RB_i где i=1, 2,…m

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

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

Private Sub Command1_Click()

Dim RA() As Single, RB() As Single, RC() As Single, m As Integer, i As Integer

m = InputBox("m=")

ReDim RA(1 To m), RB(1 To m), RC(1 To m)

For i = 1 To m

RA(i) = InputBox("RA(" & i & ")=")

Next

For i = 1 To m

RB(i) = InputBox("RB(" & i & ")=")

Next

For i = 1 To m

RC(i) = RA(i) - RB(i)

Next

Print "{RA}",

Print "{RB}",

Print "{RC}"

For i = 1 To m

Print RA(i),

Print RB(i),

Print RC(i),

Print

Next

End Sub

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

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

Заполнить матрицу B размерности K×3 по правилу:

где A – заданная матрица размерности K×2.

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

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

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

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

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

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

Где i=1, 2, … k j=1, 2, 3

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

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

Private Sub Command1_Click()

Dim A() As Single, B() As Single, K As Integer, i As Integer, j As Integer

K = InputBox("K=")

ReDim A(1 To K, 1 To 2), B(1 To K, 1 To 3)

For i = 1 To K

For j = 1 To 2

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

Next

Next

For i = 1 To K

For j = 1 To 3

If j = 3 Then

B(i, j) = 0

Else

B(i, j) = A(i, j)

End If

Next

Next

Print "{B}"

For i = 1 To K

For j = 1 To 3

Print B(i, j),

Next

Print

Next

End Sub

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