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

Задание №1

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

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

Заполнить в памяти машины одномерный массив:

K={1, 2, 3, 4, 5, 6, …, 20}

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

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

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

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

K={k_i}, i= – массив целых чисел.

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

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

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

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

Private Sub Command1_Click()

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

n = InputBox("n=")

ReDim K(1 To n)

For i = 1 To n

K(i) = i

Next

Print "K=";

For i = 1 To n

Print K(i) & " ";

Next

Print

End Sub

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

Задание №2

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

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

Пересчитать квадратную матрицу P размерности n так, чтобы поменялись местами первая и последняя строки. Напечатать исходную и полученную матрицы.

Для отладки программы значения P и n выбрать самостоятельно.

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

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

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

P={p_ij}, i= ; j= – массив вещественных чисел.

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

P={p_ij}, i= ; j= – массив вещественных чисел.

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

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

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

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

Private Sub Command1_Click()

Dim P() As Single, i As Integer, j As Integer, n As Integer, a As Single

n = InputBox("n=")

ReDim P(1 To n, 1 To n)

Print "P(исх)="

For i = 1 To n

For j = 1 To n

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

Print P(i, j),

Next

Print

Next

Print

For j = 1 To n

a = P(1, j)

P(1, j) = P(n, j)

P(n, j) = a

Next

Print "P(пер)="

For i = 1 To n

For j = 1 To n

Print P(i, j),

Next

Print

Next

End Sub

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

3