Синтез алгоритмических структур / Синтез

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

Найти количество отрицательных элементов вектора В размерности m, не превышающих по модулю величину R. Для отладки программы значения R, m и вектор В выбрать самостоятельно. 1.2) Описание постановки задачи:

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

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

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

B – массив вещественных чисел,

R – переменная вещественного типа.

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

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

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

Если B_i < 0 и |B_i| ≤ |R|, то n = n + 1, где i = 1, 2, 3, …, m.

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

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

Private Sub Command1_Click()

Dim m As Single, B() As Integer, n As Integer, R As Single, i As Integer

m = InputBox("m=")

ReDim B(1 To m)

For i = 1 To m

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

Print B(i) & " ";

Next

Print

R = InputBox("R=")

For i = 1 To m

If B(i) < 0 And Abs(B(i)) <= Abs(R) Then

n = n + 1

End If

Next

Print "Количество отрицательных элементов не превышающих " & R & " по модулю: " & n

End Sub

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

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

Пересчитать первый столбец матрицы F размерности m так, чтобы значение каждого элемента было равно сумме элементов строки, в которой он находится. Проанализировать выполнение программы на примере m = 4, матрицу выбрать самостоятельно.

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

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

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

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

F – массив вещественных чисел.

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

F – массив вещественных чисел.

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

где i = 1, 2, 3, …, m; j = 2, 3, 4, …, m.

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

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

Private Sub Command1_Click()

Dim m As Single, F() As Integer, j As Integer, i As Integer

m = InputBox("m=")

ReDim F(1 To m, 1 To m)

For i = 1 To m

For j = 1 To m

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

Print F(i, j) & " ";

Next

Print

Next

Print

For i = 1 To m

For j = 2 To m

F(i, 1) = F(i, 1) + F(i, j)

Next

Next

For i = 1 To m

For j = 1 To m

Print F(i, j) & " ";

Next

Print

Next

End Sub

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