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

Задание №1

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

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

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

Аi=| Bi |

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

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

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

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

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

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

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

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

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

где 1≤i≤n.

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

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

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

Private Sub Command1_Click()

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

n = InputBox("BBEDITE n")

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

Print "B={";

For i = 1 To n

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

Print B(i) & ",";

Next

Print "}"

Print

Print "A={";

For i = 1 To n

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

Print A(i) & ",";

Next

Print "}"

End Sub

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

Задание №2

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

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

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

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

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

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

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

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

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

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

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

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

где 1≤i≤m; 1≤j≤n.

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

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

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

Private Sub Command1_Click()

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

m = InputBox("m=")

n = InputBox("n=")

If m > n Then

ReDim C(1 To m, 1 To m)

Else

ReDim C(1 To n, 1 To n)

End If

Print "C="

For i = 1 To m

For j = 1 To n

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

Print C(i, j);

Next

Print

Next

For i = 1 To m

j = 1

Do While i <> j And j <= n

a = C(i, j)

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

C(j, i) = a

j = j + 1

Loop

Next

Print "C="

For i = 1 To n

For j = 1 To m

Print C(i, j);

Next

Print

Next

End Sub

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