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

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

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

ВАРИАНТ 4

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

Заполнить вектор А размерности n по правилу:

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

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

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

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

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

1.3 Математическое описание задачи: где i=1, 2, ……, n

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

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

Private Sub Command1_Click()

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

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

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

Print "{B}=";

For i = 1 To n

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

Print B(i) & " ";

Next

Print

Print "{A}=";

For i = 1 To n

A(i) = Abs(B(i))

Print A(i) & " ";

Next

Print

End Sub

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

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

Транспонировать матрицу C размерности m×n. Транспонированную матрицу именовать также С и поместить на месте исходной матрицы.

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

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

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

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

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

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

CT_ji=C_ij где i=1, 2, … n; j=1, 2, … n C_ij=CT_ij где i=1, 2, … n; j=1, 2, … n

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

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

Private Sub Command1_Click()

Dim C() As Single, CT() As Single, m As Integer, n As Integer, i As Integer, j As Integer

m = InputBox("m=")

n = InputBox("n=")

ReDim C(1 To m, 1 To n), CT(1 To n, 1 To m)

Print "C(исходная)="

For i = 1 To m

For j = 1 To n

C(i, j) = InputBox("B(" & i & ", " & j & ")=")

Print C(i, j) & " ";

Next

Print

Next

For i = 1 To n

For j = 1 To m

CT(i, j) = C(j, i)

Next

Next

ReDim C(1 To n, 1 To m)

Print "C(транспонированная)="

For i = 1 To n

For j = 1 To m

C(i, j) = CT(i, j)

Print C(i, j) & " ";

Next

Print

Next

End Sub

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