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

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

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

ВАРИАНТ 13

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

Пересчитать значения элементов вектора K размерности n, возведя их в квадрат.

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

K={3; 6; 9; 12; 15}

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

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

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

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

{K} – массив вещественных чисел.

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

{K} – массив вещественных чисел.

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

K_i=K_i²

Где i=1, 2, … n

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

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

Private Sub Command1_Click()

Dim K() As Single, n As Integer, i As Integer

n = InputBox("n=")

ReDim K(1 To n)

Print "K(èñõ)=";

For i = 1 To n

K(i) = InputBox("K(" & i & ")=")

Print K(i),

Next

Print

For i = 1 To n

K(i) = K(i) ^ 2

Next

Print "K(ïåð)=";

For i = 1 To n

Print K(i),

Next

Print

End Sub

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

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

Заполнить в памяти ЭВМ матрицу W размерности m×n по правилу:

W_ij=Z_ij+E_ij-T_ij

где Z, E, T – матрицы той же размерности.

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

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

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

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

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

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

{Z} – массив вещественных чисел,

{E} – массив вещественных чисел,

{T} – массив вещественных чисел.

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

{K} – массив вещественных чисел.

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

W_ij=Z_ij+E_ij-T_ij

Где i=1, 2, … m; j=1, 2, … n

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

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

Private Sub Command1_Click()

Dim W() As Single, Z() As Single, E() As Single, T() As Single,

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

m = InputBox("m=")

n = InputBox("n=")

ReDim W(1 To m, 1 To n), Z(1 To m, 1 To n), E(1 To m, 1 To n), T(1 To m, 1 To n)

Print "{Z}="

For i = 1 To m

For j = 1 To n

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

Print Z(i, j),

Next

Print

Next

Print

Print "{E}="

For i = 1 To m

For j = 1 To n

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

Print E(i, j),

Next

Print

Next

Print

Print "{T}="

For i = 1 To m

For j = 1 To n

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

Print T(i, j),

Next

Print

Next

Print

For i = 1 To m

For j = 1 To n

W(i, j) = Z(i, j) + E(i, j) - T(i, j)

Next

Next

Print "{W}="

For i = 1 To m

For j = 1 To n

Print W(i, j),

Next

Print

Next

End Sub

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