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

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

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

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

Пересчитать вектор N размерности k по правилу:

N_i=N_i+N_i+1, при i < k

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

N={1; 2; 3; 4; 5; 6; 7; 8}

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

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

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

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

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

N_i=N_i+N_i+1, где i=1, 2, …, k-1

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

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

Private Sub Command1_Click()

Dim N() As Single, k As Integer, i As Integer

k = InputBox("k=")

ReDim N(1 To k)

Print "{N} (исходный)"

For i = 1 To k

N(i) = InputBox("N(" & i & ")=")

Print N(i) & " ";

Next

Print

For i = 1 To k - 1

N(i) = N(i) + N(i + 1)

Next

Print "{N} (пересчитанный)"

For i = 1 To k

Print N(i) & " ";

Next

Print

End Sub

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

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

Заполнить в памяти ЭВМ и напечатать по столбцам матрицу:

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

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

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

Выходные данные: {SIZ} – массив целых чисел.

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

SIZ_ij=i-1 где i=1, 2, …, m; j=1, 2, …, n.

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

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

Private Sub Command1_Click()

Dim SIZ() As Single, m As Integer, i As Integer, n As Integer, j As Integer

m = InputBox("m=")

n = InputBox("n=")

ReDim SIZ(1 To m, 1 To n)

For i = 1 To m

For j = 1 To n

SIZ(i, j) = i - 1

Next

Next

Print "{SIZ}"

For i = 1 To m

For j = 1 To n

Print SIZ(i, j) & " ";

Next

Print

Next

End Sub

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