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

Задание №1

1) Постановка задачи Каждый элемент одномерного массива М произвольной размерности уменьшить на величину R. Входные данные: n – целого типа; R, {M} – вещественного типа. Выходные данные:{M} – вещественного типа.

2) Математическое описание M_i=M_i-R, где 1 ≤ i ≤ n с шагом 1.

3) Разработка алгоритма

4) Код приложения Private Sub Command1_Click() Dim n As Integer, M() As Single, i As Integer, R As Single n = InputBox("n=", "Input") ReDim M(1 To n) Print "{M}=" For i = 1 To n M(i) = InputBox("M(" & i & ")=") Print M(i) & " "; Next Print R = InputBox("R=") For i = 1 To n M(i) = M(i) – R Next Print "{M}=" For i = 1 To n Print M(i) & " "; Next Print End Sub

5) Отладка кода приложения

6) Ручной расчёт M={6; 2; 5; 10; 7; 9}; R=4 M₁=6-4=2 M₄=10-4=6 M₆=9-4=5

Задание №2

1) Постановка задачи Заполнить в памяти ЭВМ матрицу H вида: Входные данные: m, n – целого типа. Выходные данные: {H} – целого типа.

2) Математическое описание

3) Разработка алгоритма

4) Код приложения Private Sub Command1_Click() Dim M As Integer, N As Integer, i As Integer, j As Integer, H() As Integer M = InputBox("m=", "Input") N = InputBox("n=", "Input") ReDim H(1 To M, 1 To N) Print "{H}=" For i = 1 To M For j = 1 To N If (i + j) Mod 2 = 0 Then H(i, j) = 0 Else H(i, j) = 1 End If Next Next Print "{H}=" For i = 1 To M For j = 1 To N Print H(i, j), Next Print Next End Sub

5) Отладка кода приложения

6) Ручной расчёт H_{1 1}=<1+1=2>=0 H_{3 2}=<3+2=5>=1 H_{4 2}=<4+2=6>=0