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

Задание №1

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

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

Пересчитать значения вектора M размерности n по правилу:

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

M={2; 0; 3; 10; -1; 6; 1; 2}

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

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

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

M={m_k}, k= – массив вещественных чисел.

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

M={m_k}, k= – массив вещественных чисел.

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

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

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

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

Private Sub Command1_Click()

Dim M() As Single, k As Integer, n As Integer

n = InputBox("n=")

ReDim M(1 To n)

Print "M исходный:"

For k = 1 To n

M(k) = InputBox("M(" & k & ")=")

Print M(k) & " ";

Next

Print

For k = 1 To n

If M(k) <> 2 Then

M(k) = (M(k) + 2) / (M(k) - 2)

End If

Next

Print "M пересчитанный:"

For k = 1 To n

Print M(k) & " ";

Next

End Sub

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

Задание №2

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

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

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

Для контроля напечатать её вторую строку.

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

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

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

Выходные данные: P={p_2j}, j= – массив целых чисел.

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

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

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

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

Private Sub Command1_Click()

Dim m As Integer, n As Integer, i As Integer, j As Integer, P() As Integer

m = InputBox("m=")

n = InputBox("n=")

ReDim P(1 To m, 1 To n)

For i = 1 To m

For j = 1 To n

If i <> j Then

P(i, j) = 0

Else

P(i, j) = i

End If

Next

Next

For j = 1 To n

Print P(2, j) & " ";

Next

End Sub

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

4