заполнение

Буслаев Василий УПП-401 Лабораторная работа №4 вариант 4 « заполнение »

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

Каждому элементу массива М произвольной размерности присвоить значение, меньше его индекса на величину R, задаваемую вводом.

Входящие данные: n, R

Выходящие данные: R, M()

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

i = 1 … n

M(i) = i - R

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

4. Код программы:

Private Sub Command1_Click()

Dim M() As Single, R As Single, i As Integer, n As Integer

n = InputBox("n=")

R = InputBox("R=")

Print "R=" & R

ReDim M(n)

Do While i<=n

M(i) = i - R

Print M(i);

I=i+1

loop

End Sub

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

Задача 2

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

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

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

Выходные данные: H()

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

i = 1 … 4 Шаг 2

j = 2 … 4 Шаг 2

H(i, j) = 1

i = 2 … 4 Шаг 2

j = 1 … 4 Шаг 2

H(i, j) = 1

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

4. Код программы:

Private Sub Command1_Click()

Dim H(4, 4) As Single, i As Integer, j As Integer

For i = 1 To 4 Step 2

For j = 2 To 4 Step 2

H(i, j) = 1

Next

Next

For i = 2 To 4 Step 2

For j = 1 To 4 Step 2

H(i, j) = 1

Next

Next

For i = 1 To 4

For j = 1 To 4

Print H(i, j);

Next

Print

Next

End Sub

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