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

«Производная структура заполнение»

Вариант 6

Задача №1

Заполнить одномерный массив индексами его элементов, возведёнными в квадрат.

Входные данные: m – переменная целого типа.

Выходные данные: G = |g_i|, i= – массив целых чисел.

Математическая модель:

Схема алгоритма:

Программный код:

Private Sub Command1_Click()

Dim i As Integer, m As Integer, G() As Integer

m = InputBox("m=")

ReDim G(1 To m)

For i = 1 To m

G(i) = i ^ 2

Next

Print "Значения элементов матрицы G:"

For i = 1 To m

Print G(i) & " ";

Next

End Sub

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

Задача №2

Пересчитать значения элементов матрицы C так, чтобы значения элементов, имеющих чётные индексы и строк, и столбцов, увеличились на величину h, а значения элементов, имеющие нечётные индексы и строк, и столбцов уменьшить на величину g. Значения h, g и размерность матрицы задаются вводом.

Входные данные: m – переменная целого типа, n – переменная целого типа, g – переменная вещественного типа, h – переменная вещественного типа, C = |c_ij|, i= – массив вещественных чисел.

Выходные данные: C = |c_ij|, i= – массив вещественных чисел.

Математическая модель:

Схема алгоритма:

Программный код: Private Sub Command1_Click()

Dim i As Integer, j As Integer, m As Integer, n As Integer,

Dim C() As Single, h As Single, g As Single

m = InputBox("m=")

n = InputBox("n=")

ReDim C(1 To m, 1 To n)

For i = 1 To m

For j = 1 To n

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

Next

Next

g = InputBox("g=")

h = InputBox("h=")

For i = 1 To m

For j = 1 To n

If i Mod 2 = 0 And j Mod 2 = 0 Then

C(i, j) = C(i, j) + h

Else

If i Mod 2 = 1 And j Mod 2 = 1 Then

C(i, j) = C(i, j) - g

End If

End If

Next

Next

Print "Значения элементов матрицы C:"

For i = 1 To m

For j = 1 To n

Print C(i, j) & " ";

Next

Print

Next

End Sub

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