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

Задание №1

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

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

Пересчитать вектор M размерности K так, чтобы поменялись местами значения первого и последнего, второго и предпоследнего и т.д. Исходный и полученный векторы напечатать.

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

M={1; 2; 3; 4; 5; 6; 7; 8; 9; 10}

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

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

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

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

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

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

5. Код приложения Private Sub Command1_Click()

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

K = InputBox("K=")

ReDim M(1 To K)

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

For i = 1 To K

M(i) = InputBox("M(" & i & ")=")

Print M(i) & " ";

Next

Print

n = K \ 2

For i = 1 To n

Md = M(i)

M(i) = M(K - i + 1)

M(K - i + 1) = Md

Next

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

For i = 1 To K

Print M(i) & " ";

Next

Print

End Sub

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

Задание №2

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

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

Заполнить единичную матрицу E размерности N. Для контроля правильности заполнения напечатать значения двух элементов с индексами K, L и M, MI.

Отладку программы выполнить на примере:

N=3; K=1; L=1; M=1; MI=2.

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

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

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

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

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

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

Выходные данные: E(K,L) – перменная целого типа,

E(M,MI) – перменная целого типа.

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

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

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

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

Private Sub Command1_Click()

Dim M As Integer, MI As Integer, i As Integer, j As Integer, K As Integer, N As Integer, L As Integer

N = InputBox("N=")

ReDim E(1 To N, 1 To N)

K = InputBox("K=")

L = InputBox("L=")

M = InputBox("M=")

MI = InputBox("MI=")

For i = 1 To N

For j = 1 To N

If i = j Then

E(i, j) = 1

Else

E(i, j) = 0

End If

Next

Next

Print "E(" & K & ", " & L & ")=" & E(K, L)

Print "E(" & M & ", " & MI & ")=" & E(M, MI)

End Sub

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

4