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

Задание 1

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

Заполнить вектор AL размерности 21 значениями функции lnX, где X меняется от 0,5 до 10,5 с шагом 0,5.

Полученный массив и значения аргумента X напечатать в два столбца.

Входные данные: Xn – начальное значение аргумента X, вещественная переменная; Xk – конечное значение аргумента X, вещественная переменная; dX – шаг изменения аргумента X, вещественная переменная; M – размерность вектора AL, целая переменная.

Выходные данные: X – значения аргумента X, вещественная переменная; AL – вектор значений функции, массив вещественных переменных.

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

где 1≤i≤M с шагом 1; 0,5≤X≤10,5 с шагом 0,5.

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

4. Разработка визуальной части проекта

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

Private Sub CommandButton1_Click() Dim X As Single, Xn As Single, Xk As Single, dX As Single Dim M As Integer, AL() As Single, i As Integer Xn = InputBox("Начальное значение X=") Xk = InputBox("Конечное значение X=") dX = InputBox("Шаг изменения X=") M = InputBox("Размерность AL=") ListBox1.AddItem " X AL" ListBox1.AddItem "___________________" ReDim AL(1 To M) i = 1 X = Xn Do While X <= Xk AL(i) = Log(X) ListBox1.AddItem Format(X, "00.0") & " " & Format(AL(i), "0.000") i = i + 1 X = X + dX Loop End Sub

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

Ручной расчёт: При X=0,5 AL=-0,693 При X=5 AL=1,609

Задание 2

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

Заполнить в памяти машины матрицу вида:

Входные данные: M – количество строк матрицы, целая переменная; N – количество столбцов матрицы, целая переменная.

Выходные данные: E2 – матрица заданного вида, массив целых переменных.

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

где 1≤i≤M с шагом 1; 1≤j≤N с шагом 1

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

4. Разработка визуальной части проекта

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

Private Sub CommandButton1_Click() Dim M As Integer, i As Integer, N As Integer, j As Integer, E2() As Integer M = InputBox("Введите количество строк") N = InputBox("Введите количество столбцов") ReDim E2(1 To M, 1 To N) i = 1 Do While i <= M j = 1 Do While j <= N If i Mod 2 = 0 Then E2(i, j) = i Else E2(i, j) = 0 End If Print E2(i, j) & " "; j = j + 1 Loop Print i = i + 1 Loop End Sub

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

Ручной расчёт: E2_{3 3}=0 E2_{4 1}=4