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

Задание №1

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

Входные данные: m – целого типа

Выходные данные: H() – целого типа

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

Для i =

Если i-чет тогда H_i = 1 Иначе H_i =0

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

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

На форме располагаем только командную кнопку Command1.

В свойстве Caption кнопки записываем «Заполнить вектор».

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

Private Sub Command1_Click()

Dim i As Integer

Dim m As Integer

Dim H() As Integer

m = InputBox("Введите m")

ReDim H(1 To m)

Print "H = [";

For i = 1 To m

If i Mod 2 = 0 Then

H(i) = 1

Else

H(i) = 0

End If

Next

For i = 1 To m

Print H(i) & ", ";

Next

Print "]"

End Sub

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

Задание №2

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

Входные данные: m, n, Z()- вещественного типа

Выходные данные: A()– вещественного типа

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

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

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

На форме располагаем только командную кнопку Command1.

В свойстве Caption кнопки записываем «Пересчитать матрицу».

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

Private Sub Command1_Click()

Dim i As Integer, j As Integer, m As Integer, n As Integer

Dim Z() As Single

Dim A As Single

m = InputBox("Введите m")

n = InputBox("Введите n")

ReDim Z(1 To m, 1 To n)

For i = 1 To m

For j = 1 To n

Z(i, j) = InputBox("Введите Z")

Print Z(i, j),

Next

Print

Next

Print "-----"

For j = 1 To n

A = Z(1, j)

For i = 1 To m

Z(i, j) = Z(i, j) / A

Next

Next

For i = 1 To m

For j = 1 To n

Print Format(Z(i, j), "0.00"),

Next

Print

Next

End Sub

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