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

Задание №1

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

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

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

N_i=(N_i-1+N_i+1)/2, где 2 ≤ i ≤ L-1.

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

N={1; 2; 4; 8; 16; 32}

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

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

Выходные данные: x – переменная вещественного типа.

2. Математическая модель задачи где 2≤i≤L-1 c шагом 1.

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

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

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

Private Sub Command1_Click()

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

L = InputBox("L=")

ReDim N(1 To L)

Print "N(исх)=";

For i = 1 To L

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

Print N(i) & " ";

Next

Print

For i = 2 To L - 1

N(i) = (N(i - 1) + N(i + 1)) / 2

Next

Print "N(пер)=";

For i = 1 To L

Print N(i) & " ";

Next

Print

End Sub

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

Задание №2

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

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

Заполнить матрицу:

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

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

Выходные данные: M ={m_ij}, i= ; j= – массив целых чисел.

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

где 1≤i≤k c шагом 1; 1≤j≤n c шагом 1.

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

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

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

Private Sub Command1_Click()

Dim M() As Integer, k As Integer, n As Integer, i As Integer, j As Integer

k = InputBox("k=")

n = InputBox("n=")

ReDim M(1 To k, 1 To n)

For i = 1 To k

For j = 1 To n

If i < j Then

M(i, j) = 1

Else

If i = j Then

M(i, j) = 0

Else

M(i, j) = -1

End If

End If

Next

Next

Print "{M}="

For i = 1 To k

For j = 1 To n

Print M(i, j),

Next

Print

Next

End Sub

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

4