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

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

1. Каждому элементу массива SINX размерности n присвоить значения функции sin(x) в степени его порядкового номера.

2. Изменить элементы матрицы H размерности k×m, имеющие четные индексы строк и нечетные индексы столбцов, увеличив их в 2 раза, остальные – вполовину уменьшить.

Задание №1.

1. Словесное описание:

Каждому элементу массива SINX размерности n присвоить значения функции sin(x) в степени его порядкового номера.

Входные данные: x – вещественного типа; n – целого типа;

Выходные данные: {SINX} – Вещественного типа;

2. Математическое описание: SINX_i=Sin(x)^i, где 1 ≤ i ≤ n с шагом 1.

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

4. Код приложения Private Sub Command1_Click() Dim X As Single, i As Integer, n As Integer, SINX() As Single X = InputBox("Введите значение x") n = InputBox("Введите размерность SINX") ReDim SINX(1 To n) Print "X=" & X For i = 1 To n SINX(i) = Sin(X) ^ i Print "SINX(" & i & ")=" & Format(SINX(i), "0.000") Next End Sub

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

Ручной счет: X=5 i=2; SINX=0,92 i=5; SINX=0,811 i=8; SINX=0,715

Задание №1.

1. Словесное описание:

Изменить элементы матрицы H размерности k×m, имеющие четные индексы строк и нечетные индексы столбцов, увеличив их в 2 раза, остальные – вполовину уменьшить.

Входные данные: {H} – вещественного типа; k, m – целого типа;

Выходные данные: {H} – Вещественного типа;

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

где 1 ≤ i ≤ k с шагом 1; 1 ≤ j ≤ m с шагом 1.

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

4. Код приложения Private Sub Command1_Click() Dim i As Integer, k As Integer, j As Integer, m As Integer, H() As Single k = InputBox("Введите количество строк") m = InputBox("Введите количество столбцов") ReDim H(1 To k, 1 To m) Print "Исходный:" For i = 1 To k For j = 1 To m H(i, j) = InputBox("H(" & i & ", " & j & ")=") Print H(i, j), Next Print Next For i = 1 To k For j = 1 To m If i Mod 2 = 0 And j Mod 2 = 1 Then H(i, j) = 2 * H(i, j) Else H(i, j) = H(i, j) / 2 End If Next Next Print "Пересчитанный:" For i = 1 To k For j = 1 To m Print H(i, j), Next Print Next End Sub

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

Ручной счет: H_{1 2}=20 H_{3 3}=2 H_{4 1}=1